何年も前、Perlで作った初のCGIだったであろうものを、今改めて書き直してみる。
CGI.pmの習作としては冗長かもしれないが。
…しかも、サブルーチン使ってないし。
ソースコード
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
my $styles = ["../../ipp.css"];
print header({ -charset => "utf-8" });
print start_html({
-title => "テスト１",
-style => { src => $styles },
});
print p("うまく動くかな？\n");
print hr;
print div(
a({ href => "../../../index.htm" }, "Home"),
"/",
a({ href => "../../" }, "Perl"),
"/",
a({ href => "../" }, "TestCGI Index"),
);
print hr;
print address(
a({ href => q{mailto:nobu3@x.age.ne.jp}}, "Written by Nobu3"),
);
print end_html;