best2tbl.pl

#!/usr/bin/env perl
# best2tbl.pl version 1.0 10/27/14
while (<>) {
	if (/^(\S+)\s*(\d*)\s*(\d*)/) {
		push @toon, $1;
		$critical{"$1"}=$2;
		$grievous{"$1"}=$3;
	}
}
foreach $TOON (@toon) {
    printf "<tr><td align=\"left\" >%-16s</td><td align=\"right\" >%10d</td><td
    align=\"right\" >%10d</td></tr>\n", $TOON, $critical{$TOON}, $grievous{$TOON};
}

This source has been viewed 11 times.

Friday, 6 December 2024 Michael J. Chappell Contact me at: mcsuper5@freeshell.org