Help for this page

Select Code to Download


  1. or download this
    my @addrs;
for my $x ( @emaillist ) {
  push @addrs, "$k\@myorg.mydomain";
}
my $distlist = join( " ", @addrs );
  2. or download this
    my $distlist = join( " ", map { "$_\@myorg.mydomain" } split( /,/, $AR
+GV[1] ) );