Hallo zusammen

ich muss gestehen, Perl ist leider nicht ganz meine Welt. Ich komme eigentlich von der Konkurenz-(PHP) Schiene.

Jetzt ist mir aber gerade ein Uralt-Skript in die Hände gefallen, das ich überarbeiten muss. Und da hab ich ein kleines Problem.

Folgende Situation:

In einem Eingabefeld wird aus einem Popup per JS ein Firmenname und die Firmen-ID in folgendem Syntax eingefügt:
Name (ID)

Im Skript wird dann die ID auf diese Weise extrahiert:
if ($DOCUMENT{companylink} =~ /\(([^\)]*)\)/) {
$ID_COMP_AIID = $1;
}

Diese Abfrage geht natürlich schief, sobald der Firmenname auch noch eine Klammer enthält.

Habt ihr eine Idee für mich, wie ich gezielt die letzte Klammer herausbekomme?

Ich wäre sehr dankbar für eure Hilfe!

Wäre nett, wenn Du noch ein paar (Dummy-)Beispieldaten posten würdest. Aber das sollte gehen:

Dummy beispieldaten, hmmm

zum beispiel
Firma XY (5s2v47s5d7f)
Firma XY (Filiale Darmstadt) (d55g878w65x)
Firma XY (Abt. sonstwas) GmbH (Filiale Darmstadt) (55cs8e5)


Es muss jeweils der Inhalt der letzten Klammer gezogen werden.

Das sollte mit meinem Code funktionieren...