2013-05-07T17:18:10 bianca

2013-05-07T17:11:56 pq

say do { no warnings; length join "", %FORM };

Das bringt nicht 9 sondern 5 raus.

welche perl-version?

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13

$ perl -wE'
my %FORM = ( a => "abc", b => "defg" );
say do { no warnings; length join "", %FORM };
say $];'
9
5.010001

$ perl -wE'
my %FORM = ( a => "abc", b => "defg" );
say do { no warnings; length join "", %FORM };
say $];'
9
5.016000

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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem