Last Modifide Thursday, 27-Jan-2005 09:59:41 JST
Perl tips
perlで簡単な処理を行うサンプル
環境変数一覧表示
#!/usr/bin/perl
print "Content-type: text/html\n\n";
foreach (sort keys %ENV) { print "$_ = $ENV{$_}<br>\n"; }
print "\n";
REMOTE_HOSTをREMOTE_ADDRから逆引き
if ($ENV{REMOTE_HOST} eq $ENV{REMOTE_ADDR} or $ENV{REMOTE_HOST} eq '') {
$remote_host = gethostbyaddr(pack('C4',split(/\./,$ENV{REMOTE_ADDR})),2) or $ENV{REMOTE_ADDR};
}
else {
$remote_host = $ENV{REMOTE_HOST};
}
[an error occurred while processing this directive]
(C)2005 青山葵 (Aoi AoYama) / Blue Hibiscus Web Pages
