Perl Columnprinter

Da ich gestern im IRC Leute erlebt habe die tatsächlich bei SQL Injections die selektierten Columns auch wenn es 82 sind mit der Hand an die URL hängen, habe ich mal was kleines getipselt..

+ schreibt die Columns in der fertigen Schreibweise in ein Textdokument wie z.B. 1,2,3,4,5,6,7,8,9,10

Vielleicht brauchts ja jemand hier;)

Code:

---


#!/usr/bin/perl
use strict;
use warnings;
print "\n\nColumnprinter for SQL Injections by fred :>\n\n";

my $count = shift or die ("Usage: [Count] [Path]\n");
my $path = shift or die ("Usage: [Count] [Path]\n");

if($count =~ m/\d+/)
{
open(FILE, ">$path") or die("Error, its a bad path\n");
print FILE "Columns:\n";
for(my $i=0;$i<$count;$i++)
{
print FILE $i.",";
}
print FILE "\n\n";
close(FILE);
print "+ Extracting..\n";
print "+ Done\n\n";
}
else {die("Error, Count must be an integer\n");}

---

Der Shebang fehlt :(

hrmpf - edited
Hab ihn weggelassen da ich unter Windows geschrieben habe und er da nichts bringt, kann ja jeder selbst einfügen ;)

Und wenn mans kurz und schnell haben will, als Einzeiler:

Code:

---

perl -e 'for(1..10){print "$_,"}'

---