Note that for($x..$y) is optimized to be lazy but that isn't true for for(eval"$x..$y"). For example:

 $ perl
$x=1<<30;
for(1..$x){last;}
warn "first";
for(eval "1..$x"){last;}
warn "second";
__END__
first at - line 3.
core dumped
[download]

The for(1..$x) very quickly tries $_=1 and then exits the loop. The for(eval "1..$x") doesn't even run because it tries to build the entire "1..1<<30" list in memory before it can get started and it runs out of memory and dumps core before then.

Just something to keep in mind.

Ok, now that your question was answered with the use of eval, can you tell us why you want to do that? It is very likely that what you want to do is not the best way to go about it (for many, many reasons), and if you tell us a little more, someone might suggest a better approach for solving your specific task.

Makeshifts last the longest.

I would be happy to explain more,
I am getting input from a CGI query, $cgi->query('range')
the input will look like 1..50,60,100..150 This would probably very much fall under a great
reason why not to use eval for this.

This is what I want to do


#snip
my $range = $cgi->param('range');

for (eval "($range)") { # Is there a better way?
print "$_\n";
}
[download]


Thanks again,
gman

Indeed, that’s a scenario where you really really don’t want to use eval.

How constrained is the format? If sufficiently so, how about parsing the input manually? Assuming the dots and commata are the only “metacharacters”, you could do something like this:

my @range =
    map { m{ (\d+) \s* \.\. \s* (\d+) }msx ? $1 .. $2 : /(\d+)/ }
    split /,/, $range;
[download]

This breaks the string apart at the commata, then tries to match something that looks like a range; if it succeeds then it uses the regular range operator to make a real range out of it. If it fails, it returns the first sequence of digits it finds.

It should work correctly for any combination of ranges and single numbers strung together with commata. It’s also pretty lenient and will accept whitespace within ranges and any sort of non-digit garbage everywhere else – that might not be what you want, or might be just fine. Your call.

It will also not work for negative numbers and for fractional components. If you need to match more than just positive integers, the quickest and most robust way is probably to employ Regexp::Common.

Makeshifts last the longest.

Yuck..Foo

#!/usr/bin/perl

  use strict;

  my $beg = 1;
  my $end = 5;

  for my $i ($beg..$end) {
    print "$i\n";
  }
[download]

And your question is .... ?

But what is the question? What do you expect to see printed?

I would like my output to be the same using as
explecit for(1..5) or a string in it's place for($string)
where $string = "1..5";
Thanks

Do you want something like:

my $range = "2..5,10..15";
my @ranges = eval "($range)";
[download]

---

Perl is Huffman encoded by design.

my $range = "2..5,10..15";

# Split on commas
my @range = split /,/, $range;

# Expand any n..m
@range = map { /(\d+)..(\d+)/ ? ($1..$2) : $_ } @range;
[download]

Assuming the resulting @range is small (where small is, say, less than 10,000 elements) this will do fine. Error checking is left as an exercise for the reader.