Internen Counter

Hallo.

Ich brauche einen internen Counter, der jedes mal um ‚1‘ erhöht wird, wenn ich das Perlscript erneut aufrufe. Hat jemand eine Idee, wie man das anstellen kann?

Gruss Fritz

Hallo,

Ich brauche einen internen Counter, der jedes mal um ‚1‘
erhöht wird, wenn ich das Perlscript erneut aufrufe. Hat
jemand eine Idee, wie man das anstellen kann?

Du musst sie irgendwo speichern, in einer Datei oder einer Datenbank. Einfaches Beispiel:

#!/usr/bin/perl
use warnings;
use strict;
my $file = glob("~/.counter");
open (IN, , $file) or die "Can't read $file: $!";
my $var = ;
close IN;
chomp $var;
$var++;
print $var, $/;
open(OUT, "\>", $file) or die "Can't write $file: $!";
print OUT $var, $/;
close OUT;

Noch Fragen?

Grüße,
Moritz

Sehr geil. Funktioniert perfekt. DANKE!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]