Or you could look in perlfunc for a better waysub split_by_colon { my $string=shift; my @parts; while (length $string) { push @parts,"" unless @parts; my $char=substr($string,0,1,""); unless ($char eq ":") { $parts[-1].=$char; } else { push @parts,""; } } return @parts; }
;-)
Yves / DeMerphq
---
Software Engineering is Programming when you can't. -- E. W. Dijkstra (RIP)
In reply to Re: string manupulation
by demerphq
in thread string manupulation
by venki
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |