well, the name of the sub is correct. I translated it and I add an error only in my e-mail.

alladr



while(<$filename>)
        {
        foreach $var (keys(%tags))
                {
                $$var += count_it($$var, $var, $tags{$var},$_);
                }
        }
        foreach $var(keys(%tags))
                {
                print STDOUT "$var: $$var $br\n";
                }



sub count_it

[...]


alladr




|^|_|^|_|^|                              |^|_|^|_|^|    
 |            |                                 |            |
 |            |                                 |            |
 |            |*\_/*\_/*\_/*\_/*\_/* |            |
 |                                                           |
 |                                                           |
 |                                                           |
 |         http://www.e-allora.net        |
 |                                                           |
 |                                                           |
**************************************


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to