第2回 Mojoを使えばテストも簡単!｜gihyo.jp … 技術評論社

一行掲示板を移植してみよう 連載の1回目では、Mojoのスタンドアロンサーバを使って簡単な画面を表示してみました。今回は簡単なCGIをMojoに移植しながら、リクエストの扱い方やテストの仕方を見ていきましょう。 まずはこれから移植していくCGIのソースを掲載します。あきらかに穴だらけのものですが、そこはひとまず目をつむってください。 #!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; my $file = 'data.txt'; unless (-f $file) { open my $fh, '>', $file or die $!; close $fh; } if ($q->param('text')) { open my $fh, '>>', $file or die $!; print $fh $