maile.pl

#!/usr/bin/perl
#

$MAIL_DIR = '/var/spool/mail/virtual';

$LS_DOMAIN_CMD = "ls $MAIL_DIR";

$LS_MAILBOXES_IN_DOMAIN_CMD = "ls $MAIL_DIR/";


# najpier domeny

$ls_domains_res = `$LS_DOMAIN_CMD`;
@ls_domains_res = split( /[\n]/, $ls_domains_res );

@all_emails = ();

foreach $current_domain( @ls_domains_res ) {
	next if( $current_domain eq "." || $current_domain eq ".." );
	$_cur_cmd = $LS_MAILBOXES_IN_DOMAIN_CMD . $current_domain . "/";
	$ls_mailboxes_res = `$_cur_cmd`;
	@ls_mailboxes_res = split( /[\n]/, $ls_mailboxes_res );

	foreach $current_email( @ls_mailboxes_res ) {
		next if( $current_email eq "." || $current_email eq ".." );
		$cur_email = $current_email . "\@" . $current_domain;
		push( @all_emails, $cur_email );
		print $cur_email . "\n";
	}
}

print "Wszystkich skrzynek => " . scalar(@all_emails) . "\n";