Maybe this??
$line =~ s/([^:])*:/\e:$1/g; #Substitute pattern instead of : in
regexp
$line =~ s/^\e(.*)/$1/; #Ommit first \e character
@answer =~ split(/\e/, $line); #That's all!
Should Work
>From Russia with love!!! It's getting cold here ;-)
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, October 22, 2001 8:05 PM
Subject: How to split it?
> if I split:
>
> $line = "1:2:3:4:5";
> @aaa = split (/:/ ,$line);
>
> I will get: @aaa = (1,2,3,4,5)
> How if I want to get: @aaa = (":1",":2",":3",":4",":5") how to do it?
> (":" can be a pattern)
>
> TIA,
> basssang
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
