SHARE
TWEET

Untitled

a guest Aug 12th, 2017 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. my $i = 0;
  2. for ($i==1; $i <= 5; $i++) {
  3.     my $cat_name = 'cat'.$i;
  4.     if ($params->{$cat_name} =~ /^\d+$/) {
  5.         $cat_name = $dbh->quote($cat_name);
  6.         print STDERR qq~$params->{$cat_name}\n~;
  7.        
  8.     } else { print STDERR "ololo\n";}
  9. }
RAW Paste Data
Top