Save the following code in a file (eg. removemail.pl) and set permission to 755. The run ‘ ./removemail.pl domain.com ‘ . You can put any string insted of domain.com that you want to remove. #!/usr/bin/perl $REGEXP = shift || die “no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!”; @data = qx</usr/sbin/postqueue -p>; for (@data) { if (/^(\w+)(\*|\!)?\s/) [...]
