There are a couple of different problems.

First, what is the problem to be solved? Is the subroutine supposed to print running total after each file is processed? And should the printed value be the total for just that file or for all the files that have been processed? Should the subroutine return a value?

Next, my @totalExoda = 0; isn't written correctly, it could be written as @totalExoda = (0); to initialize the array to contain a single zero, but what you probably meant was @totalExoda = (); to initialize it with zero elements.

When you add all the elements of @totalExoda, you need to say either

    foreach (@totalExoda) {
        $sum += $_;
    }
[download]

or, more readably,

    foreach my $x (@totalExoda) {
        $sum += $x;
    }
[download]

However, unless there is some reason that you need the array @totalExoda, it would be better to just sum as you go, something like this. (I am assuming you want to return $sum rather that printing it once per file, and this code is not tested):

sub Esoda_Statistika_button {
    my $sum = 0;
    chdir "/home/props/delice/eksoda" or die "didn't make  to eksoda f
+older\n";
    foreach my $file (glob '*.txt') {                   
        open my $in, "<", $file; 
        while (<$in>) { 
            $sum += $1 if /Exoda.*Total:(.*\d)/;
        }
    }       
    return $sum;
}
[download]

Notice that I also changed the two-argument form of open to the three argument form. This is to avoid possible disaster. Consider what would happen if someone created a very badly named file in the eskoda directory, for example with the following command to the shell.

     echo "whatever" > "/home/props/delice/eksoda/| rm *"
[download]

The two argument form of open (without a "<" in front of the filename) will merrily delete all of your files when you run your script!

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.