CODEWITHSUNDEEP
perl
udit Valecha
udit Valecha

Reputation: 1

Perl finding file size

Please find my code snippet

my $filename = "/var/nxt/projs/apr/interfaces/output/ELA/$final_file";

print "File name is \n";
print $filename;
my $filesize =  (stat($filename))[7];
print "pradip output\n ";
print "%s",$filesize;

but the value of filesize is not getting printed

can someone please help???

Upvotes: 0

Views: 86

Answers (3)

mpapec
mpapec

Reputation: 50637

You want to use printf(), not print(),

printf("%s",$filesize);

Also you might want to check if stat actually found your file/file size,

my $filesize =  (stat($filename))[7] // die "no filesize!\n";

Upvotes: 1

Praveen
Praveen

Reputation: 902

See the below code if it is helpful:(For $filename - Give complete path of the file)

my $filename = "c:/Users/user001/Desktop/file.txt";
print "File name is \n";
print $filename . "\n";
print "File size is \n";
print -s $filename;

Upvotes: 0

Chankey Pathak
Chankey Pathak

Reputation: 21666

You can also try -s option

my $filesize = -s $filename;

Upvotes: 0

Related Questions