Turn on use strict;
at the beginning of your script. You'll find that there's a problem with the way you're calling stat
. Unless you need to open
the file for some other reason, don't. Skip the whole FH stuff.
But, your bigger problem is you're trying to stat
a file but you're not giving the full path to the file. chdir
to the folder (or pass the full path to stat
).
This works for me:
#!/usr/bin/perl
use strict;
use warnings;
use File::stat;
my $CosMovFolder = '/Logs/Movies';
chdir($CosMovFolder) or die $!;
#sorting files based on modification date
opendir (DIR, $CosMovFolder);
#Grab all items that don't start with a period.
my @moviedir = grep(/^[^\.]/, readdir(DIR));
#$file1modtime = -M $dir[1]; # tried this, not working. same uninitialized value error message
closedir(DIR);
@moviedir = sort { -M "$CosMovFolder/$a" <=> -M "$CosMovFolder/$b" } (@moviedir); #sorting files by modification dates
my $latestfile = $moviedir[0];
print "file is: $latestfile\n";
print localtime(stat($latestfile)->mtime) . "\n";
Hope that helps!