#!/usr/local/bin/perl -w use strict; use Table; my $table = Table->new; my $content = join '', ( ); $table->parse_it(\$content); print "INPUT TABLE,ROW,COL: "; while (my $inp = ){ chomp $inp; last if $inp eq 'quit'; my ($x,$y,$z) = split ',', $inp; next unless ($x) && ($y) && ($z); print $table->[$x][$y][$z],"\n" if $table->[$x][$y][$z]; print "INPUT TABLE,ROW,COL: "; } __END__ tester.html

tester.html

TABLE 1:ROW 1:COL1

TABLE 1:ROW1:COL2

TABLE 2:ROW1:COL1

TABLE 1:ROW2:COL2

TABLE4:ROW1:COL1

TABLE4:ROW1:COL2

TABLE3:ROW1:COL1

TABLE5:ROW1:COL1	TABLE5:ROW1:COL2
TABLE5:ROW2:COL1