0byt3m1n1

Path: /data/16/inventory/ [ Home ]
File: vuxinv_dedup.pl
#!/usr/local/bin/perl

`cat /data/16/inventory/done/Inventory/Status/*-Domains.txt > /data/16/inventory/done/Inventory/Status/VUX_DOMAINS.txt`;
open DOMAINLIST, "</data/16/inventory/done/Inventory/Status/VUX_DOMAINS.txt";
open DOMOUT, ">/data/16/inventory/done/Inventory/Results/VUX_DOMAINS.txt";


while (<DOMAINLIST>) {
        $line = $_;
	chomp($line);
	($vol, $vanity, $rest) = split /\;/ ,$line,3;
	$VOLS{$vanity} =  $vol;
	$REST{$vanity} = $rest;
}

@VANITIES = keys(%VOLS);

foreach(@VANITIES) {
        $vanity = $_;
	print DOMOUT "$VOLS{$vanity};$vanity;$REST{$vanity}\n";
	}

close DOMOUT;

`rm /data/16/inventory/done/Inventory/Results/VUX_DOMAINS.txt.gz`;
`gzip -9 /data/16/inventory/done/Inventory/Results/VUX_DOMAINS.txt`;
`rm /data/16/inventory/done/Inventory/Status/VUX_DOMAINS.txt`;

print "\n";
print "Results saved as:\n";
print "/data/16/inventory/done/Inventory/Results/VUX_DOMAINS.txt.gz\n";