Re^4: Perl List files in directory

Hi,

I have tried your tweak, but now i'm getting an error:

Error = Illegal seak at ./script.pl line 28

$directory = "/opt/tmp/";
opendir(DIR, $directory) or die "\nCannot open dir : $!\n";

@files = grep {-f "$directory/$_" && /\.xml$/i} readdir or die "Error 
+= $!";

closedir(DIR);
[download]

Can someone help me?

Comment on Re^4: Perl List files in directory Download Code

Replies are listed 'Best First'.
Re^5: Perl List files in directory by Corion (Patriarch) on Apr 24, 2014 at 14:31 UTC
The `... or die` does not make sense when used in list context. The cause you get your error is most likely because the `readdir` does not return any files. Maybe you meant `readdir DIR;` [download] ... instead of a bare `readdir`?	[reply] [d/l] [select]
Re^6: Perl List files in directory by Anonymous Monk on Apr 24, 2014 at 14:33 UTC
problem solved: `@files = grep (/\.xml$/, readdir(DIR));` [download] Thanks for the help	[reply] [d/l]