my ($var1, $var2, $var3) = (12, 34, 45);
[download]

In the former case, I'd use substr:

my $str = 123445;
my $l = int (length ($str) / 3); 
my $var1 = substr $str, 0, $l;
my $var2 = substr $str, $l, $l;
my $var3 = substr $str, 2 * $l;
[download]

my @vars = $str =~ /..?/g;
[download]

Abigail

Im sorry...I had a typo...I meant it to be 12 33 and 45...and yes I meant in a general case, and THAT was an example...

But thanks for your reply...that's what I was looking for...

A nice simple match will cover it:

my ($var1, $var2, $var3) = $numberstring =~ /(\d{2})/g;

--
Steve Marvell

my @vars = grep length, split /(..?)/, $str;
[download]

-Blake

That's awesome Blake, like your solution :)
But what "grep length" does in here? 

the following:
my @vars = split /(..?)/, $str ;

return:
 12 34 56 
^ there is one space here, why?

and grep length get rid of the space, how that magic works?


-perlkid

Normally split is used to extract the stuff between delimiters. The delimiters are tossed aside, and the resulting list doesn't contain them. However, this behavior can be modified, and we can keep the delimiters if we want to:

From the split documentation:

If the PATTERN contains parentheses, additional array elements are cre
+ated from each matching substring in the delimiter.

    split(/([,-])/, "1-10,20", 3);

produces the list value

    (1, '-', 10, ',', 20)
[download]

In my example, the delimiters are the parts we want to keep, the stuff between the delimiters is empty and needs to be thrown away. Without the grep, the list you're getting back is actually

('', 12, '', 34, '', 56, '')
[download]

Where 12,34,56 are the delimiters matched by the regex and the empty strings are the "data" between the delimiters. Obviously those empty strings have got to go, so we get rid of them by grepping out things that have no length.

-Blake