Sebastian Nebel: Dateiname ohne Pfadangabe auslesen

Mit:

#!/usr/bin/perl

$File = $ENV{'QUERY_STRING'};
use File::Basename;

print "Content-type:text/html\n\n";
        print "<CENTER><IMG SRC="$File"></CENTER>";
        print basename($0);

Damit bekomme ich nur den Namen des aktuell ausgeführten Scripts. Ich möchte jetzt aber nur den Namen des Bildes (File) in der Form hallo.jpg
Kann mir jemand sagen, wie das funktioniert?

  1. Keine Ahnung.

    Aber den Befehl <center></center> soll man doch nicht mehr verwenden?

  2. Hallo Sebastian, <-- sowas nennt man eine Begruessung,

    $File = $ENV{'QUERY_STRING'};
    use File::Basename;

    print "Content-type:text/html\n\n";
            print "<CENTER><IMG SRC="$File"></CENTER>";
            print basename($0);

    Damit bekomme ich nur den Namen des aktuell ausgeführten
    Scripts.

    Dann ist der Query-String leer. Du musst auch schon einen
    Query-String uebergeben, wenn du ihn auswertest. Besser eignen
    wuerde sich ueberigens CGI.pm

    Gruesse,
     CK