9885 10.10.9.48 Room 1105A
9885 10.10.9.48 Jack 1105A--05D
9885 10.10.9.48 org_code B703
9885 10.10.9.48 Building 1268A
114948 10.10.184.0 nasa_nets off
114948 10.10.184.0 blockSecName test name
114948 10.10.184.0 blockTechName brian test
114948 10.10.184.0 blockAdminName test admin
114949 10.10.184.0 blockSecName John G. Smooth
114949 10.10.184.0 blockTechPhone 222-555-1212
114949 10.10.184.0 blockAdminName Lucy P. Wallice
114949 10.10.184.0 blockAdminId 8878787
114949 10.10.184.0 block_name unknown
114949 10.10.184.0 blockSecId 787878
114949 10.10.184.0 blockAdminEmail lucy.p.wallice@google.com
114949 10.10.184.0 blockTechName TEST LAN
114949 10.10.184.0 blockSecPhone 222-555-3232
114949 10.10.184.0 blockTechEmail terCInternal@google.com
114949 10.10.184.0 blockSecEmail John.goody@google.com
114949 10.10.184.0 nasa_nets off
####
10.10.9.48|Room=1105A|Jack=1105A--05D|org_code=B703|Building=1268A
10.10.184.0|nasa_nets=off|blockSecName=test name|blockTechName=brian test|blockA
dminName=test admin|blockSecName=John G. Smooth|blockTechPhone=222-555-1212|bloc
kAdminName=Lucy P. Wallice|blockAdminId=8878787|block_name=unknown|blockSecId=78
7878|blockAdminEmail=lucy.p.wallice@google.com|blockTechName=TEST LAN|blockSecPhon
e=222-555-3232|blockTechEmail=terCInternal@google.com|blockSecEmail=John.good
y@google.com|nasa_nets=off
##
##
$out_file="/tmp/brian_test.$datestring";
open(IN,"<$TMPCONTLIST") or die "Can't open $TMPCONTLIST!\n";
open(OUT,">$out_file") or die "Can't open $out_file!\n";
while ($line=) {
@fields = split /\t/,$line;
$line = join "|", @fields[1,2,3,4];
print OUT $line;
print OUT "\n";
}
close IN;
close OUT;
##
##
10.10.9.48|User_POC_Phone|222-555-2322
|
10.10.9.48|Room|1105A
|
10.10.9.48|Jack|1105A--05D
|
10.10.9.48|org_code|B703
|
10.10.9.48|Building|1268A