On Wed, 25 Sep 2002 20:32:07 +1000
Robert Rendler <[EMAIL PROTECTED]> wrote:

> I don't know how accurate this may be:

Bit of testing and it seems kinda accurate, shortened it anyways.

while (<somedir/*.txt>) {
    open FH, $_ or die $!;
    while (<FH>)  {
        $total += scalar split /\S+/, $_; --$total
    }
    print "$total\n";
}
--
mein huhn ist tot.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to