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.-_ ↩︎

[steckl]

Hi,

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....

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"); }
}

Wie genau ist denn der Name deiner Datei? Kann es sein, dass darin Großbuchstaben vorkommen? Dein Regulärer Ausdruck trifft nämlich nur auf Dateinamen, die aus Kleinbuchstaben, '.', '-' und '_' bestehen.

mfG,
steckl

---

1. a-z.-_ ↩︎

[wolfi]

Hallo,
Danke für den Tip... wie kann ich großbuchstaben miteinfassen? lg wolfgang

Hi,

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....

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"); }
}

Wie genau ist denn der Name deiner Datei? Kann es sein, dass darin Großbuchstaben vorkommen? Dein Regulärer Ausdruck trifft nämlich nur auf Dateinamen, die aus Kleinbuchstaben, '.', '-' und '_' bestehen.

mfG,
steckl

---

1. a-z.-_ ↩︎

[steckl]

Hi,

Danke für den Tip... wie kann ich großbuchstaben miteinfassen?

Hier einfach ein "i" hinter den RegExp:
if(param('dateiname') !~ /^[1]+?.([a-z]{3})$/i)
                                                     ^

if(!grep($extension,@extensions))
  { die("Ungültige Dateiendung"); }
 }
ob du dem Grep beibringen kannst, nach Groß- und Kleinbuchstaben zu suchen weiß ich nicht, notfalls müsstest du das mit einer Schleife lösen.

mfG,
steckl

---

1. a-z.-_ ↩︎