Re^3: Perl List files in directory

I'd suggest a small tweak to that:

@files = grep {-f "$dir/$_" && /\.xml$/i} readdir DIR;

Because otherwise the regular expression would have matched a file named "fooxml.bar" as well. Also, this now matches the extension case-insensitively, just in case.

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

Replies are listed 'Best First'.
Re^4: Perl List files in directory by Anonymous Monk on Apr 24, 2014 at 14:22 UTC
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?	[reply] [d/l]
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]