#!/project/perl/perls/perl-5.20.2/bin/perl $kaisai_name = $ARGV[0]; $file = $ARGV[1]; &print_header(); print "
$tmp[2]\n"; print " | $tmp[1]\n"; print " | $tmp[4]$tmp[5] $tmp[3] $tmp[6] $tmp[7] $tmp[8]\n"; } else { print " | |||||
$tmp[0]\n"; print " | $tmp[1]\n"; print " | $tmp[2]\n"; print " | $tmp[3]\n"; print " | $tmp[4]\n"; print " | $tmp[5]\n"; print " | $tmp[6]\n"; print " | \n"; } } last; } } print " |