banna split it aint

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: banna split it aint by japhy (Canon) on Feb 10, 2000 at 05:44 UTC
unpack() is NOT sick. Simple string splitting is something that unpack() is great for, and it's a great way to LEARN how to use unpack(). You could also use: `push @parts, substr($num,0,3,"") while $num ne "";` [download]	[reply] [d/l]
Re: banna split it aint by vince (Initiate) on Feb 09, 2000 at 21:13 UTC
you can use this `($item6, $item5, $item4, $item3, $item2, $item1) = split //, $number` [download] or this `($item6, $item5, $item4, $item3, $item2, $item1) = split '', $number` [download] but i suspect that what you need is an array, so you should do this `@items = split //, $number` [download] or if you want it the the reverse order `@items = reverse split //, $number` [download]	[reply] [d/l] [select]
Re: banna split it aint by btrott (Parson) on Feb 09, 2000 at 23:24 UTC
Or you could use: `my @items = reverse unpack 'A'x(length $number), $number;` [download] which, from my benchmarking, is slightly faster, and probably more easily extended to splitting a string on variable-length segments. Say, for example, that you wanted to split your string into segments of length 3: `my @items = reverse unpack 'A3'x(length($number)/3), $number;` [download] Not that you asked about that, of course. :)	[reply] [d/l] [select]
Re: banna split it aint by jamieamieamily (Initiate) on Feb 10, 2000 at 07:38 UTC
What about something like the following (it works for me): `$number = 123456; ($item1,$item2) = ($number =~ /(\d)(\d)/);` [download] where, if $item1 or $item2 need to be greater than 1 digit you can just add "\d"'s	[reply] [d/l]
RE: banna split it aint by Anonymous Monk on Feb 10, 2000 at 03:10 UTC
unpack? You guys are sick. How about nice and simple? `@items = ( $num =~ /\d/g );` [download] will do what you want, as long as you are certain you always want it split into individual digits. To be more interesting, `@items = ( $num =~ /\d{1,$n}/g );` [download] will split the number into as many groups of $n digits as it can and the last element of the array will be any remaining digits (ie, length($num) % n ). Mik	[reply] [d/l] [select]
RE: banna split it aint by vince (Initiate) on Feb 09, 2000 at 21:22 UTC
you can use this `($item6, $item5, $item4, $item3, $item2, $item1) = split //, $number;` [download] or this `($item6, $item5, $item4, $item3, $item2, $item1) = split '', $number;` [download] but i suspect that what you need is an array, so you should do this `@items = split //, $number;` [download] or if you want it the the reverse order `@items = reverse split //, $number;` [download]	[reply] [d/l] [select]
RE: banna split it aint by Anonymous Monk on Feb 10, 2000 at 02:02 UTC
$foo = '123456'; @items = reverse(split //,$foo); foreach $item (@items){ $i++; $temp = 'item'.$i; $$temp = $item; print"$$temp\n"; } Though, if you don't need having the items in their own individual variables, you can skip the foreach loop and simply use @items.	[reply]