upload sicherung

[Wolfgang]

hallo, ich möchte meine files mit unten genanntem script-teil sichern. leider funktionert es nicht. fehlerausgabe: dateiname kann nicht gefunden werden... obwohl er so definiert ist....
danke für die hilfe wolfgang

my @extensions = "txt dat gif jpg";

if(param('dateiname') !~ /^[1]+?.([a-z]{3})$/)
 { die("Ungültiger Dateiname"); }
else
 {
 my $extension = $1;
 if(!grep($extension,@extensions))
  { die("Ungültige Dateiendung"); }
 }

---

1. a-z.-_ ↩︎