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

[ 自宅サーバーWebRing |ID=265 前後5表示乱移動サイト一覧 ]