Hi to all,
I need a script to open all the files in a directory and count all the
words of them, but it doesn't work:
use Text::ParseWords;
$folder = "pathname";
opendir(KART, $folder);
foreach (readdir(KART)){
if(grep /\.txt$/, $_){
$filename = "$_";
open(INPUT, $filename); ####this one does not work
while (<INPUT>)
{
@words = split;
$numero = @words;
}
print "in the file $filename there are $numero words \n";
close(INPUT);
}}
closedir(KART);
what's the tip I don't know?
tnx a lot
adr
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
