delete $kdoc{$n};
}
-print " ̾Á° ºÇ¿·ÈÇ ¸½ËÝÌõ ËÝÌõÆüÉÕ ¾õ¶·\n";
-print "---------------------------------------------- ------ -------- ---------- --\n";
+print " ̾Á° ºÇ¿·ÈÇ ¸½ËÝÌõ ËÝÌõÆüÉÕ ¾õ¶·\n";
+print "---------------------------------------------------- ------ -------- ---------- --\n";
foreach my $n (sort keys %kdoc){
my $o_ver = ${$kdoc{$n}}{o_ver};
my $t_ver = ${$kdoc{$n}}{t_ver};
}
}
- printf("%-48s%-8s%-10s%-11s%2s\n", $n, $o_ver, $t_ver, $date, $smark);
+ printf("%-54s%-8s%-10s%-11s%2s\n", $n, $o_ver, $t_ver, $date, $smark);
# if ($trans ne undef){printf("%63s\n", $trans);}
}