RosettaCodeData/Task/File-size/Perl/file-size-2.pl
2016-12-05 22:15:40 +01:00

3 lines
120 B
Perl

use File::Spec::Functions qw(catfile rootdir);
my $size1 = -s 'input.txt';
my $size2 = -s catfile rootdir, 'input.txt';