#!/usr/bin/perl # #this script takes the result from a call to printToFile and returns an html file $file=shift; open(A,$file); $line=; print "\n"; print "Numper of pieces: $line\n"; $line=; @tok=split(/<>/,$line); @values=split(/ /,$tok[2]); $tam=@values; print ""; if($tam==5) { print ""; } elsif($tam=4) { print ""; } print ""; print ""; for(@values) { print ""; } print ""; while ($line=) { print ""; @tok=split(/<>/,$line); print ""; @values=split(/ /,$tok[2]); for(@values) { print ""; } print "\n"; }

Pair	Rank	Test	Test	Pair Freq.	!st word Freq	2nd word Freq
$tok[0] - $tok[1]	$_
$tok[0] - $tok[1]	$_