会社で同僚が見つけてた。 use strict; use warnings; use Data::Dumper;sub p {warn Dumper @_;my @c = caller;print STDERR " at $c[1]:$c[2]\n\n"} my %h = qw/h hoge f foo b bar/; p \%h; for (values %h) { s/hoge/----------------/; } p \%h; % perl…

http://docstore.mik.ua/orelly/perl/cookbook/ch15_05.htm use Term::ReadKey; ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize(); Term::* は Term::ReadLine しか使った事無いのだけど色々ある模様。