自分で print "コードを入力して下さい："; while(<>){ if($_....){ } }って書くのが激しくダサい気がする。 いい塩梅でやってくれるモジュールないかな。 (追記) http://search.cpan.org/~dconway/IO-Prompt-0.99.2/lib/IO/Prompt.pmキタ！でもhttp://searc…

package Progress; use strict; use warnings; use base qw(CGI::Application Class::ErrorHandler); sub cgiapp_prerun { my $self = shift; $self->header_add(-type => 'text/html; charset=UTF-8'); } sub run { my $self = shift; $self->SUPER::run; $…