iswebでCGI:ホスト情報を得る

ホスト情報の一覧を出力するCGIです。
/etc/hosts を直接参照するのではなく、 sethostent, gethostent, endhostent を使用しています。

…とはいえ、iswebの環境では、ホンモノの情報は得られませんが…。

動作例

ここを押すと、実行結果がわかります。↓
/cgi-bin/gethost.cgi

ソースコード

#!/usr/local/bin/perl
use CGI;
use strict;

my $cgi = new CGI;
print $cgi->header, $cgi->start_html('Get Host Entry');
print "<p><table border=\"1\">\n";
print "<tr><th>Name</th><th>Aliases</th><th>Type</th>";
print "<th>Length</th><th>Addresses</th></tr>\n";
my ($n, $a, $t, $l, @s, $sp, @sa);
sethostent(1);
while(($n, $a, $t, $l, @s) = gethostent()) {
	print "<tr><td>$n</td><td>$a</td><td>$t</td>";
	print "<td>$l</td><td>";
	@sa = ();
	foreach $sp (@s) {
		my $l = join(".", unpack("C*", $sp));
		push(@sa, $l);
	}
       	print join(",", @sa) . "</td></tr>\n";
}
endhostent();
print "</table></p>\n";
print $cgi->end_html;

▼ トップ

▼ プロフィール

▼ 個人的宣伝

LINUXサーバーインストール(FedoraCore4) Oracle10gのバックアップを本気で理解し実践: FC4 や Oracle のインストールの仕方～管理方法まで、詳しく載っています。 SearchManには情報がもりだくさんです。
いますぐ実践!Linuxシステム管理: システム管理初心者の方を対象に、システム管理のノウハウをお知らせします。
: 毎日栗の絵を描いています。
退屈なとき、癒されたいときなどに、ご覧ください。:-)