String splitten, aber Trennzeichen merken - #54316 (Allgemeines zu Perl)

Froschpopo

2005-04-29 20:54

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Ich hab einen string:

Code: (dl )

$string = 'hallo welt :-), mir geht es gut;-)';

jetzt brauche ich ein Array welches so aussieht:

Code: (dl )

@array = (
     'hallo welt',
     ':-)',
     , mir geht es gut'
     ';-)'
)

wie man sieht, verwende ich Smilies als eine Art "Trennzeichen".
Mein Ansatz war, den String nach einer Liste von Smilie-Separatoren mit split zu durchsuchen. Allerdings brauche ich auch den Name des jeweiligen Smilies der den String gesplittet hat.
Hat jemand eine Idee ?
Die Trennzeichen möchte ich aus einem Hash beziehen:

Code: (dl )

my %emotes = (
     ':-)' => 'smile.gif',
     ';-)' => 'zwinker',
     '*kiss' => 'kiss.gif'
#usw.
);

\n\n