一行掲示板を移植してみよう 連載の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 $
![第2回 Mojoを使えばテストも簡単!|gihyo.jp … 技術評論社](https://cdn-ak-scissors.b.st-hatena.com/image/square/f1cfa5b429f3bfe681ca9c49f9f92e2ce92179fb/height=288;version=1;width=512/https%3A%2F%2Fgihyo.jp%2Fassets%2Fimages%2FICON%2F2009%2F310_mojo.png)