Checking filesizes

vivapl has asked for the wisdom of the Perl Monks concerning the following question:

Searching for perl wisdom,

Having an array of filenames (from some directory) I need to check for their filesizes. How should I accomplish this?

eg:

for $tmpfilename (@files)
{
  ........
}
[download]

Thanks in advance

Comment on Checking filesizes Download Code

Replies are listed 'Best First'.
•Re: Checking filesizes by merlyn (Sage) on May 05, 2003 at 18:32 UTC
I'm amused by the responses so far. All of them have used `stat`, when the simple `-s` filetest returns the same info: `for $tmpfilename (@files) { defined(my $size = -s $tmpfilename) or warn("can't stat $tmpfilename +"), next; ... }` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: Checking filesizes by artist (Parson) on May 05, 2003 at 18:08 UTC
`$size=(stat($file))[7];` [download] artist	[reply] [d/l]
Re^2: Checking filesizes (fewer parens) by Aristotle (Chancellor) on May 05, 2003 at 18:50 UTC
And for those of us not fond of line noise, `my $size = (stat $file)[7];` [download] `:)` Makeshifts last the longest.	[reply] [d/l]
Re: Checking filesizes by halley (Prior) on May 05, 2003 at 18:08 UTC
% `perldoc -f stat` http://www.perldoc.com/perl5.6.1/pod/func/stat.html -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l]
Re: Checking filesizes by Huele-pedos (Acolyte) on May 05, 2003 at 18:09 UTC
`... my @results = stat( $filename ); my $size = $results[7];` [download] Untested. But it is pretty straight forward. For more info use perldoc like so ... `perldoc -f stat` [download]	[reply] [d/l] [select]
Re: Checking filesizes by vivapl (Acolyte) on May 05, 2003 at 19:48 UTC
Thank you kindly! It worked great	[reply]