Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my $i = 0;
- for ($i==1; $i <= 5; $i++) {
- my $cat_name = 'cat'.$i;
- if ($params->{$cat_name} =~ /^\d+$/) {
- $cat_name = $dbh->quote($cat_name);
- print STDERR qq~$params->{$cat_name}\n~;
- } else { print STDERR "ololo\n";}
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement