Anonymous

#!/usr/bin/perl

use Strict;
my @status;
my $i;
my $c;


while(<>){
	chomp $_;
	$_ =~ /^Testing node link (\d+)-(\d+): (\w+)/;
	
	if($3 eq "BAD"){
	$status[$1][$2]='X';
	}
	else{
	$status[$1][$2]='O';
	}
}


foreach $c (@status){
	foreach $i(@$c){
		$i eq '' and print " ";
		print $i;
	}
	print "\n";
}