in reply to Re: Running Batch of Files
in thread Running Batch of Files

Thanks zentara..This is almost working fine

Only problem is i am getting error like can not open file..

My code is as below

my $dir = "INPUT";
my $pattern = '.txt';
opendir DIR, $dir or die "cant open dir";
my @files = grep /\.txt/,(readdir DIR);
closedir DIR;
#print "@files\n";
foreach my $file (@files){
    print "$file\n";
    open (INF, $file)||warn "Can not open $file";
    $data=join ("", <INF>);
    print "$data\n";
 }

[download]
when i run this file i get error like "Can not open file" Could you please help me with this?

Replies are listed 'Best First'.
Re^3: Running Batch of Files
by tokpela (Chaplain) on Oct 08, 2010 at 02:27 UTC

    Your problem is that you are only using the filename to open the file not the fullpath. 

    my $dir = "INPUT";
my $pattern = '.txt';
opendir DIR, $dir or die "cant open dir";
my @files = grep /\.txt/,(readdir DIR);
closedir DIR;
#print "@files\n";
foreach my $file (@files){
    my $filepath = "$dir/$file";
    print "$filepath\n";
    open (INF, $filepath)||warn "Can not open $filepath";
    $data=join ("", <INF>);
    print "$data\n";
 }

    [download]

[reply]
[d/l]

      Thank you marto and tokpela. Its Working fine now

[reply]
Re^3: Running Batch of Files
by marto (Cardinal) on Oct 07, 2010 at 18:22 UTC
[reply]

In Section Seekers of Perl Wisdom