Perl - HTML の接続環境を表示する


 クラウディア　
1.　HTML の接続環境を表示する 
1.　HTML の接続環境を表示する


　これは、おっそろしく昔に作ったコードですが・・・。
　ちょっとひっぱり出す機会があったので、少しいじったらちゃんと動作しました。

　ウェブサーバに置いて、接続しているクライアントの環境を相手のブラウザに表示するものです。



#!/usr/local/bin/perl

use strict;
use CGI;

my $title = "あなたの環境";

my $cgi = CGI->new;
my $envdata = undef;
my $i = 1;

foreach my $name (sort keys(%ENV))
{
	if ($i > 1)
	{
		$envdata .= "\n";
	}

	$envdata .= "    <tr><td align=\"right\">$i</td><td>$name</td><td>$ENV{$name}</td></tr>";
	$i++;
}

my $html=<<END;
<html>
<head>
    <meta charset="UTF-8">
    <title>$title</title>
</head>
<body leftmargin="40">
<br>
<table>
$envdata
</table>
<br>
<br>
</body>
</html>
END

print $cgi->header(
                    -type=>'text/html',
                    -charset=>'UTF-8',
                    -Pragma=>'no-cache',
                    -robots=>'nofollow'
                    );
print $html;