Re^2: Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string)

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

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

Replies are listed 'Best First'.
Re^3: Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string) by Aristotle (Chancellor) on Oct 10, 2005 at 02:30 UTC
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]
Re^4: Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string) by gman (Friar) on Oct 10, 2005 at 02:44 UTC
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]
Re^5: Iterate string like, for(1..5) i.e. $stirng="1..5"; for($string) by GrandFather (Saint) on Oct 10, 2005 at 03:08 UTC
This may be of interest: `my @ranges = ('2..5,10..15', '2..5', 'die', '-2..5,10..15'); my $match = qr /^\d+\.{2}\d+(,\d+\.{2}\d+)*/; print ((m\|$match\| ? "ok: " : "Rejected: ") . "$_\n") for (@range +s);` [download] No need to throw out the `eval` through pathalogical fear when validating the data in a simple fashion removes the danger of an exploit. Perl is Huffman encoded by design.	[reply] [d/l] [select]