[Dresden-pm] Perl Mongers erhebet euch
Steffen Schwigon
schwigon at webit.de
Mon Jan 23 05:55:27 PST 2006
"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