nakasho_dev さんのおっしゃるサイトを読んで理解すべきであると思いますが・・・。
以下、だいぶ古いコードですが、動作確認しているものです。
perl
1#!/usr/local/bin/perl
2
3use strict;
4use CGI;
5
6my $title = "あなたの環境";
7
8my $cgi = CGI->new;
9my $envdata = undef;
10my $i = 1;
11
12foreach my $name (sort keys(%ENV))
13{
14 if ($i > 1)
15 {
16 $envdata .= "\n";
17 }
18
19 $envdata .= " <tr><td align=\"right\">$i</td><td>$name</td><td>$ENV{$name}</td></tr>";
20 $i++;
21}
22
23my $html=<<END;
24<html>
25<head>
26 <meta charset="UTF-8">
27 <title>$title</title>
28</head>
29<body leftmargin="40">
30<br>
31<table>
32$envdata
33</table>
34<br>
35<br>
36</body>
37</html>
38END
39
40print $cgi->header(
41 -type=>'text/html',
42 -charset=>'UTF-8',
43 -Pragma=>'no-cache',
44 -robots=>'nofollow'
45 );
46print $html;
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/12/09 08:28
2017/12/09 12:51