Re^2: compound statement


The stupid question is the question not asked
	PerlMonks

Re^2: compound statement

by props (Hermit)

on Oct 07, 2007 at 10:30 UTC ( [id://643248]=note: print w/replies, xml )

Need Help??

in reply to Re: compound statement
in thread compound statement

I really appreciate your help on this this is a sample txt file with content:

Supplier1           1
Supplier2           2
Supplier3           3


Exoda   Total:6 euros
[download]

i need to get from every input file that Total:6 euros ( The number 6 in this case). The logic behind it is that i need to add my daily shop expenses in a file everyday. So whenever i want to check my monthly or yearly expenses to run this subroutine and get the total expenses. So i need one number but i do something wrong i get the following output:

there is a confusion somewhere

Comment on Re^2: compound statement Select or Download Code

Replies are listed 'Best First'.

Re^3: compound statement
by props (Hermit) on Oct 07, 2007 at 13:39 UTC

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
[download]

[reply]
[d/l]

A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom