Hallo Perl-Freunde

Bis auf vereinzelte (meist irgendwo kopierte:-) dreizeiler hab ich noch nix mit Perl gemacht. Für ein etwas größeres Projekt hab ich mir ein Script im Netz gesucht, das einigermassen das macht, was ich brauche.
Beim Versuch, das Ganze nachzuvollziehen bleib ich an einer Stelle hängen:
$file =~ s#$LOCAL_TREE/#$HTTP_REP#g;
Das soll in einem Dateinamen den Pfad ändern. Machts auch. Nur ich verstehs nicht:-) Sollten da statt der# nicht / stehehn? Was bewirken die #?
Ich hab versucht, im Forum zu suchen, nur weiss ich ja nichtmal, wonach8-(
Ein Hinweis auf einen Suchbegriff würde mir also eigentlich schon reichen...

Das ganze Script steht bei http://www.linux-magazin.de/Artikel....se.html
Listing 3



Danke schonmal,


Ronny

Ja und nein, nach dem s-Operator folgt oft /// -also s/.../.../ - doch was ist, wenn Du innerhalb der /// selbst nach einem / suchst, wie in Deinem Fall?

Die Antwort gibt Dir perlre oder auch perlrequick oder auch perlretut ...

[quote=ronny,22.06.2006, 21:23]Beim Versuch, das Ganze nachzuvollziehen bleib ich an einer Stelle hängen:
$file =~ s#$LOCAL_TREE/#$HTTP_REP#g;
Das soll in einem Dateinamen den Pfad ändern. Machts auch. Nur ich verstehs nicht:-) Sollten da statt der# nicht / stehehn? Was bewirken die #?[/quote]
Hi,

s/// ist die übliche Schreibweise.
Wenn Du allerdings in Deinem Such- oder Ersetzungsstring selber den / verwendest, musst Du ihn maskieren, damit er nicht als Begrenzer des s/// gewertet wird:



Das ist unübersichtlicher als:


# ist also einfach nur ein anderer Begrenzer als das /.

Du kannst auch Klammerungen als Begrenzer nutzen:


siehe perlop
Abschnitt für: s/PATTERN/REPLACEMENT/egimosx

Quote

Any non-alphanumeric, non-whitespace delimiter may replace the slashes. If single quotes are used, no interpretation is done on the replacement string (the /e modifier overrides this, however). Unlike Perl 4, Perl 5 treats backticks as normal delimiters; the replacement text is not evaluated as a command. If the PATTERN is delimited by bracketing quotes, the REPLACEMENT has its own pair of quotes, which may or may not be bracketing quotes, e.g., s(foo)(bar) or s<foo>/bar/. A /e will cause the replacement portion to be treated as a full-fledged Perl expression and evaluated right then and there. It is, however, syntax checked at compile-time. A second e modifier will cause the replacement portion to be evaled before being run as a Perl expression.

perlretut beinhaltet auch Hinweise auf das Ersetzen des normalen Begrenzers. Suche dort nach "default delimiter".

perlrequick bringt auch Hinweise. Such dort auch mal nach "delimiter".

mit \Q und \E wäre es wohl auch gegangen!

@relais, esskar: andere begrenzer muss man nur nehmen, wenn im such- oder ersetzungsteil
der slash vorkommt. kommt er allerdings in variablen vor, macht das doch
gar keine probleme:

Im ersten Post ist ja ein / deswegen ist es vollkommen ok was Relais und esskar schreiben...

ach jetzt seh ich's. aber da hilft dann ein \Q auch nicht...

stimmt...