|
Heres the script
================================
@letters=("a","b","c","d","e","f","g","h","i","j", "k","l","m","n","o","p","q","r","s","t","u","v","w ","x","y","z");
@hold="";
$uphold=0;
##generate 3 letter domain names
#$a="";$b="";,$c="";
$first=0;
$second=0;
$third=0;
until ($end) {
$word = "$letters[$first]$letters[$second]$letters[$third]";
$hold[$uphold]="$word.com\n";$uphold++;
$third++;
if ($third > 25) {
$second++; $third=0;
}
if ($second > 25) {
$first++; $second=0;
}
$masscount++;
$updatecount++;
#if ($updatecount == 100) { print "$word\n"; $updatecount=0;}
if ($word eq "zzz") { $end=1; }
}
$sz = @hold;
print "\n\nMade $sz of em \n";
$count=1;
$wrote=0;
mkdir("out", 777);
open(b,">out/section_$count.txt"); ## which is 1
foreach $_ (@hold) {
print b "$_";$wrote++;
if ($wrote == 499) {
close(b);
$count++;
$wrote=0;
open(b,">out/section_$count.txt");
}
}
close(b); ## if open
|