File::stat gives you a by-name access to stat() values (actually it returns an object). If you'll not use them, just use the CORE stat function (which returns an array)... Else, something like this will work:
Code
my @files = <*.txt>; # all txt in current dir my $stat; foreach my $file (@files) { $stat = stat $file or die "Error: $!"; printf "%st%st%sn", $file, format_size($stat->size), format_time($stat->mtime); }
Donate to UBBDev today to help aid in Operational, Server and Script Maintenance, and Development costs.
Please also see our parent organization VNC Web Services if you're in the need of a new UBB.threads Install or Upgrade, Site/Server Migrations, or Security and Coding Services.
