[Dresden-pm] Perl Mongers erhebet euch

[Steffen Schwigon]

"A. Pagaltzis" <pagaltzis at gmx.de> writes:
> Das ganze 1:1 in Perl:
> #!/usr/bin/perl
> my @email;
> die "Usage: $0 <file>" if @ARGV > 1;
> while( <> ) {    while( /([\w_.+-]+)@([\w.+_-]+\.)+(\w{2,3}|\d{1,3})/g ) {        push @email, { user => $1, server => $2, tld => $3 };    }}
> print "Please set the sort order 1 = user, 2 = server, 3 = top level domain:\n";my @order = do {    $_ = <STDIN>;    /^2$/ ? qw( server tld user ) :    /^3$/ ? qw( tld server user ) :            qw( user server tld );};
> @email = sort {    my $d = 0;    for( @order ) {        $d = lc $a{ $_ } cmp lc $b{ $_ };        last unless $d == 0;    }    $d;};
> for( @email ) {    print "$$_{user}\@$$_{server}$$_{tld}";}
> __END__


Gibt's das auch formatiert?
So sieht es ja aus wie Perl-Code. :-)

SCNR. :-)

Steffen
-- 
"*O wei, XP hat wieder die Tastaturbelegung f[r den Browser
 umgestellt, sorrz.("
  -- jochen stenzel