----- Original Message -----
my $mystring = 'var1=123::var2=abc456::var3=10.99::var4=def';
my %NamesToValues = $mystring =~ /([^\:=]+)=([^\:]*)/g
Excelent!!! :-)
Please donate my beer reward to Doctors Without Borders.
I must send 100 liters barrel of Pilsner Urquell to DWB via modem right now
:-)))
Petr Vileta, Pilsen, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
