2010年7月26日月曜日

CGIの環境変数を全て取得するコード

CGIの環境変数を全て取得するコードを作成しました。 何かプログラムを組むためのヒントになると思います。

#!/usr/bin/perl

use CGI;
my $q = new CGI;

my $envdata = '';

foreach my $key (keys %ENV){
$envdata .= $key.':'.$ENV{$key}.'<br/>';
}

print $q->header(-type =>'text/html');

print '<html><head></head><body>';

print $envdata;

print '</body></html>';

0 件のコメント:

コメントを投稿