in reply to Usage of a sparse file

I've found this works

my $total=`du --block-size=1 $line`;
my $junk;
chomp($total);
($total,$junk)=split /\t/, $total, 2;

[download]
But I'd like to do it in perl rather than calling out to the shell.

Replies are listed 'Best First'.
Re^2: [OT]: Usage of a sparse file
by AnomalousMonk (Archbishop) on Mar 11, 2013 at 17:10 UTC

    Just a parenthetic note. If  $junk is something you don't care about at all, then you don't need to bother capturing it: 

    >perl -wMstrict -le
"my $total = qq{123\tasdfghhj\n};
 print qq{[$total]]};
 ;;
 ($total) = split /\t/, $total, 2;
 print qq{'$total'};
"
[123    asdfghhj
]]
'123'

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom