I dont know why but in my case also foreach ( readdir(...) ) didnt work.....
try while( $eachfile = readdir( KART ){ ..... } This worked in my case. -Rohit Adriano Allora wrote: > 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] -- POPI Classification: [ ] MOTOROLA GENERAL BUSINESS INFORMATION [ ] MOTOROLA INTERNAL USE ONLY [ ] MOTOROLA CONFIDENTIAL PROPRIETARY