in reply to Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string)

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.

  • Comment on Re: Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string)

Replies are listed 'Best First'.
Re^2: Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string)
by gman (Friar) on Oct 10, 2005 at 02:19 UTC
    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
[reply]
[d/l]

      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.

[reply]
[d/l]
        The input will be constrained and only allow ".." "," and digits.
        And the digits will only be positive whole numbers.
        I have not worked out the regex for this,
        but yours is a starting point.

        And thank you for the explaination of your solution!
[reply]

In Section Seekers of Perl Wisdom