Help! I need somebody! Help! ...

[Help]

use CGI       ':standard';
use CGI::Carp 'fatalsToBrowser';
use strict;

open NEU, "counter.txt" or die "Kann counter.txt nicht oeffnen: $!";

my $dataa = <NEU>;

$dataa= $dataa + 1;
close(NEU);

open DATEI, ">counter.txt" or die "Kann Datei counter.txt nicht oeffnen: $!";
print DATEI $dataa;
close(DATEI);

my $url = &param('url');
print redirect("../$url");

Hallo!

Was bedeuten die ersten 3 Zeilen? Und warum funktioniert das script nur mit
"my" vor der Variable?

Danke

[Daniel Thoma]

Hallo

Ein richtiger Name oder meinetwegen auch Nick wären schon besser.
Dein Treadtitel ist im übrigen _sehr_ aussagekräftig!

use CGI       ':standard';
läde das CGI modul, braucht das Script zum einlesen der Parameter und zur Umleitung.
use CGI::Carp 'fatalsToBrowser';
Schwerwigende Fehlermeldungen werden zum Browser geschickt
use strict;
Strengere Syntaxregeln z.B alle Variablen müsssen mit my deffiert werden.
Deswegen läuft das script auch nur mit my.

tschüs

Daniel