[quote=SirLant,14.08.2003, 19:08]pq, das versteht doch kein Normalsterblicher mehr ;)[/quote]
ok, hier der versuch einer erklärung :)
@a=qw(-45 -355 +1 +55 -23);
my $sum = eval "@{[grep tr/+//, @a  ]}";
==>
 my $sum = eval "@{[grep tr/+//,  qw(-45 -355 +1 +55 -23)  ]}";

my $sum = eval "@{[  grep tr/+//, qw(-45 -355 +1 +55 -23)  ]}";
==>
 my $sum = eval "@{[qw(+1 +55)]}";

my $sum = eval   "@{[qw(+1 +55)]}"  ;
==>
 my $sum = eval  join" ",qw(+1 +55) ;

my $sum = eval "+1 +55";
==>
 my $sum = 56;\n\n

<!--EDIT|pq|1060881734-->