Nein, schönen Dank fürs Post.  <img border="0" title="" alt="[Lächeln]" src="images/icons/smile.gif" />

Aber nen paar Sachen verhalten sich hier anders als ich gedacht hätte.

Zunächst die $_:

Wieso kommt kann ich auf die in der Routine zugreifen. Ich dachte in dem Moment, wo man in den Geltungsbereich der @_ kommt, verliert $_ die Gültigkeit. Weiter versteh ich nicht wieso man anscheinend mit einer Referenz auf $_ und nicht mit einem Call bei Value arbeitet. Wenn ich das hätte machen sollen, hätt ich $_ brav als Parameter übergeben und zum Schlu� brav returnt.

Zum regulären Ausdruck:

#$_[0]#

is klar.

mein Fehler war (unter anderem), das ich über eine Anweisung wie:

#$s#(.+?)(#|$)#/$instrumente{$s}$1$2/ig;

Das was ich merke nur bis zu der nächsten Fundstelle eines # haben wollte. Das gab natürlich probleme wenn ich die Musiker der Nächstes Kürzels finden wollte, der reguläre Ausdruck aber natürlich alle schon übersetzten Schlüssel mitgesaugt hat.

Wenn ich das richtig verstehe, dann merkst du dir über

([^#]+) den rest des Strings und setzt in hintendran wieder ein.

Neinnein, stimmt gar nicht, das ^ in der Zeichenklasse steht ja für alle Zeichen ausser den angegebenen. Und dann merkst du dir doch nicht den ganze String sondern genauso wie ich alles bis zum nächsten #xxx#. Bei der Methode wird blo� die Reihenfolge beibehalten und deshalb kommts blo� nicht durcheinander.

Manman. Ich werds am WE mal probieren einzubauen.

erstmal danke,

sel,

btw:

Ich find den call ne bisschen umständlich da es wie gesagt eine ganze Liste von Kürzel ist, aber man könnt deine Funktion ja auch gut so unterbringen:

open(KUERZEL, $kuerzeldatei) or die ("Shit, $!");
while($zeile = <KUERZEL>) {
chomp($zeile);
ES(split(/ +/, $zeile);
}

die Schlü�el - Wert Paare liegen alle in ner Datei durch Leerzeichen getrennt.

Naja, wird wohl klappen. Wenn nicht werd ich mich auf jeden Fall noch mal melden,

thx, sel.

Mir ist noch was eingefallen,
man kann das ja ein wenig komfortabler machen:

$_ = '#IORG# Geffert, Johannes #OD# Scheerer, Ingeborg #OR# Johann Christian Bach-Akademie';

@I =
(
'IORG', 'Orgel',
'OD',   'Dirigent / Band Leader',
'OR',   'Orchester (Instrumentalensemble / Sinfonieorchester)'
);

for($i=0;$i<@I/2;$i++)
{$_=~s/#@I[$i*2]#([^#]+)/<nobr>$1 <tt  style='color:red'>(@I[$i*2+1])</tt></nobr><br>/;};

print $_;

Dann hättest Du Deinen hash, bloß eben als array.

und nochen gruß

matho

Wie wär's, wenn Du Dir statt des hashs ne subroutine schreibst, etwa so:

$_ = '#IORG# Geffert, Johannes #OD# Scheerer, Ingeborg #OR# Johann Christian Bach-Akademie';

sub ES(){$_=~s/#$_[0]#([^#]+)/<nobr>$1 <tt  style='color:red'>($_[1])</tt></nobr><br>/;};

&ES('IORG','Orgel');
&ES('OD','Dirigent / Band Leader');
&ES('OR','Orchester (Instrumentalensemble / Sinfonieorchester)');

print $_;

Das bringt Dir Reihenfolge nicht durcheinander.

gruß

matho