#!/mit/perl5/perl

@field = ("Creature", "AC", "Hit Dice", "THAC0", "Terrain", "Climate", "Att #",
	"Damage", "# Appearing", "SA", "SD", "MR", "Size", "Move", "XP",
	"Activity", "Align", "Treasure", "INT", "Page", "Type", "Remarks", 
	"Notes", "Frequency", "Comments", "Organization", "Diet", "Morale", 
	"Campaign", "Plane");

while(<>){
	@parts = split(",");
	@nparts = ();
	$inquotes = 0;
	$tmp = "";
	foreach $p (@parts) {
		$qts = ($p =~ s/"/"/g);
		$x = "";
		$x = "(in quotes)" if $inquotes;
		if(($qts ==2) || ($qts == 0)){
			if(!$inquotes){
				push(@nparts, $p);
			}
			else {
				$tmp .= ",$p";
			}
		}
		else{
			if(!$inquotes){
				$inquotes = 1;
				$tmp = $p;
			}
			else{
				$tmp .= ",$p";
				push(@nparts, $tmp);
				$tmp = "";
				$inquotes = 0;
			}
		}

	}
	
	push(@{$terrain{$nparts[4]}}, $nparts[0]);
	push(@{$climate{$nparts[5]}}, $nparts[0]);
	push(@{$freq{$nparts[23]}}, $nparts[0]);
	push(@{$activ{$nparts[15]}}, $nparts[0]);

	push(@{$creature{$nparts[0]}}, $nparts[4]);
	push(@{$creature{$nparts[0]}}, $nparts[5]);
	push(@{$creature{$nparts[0]}}, $nparts[23]);
	push(@{$creature{$nparts[0]}}, $nparts[15]);
	$plane{$nparts[0]} = $nparts[29];
	if(0){
	    foreach $i (0..$#nparts){
		print("$field[$i]: $nparts[$i]\n");
	    }	
	    print("-----------------------------\n");
	}
}

foreach $c (keys %creature){
    next unless ($plane{$c}=~/Prime/);
    $out = "$c/".join("/", @{$creature{$c}})."\n";
    $out =~ s/\"//g;
    print "$out";
#    print("Plane: $plane{$c}\n");
}