Advertisement
Guest User

Query Writer.pl

a guest
Dec 19th, 2013
133
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.50 KB | None | 0 0
  1. open(my $fh, '>', 'queries.txt') or die "Could not open file 'queries.txt' $!";
  2. print "Starting!\n";
  3. my $count = 0;
  4. my $min = 56;
  5. my $max = 1001;
  6. for($i = $min; $i < $max; $i++)
  7. {
  8.     print $fh "INSERT INTO items (id) VALUES ('$i');\n";
  9.     if($i < ($max -1))
  10.     {
  11.         print $fh "DELETE FROM items WHERE id = '$i';\n";
  12.     }
  13.     else
  14.     {
  15.         print $fh "DELETE FROM items WHERE id = '$i';";
  16.     }
  17.     $count++;
  18.     print "Query $count processed.\n";
  19. }
  20. close $fh;
  21. print "Processed $count queries.\n";
  22. print "Done!\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement