Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^3: compound statement

by props (Hermit)
on Oct 07, 2007 at 13:39 UTC ( [id://643274]=note: print w/replies, xml ) Need Help??


in reply to Re^2: compound statement
in thread compound statement

well this code works for me
sub Esoda_Statistika_button { my @totalExoda = (); my $sum = 0; my $clearedValue=0; chdir "/home/props/delice/eksoda" or die "didn't make to eksoda folde +r\n"; foreach my $file (glob '*.txt') { open IN, $file; while (<IN>) { if ($_ =~ m/(Exoda.*Total:)(.*\d)/) { $clearedValue =$2; push(@totalExoda,$clearedValue); } #if } #end while } #end outer foreach foreach (@totalExoda){ $sum+= $_; } #end inner foreach chomp $sum; print "$sum\n"; } #end sub
this thing stresses my head :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://643274]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2024-03-28 10:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found