Beispiel für Einsteiger - #156064 (Allgemeines zu Perl)

rosti

2012-02-13 09:08

User since
2011-03-19
3211 Artikel
BenutzerIn

Code (perl): (dl )

1
2

- die URL wird in Firefox geöffnet
- es erscheint auf der Befehlszeile die Abfrage, ob die URL übernommen oder verworfen wird

Das geht weder mit Perl, noch mit einer anderen Sprache zu machen: eine Befehlszeile. Du meinst wahrscheinlich ein Eingabefeld.

Das müssen jedoch dann mehrere URLs sein, also nicht nur eine, wie Du schreibst. Die Steuerung des Scripts erfolgt dann über Parameter, welche in einer Kontrollstruktur abgefragt werden, hier ein kleines Beispiel:

http://rolfrost.de/cgi-bin/mail.cgi <- online zum Testen

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use IO::File;

my $u = CGI->new;

if($u->param){
        if($u->param('vote')){
                # Datei serverseitig einlesen
                my $fh = IO::File->new;
                $fh->open("$ENV{DOCUMENT_ROOT}/robots.txt", "r") or do{
                        print $u->header, $u->h1("Fehler beim Lesen der Datei: $!");
                        exit;
                };
                read($fh, my $in, -s $fh);
                $fh->close;
                # die entsprechenden Header und die Datei zum Download
                print "Content-Disposition: attachment; filename=robots.txt\n";
                print "Content-type: text/plain\n\n";
                print $in;
                # weitere Aktionen: Kommentar serverseitig speichern... u.a....
        }
        else{
                print $u->header, $u->h1("Unbekannter Parameter");
        }
}
else{
        print $u->header, $u->h1("Inhalt download?");
        print qq(
                <form action="$ENV{SCRIPT_NAME}">
                        Komentar hier: <input name="comment">
                        <input type="submit" name="vote">
                </form>
        );
}

In der Praxis kommt da natürlich noch Einiges hinzu ;)

Viel Spaß mit Perl,
Rosti