Hallo Leute,
ich habe hier ein (mehr oder weniger schoenes) Perl-Script vor mir liegen, und moechte gerne wissen, was einzelne Zeilen bedeuten:
Code:
$cmd = $ARGV[3];
$cmd=~ s/(.*);$/$1/eg;
$cmd=~ s/(.)/"%".uc(sprintf("%2.2x",ord($1)))/eg;
Die erste Zeile habe ich noch verstanden: der Variable "cmd" wird der Wert des vierten Parameters zugewiesen. Aber was bedeuten die anderen Befehle? Ich hab nur rausgefunden, dass es sich um Replace-Functions handelt, aber dann hat die Kombination aus Internet und meiner bescheidenen Logik versagt
Kann mir bitte jemand sagen, was hier gesucht bzw. ersetzt wird?
Und noch was: falls jemand erkennen sollte, woher die Zeilen kommen, erwaehnt es nicht, und an die anderen: fragt mich nicht woher sie kommen.
Greetz
alcaeus
[edit]
3000?
[/edit]