リメイク:サブルーチンを使う

                             <p>ソースコード</p>
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:standard);

my $styles = ["../../ipp.css"];

print header({ -charset => "utf-8" });
print start_html({
        -title => "テスト1",
        -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;
                          </div>

Comments

comments powered by Disqus