Dummy file mit bestimmter Größe erzeugen? - #109719 (Allgemeines zu Perl)

Dubu

2008-05-15 02:06

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Man muss nicht wirklich so viel auf Platte schreiben - wenn es nicht auf den Inhalt ankommt:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $size = 1_000_000;

open my $bigfile, '>', 'bigfile' or die $!;
seek $bigfile, $size-1, 0;
print $bigfile "\0";
close $bigfile;

Wichtig ist nur, dass man am Ende auch etwas hineinschreibt, sonst bleibt die Datei bei 0 Bytes. :)