Greetings,
Basically I deleted a portion of a mysql database and need to insert the
subnet back in. The output is suppose to increment the first field
starting with '8' until the IP is 10.168.17.255. I can't figure out my
inside loops condition. Maybe there is a perl module for this?
Example:
INSERT INTO `anyInventory_values` VALUES (8,1,'10.168.17.0');
INSERT INTO `anyInventory_values` VALUES (8,2,'Unknown');
INSERT INTO `anyInventory_values` VALUES (8,3,'');
INSERT INTO `anyInventory_values` VALUES (8,4,'');
INSERT INTO `anyInventory_values` VALUES (8,5,'');
INSERT INTO `anyInventory_values` VALUES (8,6,'');
INSERT INTO `anyInventory_values` VALUES (8,7,'');
INSERT INTO `anyInventory_values` VALUES (8,8,'Unknown');
INSERT INTO `anyInventory_values` VALUES (8,9,'');
INSERT INTO `anyInventory_values` VALUES (8,10,'');
INSERT INTO `anyInventory_values` VALUES (8,14,'');
INSERT INTO `anyInventory_values` VALUES (9,1,'10.168.17.1');
INSERT INTO `anyInventory_values` VALUES (9,2,'Unknown');
INSERT INTO `anyInventory_values` VALUES (9,3,'');
INSERT INTO `anyInventory_values` VALUES (9,4,'');
INSERT INTO `anyInventory_values` VALUES (9,5,'');
INSERT INTO `anyInventory_values` VALUES (9,6,'');
INSERT INTO `anyInventory_values` VALUES (9,7,'');
INSERT INTO `anyInventory_values` VALUES (9,8,'Unknown');
INSERT INTO `anyInventory_values` VALUES (9,9,'');
INSERT INTO `anyInventory_values` VALUES (9,10,'');
INSERT INTO `anyInventory_values` VALUES (9,14,'');
...
My Runaway Perl Script:
$file = 'out.sql'; # sql script
open(INFO, ">$file"); # open for output
for($x=0;$x<=255;$x++){
for($n=8;$n+1;$n++){
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,1,'10.168.17.$x')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,2,'Unknown')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,3,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,4,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,5,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,6,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,7,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,8,'Unknown')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,9,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,10,'')\;\n";
print INFO "INSERT INTO \`anyInventory_values\` VALUES
($n,14,'')\;\n";
}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
