Split function 2

[stevio]

Have simple piece of code

$string = "1234";
@val = join(':',split(//,$string,2));
print @val;

__RESULT__

1:234

How can I get the result like 12:34 instead using the join function?

Is the only way to do this?

@val = split (//,$string);
print $val[0].$val[1].":".$val[2].$val[3];

 

[feherke]

Hi

$string = "1234";
$string =~ s/(\d\d)/\1:/;
print $string;

Feherke.

http://rootshell.be/~feherke/

 

[KevinADC]

Why would you want to do that using split? If you know the string is alway four digits there are better options, unpack() and substr() or s/// regexp like feherke sh

------------------------------------------
- Kevin, perl coder unexceptional!

 

[KevinADC]

Well, I'm bored:

$string = "1234";
substr $string,2,0,':';
print $string;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stevio]

Thx to you both, have a star each!!