File handliing problem: *gähn* - #78415 (Allgemeines zu Perl)

FlorianL

2007-07-12 17:09

User since
2007-05-18
142 Artikel
BenutzerIn
[default_avatar]

ich hab für meinen bot ein statfile angelegt.

wenn datei nicht vorhanden -> erstellen und 1 reinschreiben,
wenn datei vorhanden -> auslesen und wert $var zuweisen

nun wird aber immer wieder die datei neu erstellt, und ich weiss nicht wieso? liegts am operator?

Code (perl): (dl )

my $statsfile = ("$config{username}.dat");
if (-e $statsfile) {
        system("touch $statsfile && echo 1 > $statsfile");
}
open(STATS, '+>', "$statsfile") or die "Error: Couldnt open $statsfile";
my @globatts = <STATS>;
my $globalatts = $globatts[0];

Code (perl): (dl )

sub attack {
        print color("green"), "Attack started...\n", color("reset"), "This Session: ", color("white"), "$sessionatts\n", color("reset"), color
("white"), "Global: $globalatts\n", color("reset");
        $sessionatts++;
        $globalatts++;
        print STATS $globalatts;
        [...]

ich weiss das ich normal kein array bräuchte, aber wenn ich STATS ner $var zuweise klappts nich...?!