truncate - #59865 (Allgemeines zu Perl)

Froschpopo

2005-11-07 20:59

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

habe folgendes:

Code: (dl )

#!/usr/bin/perl

use strict;

open(FILE, "+<stats.txt")
    or die $!;

my @array = ();

while (<FILE>)
{
    push @array, $_;
}
seek FILE,0,1;
truncate FILE, 0;

print FILE @array;
close(FILE);

wenn ich mir die datei aber danach mal anschaue, dann hat er immer leerzeichen an den begin der datei geschrieben. WARUM?\n\n