stat() problem

[Petterson Mikael]

Hi,

I am trying to get change time of a directory with the following perl
snippet. @allfiles are containing the directory names.

foreach (@allfiles) {
if ( -d "$dir/$_"){
print "$dir/$_\n";
$mtime = (stat("$dir/$_"))[9]; # modify time
print "$mtime";
}
}

I get the following error message:

Use of uninitialized value in string at test.pl line 17

Which is this line:

print "$mtime";

Any hints!

//Mikael

 

[Arndt Jonasson]

I am trying to get change time of a directory with the following perl
snippet. @allfiles are containing the directory names.

foreach (@allfiles) {
if ( -d "$dir/$_"){
print "$dir/$_\n";
$mtime = (stat("$dir/$_"))[9]; # modify time
print "$mtime";
}
}

I get the following error message:

Use of uninitialized value in string at test.pl line 17

Which is this line:

print "$mtime";

Any hints!

What does stat("$dir/$_") return? If an empty list, what does $! say?

 

[Michele Dondi]

Hi,

I am trying to get change time of a directory with the following perl
snippet. @allfiles are containing the directory names.

foreach (@allfiles) {
if ( -d "$dir/$_"){
print "$dir/$_\n";

as a side note, I'd do

#!/usr/bin/perl -l
# ^^
# ^^
# or set $\ local()ly later,
# according to how big your script really is.
# ...

use strict;
use warnings;

# You always include these lines, don't you?
# If you don't... do!

for (map "$dir/$_", @allfiles) {
next unless -d;
print;
print +(stat)[9];
}

# So that I can take advantage of $_ being the topicalizer...

I get the following error message:

Use of uninitialized value in string at test.pl line 17

Said this, you shouldn't get this error, so I guess it stems from
something else you didn't include in your post. Can you prepare a
full, self-contained, but still minimal example script exhibiting the
problem?


Michele