Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Unable to read files from a directory

by antidote1316 (Initiate)
on May 14, 2009 at 05:25 UTC ( [id://764000]=note: print w/replies, xml ) Need Help??


in reply to Re: Unable to read files from a directory
in thread Unable to read files from a directory

done...again open fails! see this 
#!/usr/bin/perl
@files = <C:/Perl/bin/Anti/*>;
foreach $file (@files){
print "$file \n";
# found to be ok....prints all the files...
open(MYFILE,"<","C:/Perl/bin/Anti/$file") or die "Failed to open file:
+ $file:$! ";
while(<MYFILE>) {

    print "$_ \n \n \n";

}
}

[download]
it prints all the file names... I do not have any sub directories...but I used grep also... fails on file 1. gosh! hey...sorry for the earlier mistakes...I was lost in some world...the count is for some other purpose...was using a stupid method to see the counts of loops... and when I said opened, I meant all permissions... I am able to extract data from the individual files but when I run a loop for the folder, the files are not being opened...its acting weird! thanks for the assistance guys! much appreciated!

Replies are listed 'Best First'.
Re^3: Unable to read files from a directory
by graff (Chancellor) on May 14, 2009 at 06:26 UTC
    Regarding this latest version of your code, this attempt is failing because now you are populating "@files" with full path strings (because you are using th file glob operator, instead of readdir), and then you are appending the path again inside the foreach loop.

    Using the file glob is a good idea, so now just fix the open statement: 

    #!/usr/bin/perl
use strict;

my @files = <C:/Perl/bin/Anti/*>;
for my $file (@files) {
    my count = 0;
    open(MYFILE,"<",$file) or do { warn "Failed to open file: $file:$!
+\n"; next};
    while(<MYFILE>) {
        $count++;
    }
    print "$file has $count lines\n";
}

    [download]
    BTW, I like proper indenting... don't you?
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://764000]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2024-04-24 12:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found