note
broomduster
<blockquote><i>
Does someone know how to create sparse files with Perl without using a system command?
</i></blockquote>
How about this:
<c>
open my $fh, '>', 'zeros' or die "error opening fh: ($!)";
binmode $fh;
print $fh pack "x512"; #512 bytes-- season to taste, loop as needed
</c>
716315
716315