Mahlzeit Leute!

Ich bin rel. neu in der Perl Programmierung, habe schon einige andere Sprachen ausprobiert, benötige nun aber Perl für die Arbeit, wo wir verschiedene Dateien verschicken und den Inhalt manipulieren.
Nun bin ich auch ein Skript gestoßen, dass folgenden Vergleich enthält:

$part = ~s/^(.*\/).*$/\1/g;    # Das ist Magie... ;-)


Ich verstehe zwar, dass das eine suchen/ersetzen Funktion ist, die irgendwas am Anfang der Zeile etwas sucht, und das /g am Schluß sagt wohl aus dass es jedes Mal true ergibt, wenn die Schleife ein neues zuvergleichendes Objekt gefunden hat. (Der Ausruck steht in einer foreach-Schleife)
Aber letztlich verstehe ich es nicht.
Kann mir das jemand erklären? Wäre sehr nett, mit den Tutorials komme ich nicht recht weiter..

Vielen Dank im Vorraus!

Gruß,
Speedriff

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2013-11-25 11:44:29 +0100 (CET)