Skript ist nach dem Hochladen nicht zum laufen zu kriegen

[Zimmi]

lokal -> windows/linux?

lokal windows.

ohne ein paar codeschnipsel schwer zu sagen.
schmeiss doch mal ein bisschen deines scripts rüber, dann gehts viel schneller, dir zu helfen.

OK: Hier der Ausschnitt, der die Datei ausliest:

sub KonfigurationAuslesen {
    my $wert1; my $wert2;
    # Zuerst die Übergabewerte auswerten
    my @parameter = split(/&/, $ENV{QUERY_STRING});
    foreach (@parameter) {
       ($wert1, $wert2) = split(/=/, $_);
       if ($wert1 eq "Galerie") {$URLGalerie=$wert2}
       elsif ($wert1 eq "BildAnzeigen") {$BildNummer=$wert2};
    } # of foreach @parameter

# Die Konfigurationsdatei wird geöffnet
    open (DATEI, "<$URLGalerie") || die ("Galeriedatei $URLGalerie nicht gefunden!");
    my @Zeilen = <DATEI>;
    close(DATEI);

foreach(@Zeilen) {
       # Zuerst alle Zeilen, die mit # beginnen, entfernen.
       $_ =~ s/^#.*//;
       # Jetzt prüfen, ob es sich um eine Leerzeile handelt
       if ($_ !~ /^\s*\n/){
          # Zuerst prüfen, ob ein ; vorkommt, in diesem Fall in Bilderarray schreiben
          if ($_ =~ /;/) {
             ($wert1, $wert2) = split(/;/, $_);
             push(@Bilder,[$wert1,$wert2]);
          } # of if ;
          # Ansonsten testen, ob ein = enthalten ist.
          elsif ($_ =~ /=/) {
             ($wert1,$wert2) = split(/=/, $_);
             if ($wert1 eq "PfadZuBildern") {$PfadZuBildern=$wert2}
             elsif ($wert1 eq "Titel") {$Titel=$wert2}
             elsif ($wert1 eq "Background") {$Background=$wert2}
          } # of elsif =
       } # of if keine Leerzeile
    } # of foreach @Zeilen
} # of sub KonfigurationAuslesen