Take $1-$100 and put it into a hash

[Kirsle]

This is a small little question:

How do you take the variables $1 to $100 (as matched through regexp) and put them into a hash, where the keys of the hash would be 1 to 100?

I've tried a few things, such as:

for (my $i = 1; $i <= 100; $i++) {
   # Tried this
   $stars{$i} = \${$i};

   # And this
   $stars{$i} = ${$i};

   # And this
   $stars{$i} = \$i

   # And none of them worked.

   # This was the only solution I could find:
   $stars{$i} = eval ('$' . $i);
}

It seems like there should be an easy solution without having to resort to eval.

 

[ishnid]

Wow - that's some regexp!

You can do it when you run the regexp itself:

my %stars;
@stars{ 1 .. 100 } = $some_variable =~ /some_regexp/;

 

[Kirsle]

Thanks! I knew there had to be a simple one-liner explanation to this one.

 

[KevinADC]

all you had to do was:

for (my $i = 1; $i <= 100; $i++) {
   $stars{$i} = "\$$i";
}

but do your really want to add the dollar sign like that?

 

[ishnid]

I think you've missed the point Kev. That gives the literal string "$1", "$2", etc. The OP is looking for the values of the first 100 capturing groups in a regexp.

 

[KevinADC]

ah, you're right ish, I did miss the point.

 

[PaulTEG]

Amsterdam, should be ...

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)