mit einem regulären Ausdruck kann man den Disclaimer wirklich viel eleganter entfernen. Allerding muss der Modifier s sein und nicht m (damit der ganze String als eine Zeile gesehen wird).

Vielen Dank, hab den Code entsprechend angepasst. (Demnächst sollte ich mal den restlichen Code vom zBot durchgehen und nach solchen ungünstigen Konstrukten ausschau halten.)

Viele Grüße
zimon

    for my $index(1..$#outputLines){
        $df .= $outputLines[$index]."\n";
        last if $index == $#outputLines;
    }

würde ich gerne wissen, warum von 1 weg … den disclaimer schneidest eh schon mit shift weg.
Dann würde ich einfach noch ein shift nehmen, falls notwendig.

Die Schleife reduziert sich dann auf

    $df = join("\n", "Ausgabe von whois:\n", @outputlines);

Und das mit splitten und joinen versteh ich auch nicht ganz …
Warum nicht einfach

    my $output = `whois $domain`;
    my $df = "Ausgabe von 'whois $domain':\n\n";

    # remove first paragraph (because its the disclaimer)
    $output =~ s/^.*?\n\s*\n//m;
    return $df . $output;

Wenn nach dem disclaimer noch was entfernt werden sollte (wg. index >=1 oben), würde ich das ins s/// dazunehmen.

hast Recht, ich hab die Zeile an der falschen Stelle eingefüfgt. Hab auch vergessen das Escapezeichen vor den Punkt zu setzen.
Jetzt sollte die Benutzereingabe richtig gefiltert werden.

Oder hab ich noch was vergessen?

Viele Grüße und Danke für den Hinweis
zimon

ich muss zugeben, dass ich an deise Möglichkeit garnicht gedacht habe. Eigentlich weiß ich ja, dass man Usereingaben immer Filtern sollte, aber ich habe es dieses mal total vergessen.

Die Dateien im Home-Verzeichnis werden trotzdem nicht gelöscht, da der String nach Leerzeichen gesplittet wird und somit höchstens ein bla.de;rm möglich wäre.

Ich habe trotzdem besser mal einen Filter eingebaut. Vielen Dank für den Hinweis. Ich sollte echt mehr darauf achten.

Viele Grüße,
zimon