0byt3m1n1

Path: /data/16/.snapshot/daily.2025-03-10_0010/inventory/ARCHIVE/ [ Home ]

File: domerg.pl

#!/usr/local/bin/perl


open LIST, "</data/16/inventory/DDL-domonly.txt";
open KEYS, "</data/16/inventory/domsum";

while (<KEYS>) {
        $line = $_;
	chomp($line);
	($vanity, $path) = split /\,\s/ ,$line,2;
	$HASH{$path} = $vanity;
}

while (<LIST>) {
	$line = $_;
	chomp($line);
	($dom, $path) = split /\,\s/ ,$line,2;
	print "$dom, $HASH{$path}\n";
}