Thread Zahl und Zeichen zusammenzählen (15 answers)
Opened by stb2050 at 2003-08-14 20:53

pq
 2003-08-14 21:19
#83122 #83122
User since
2003-08-04
12190 articles
Admin1
[Homepage]
user image
[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-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

View full thread Zahl und Zeichen zusammenzählen