わいえむねっと

2010/06
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30

2010/06

2010/06/30 Wed

CGIモジュールを使用しているモジュールのユニットテストでCGIパラメータを動的に変化させるメモ。

use strict;
use warnings;
use CGI;

print $CGI::VERSION;
# 3.20

$ENV{REQUEST_METHOD} = 'GET';
$ENV{QUERY_STRING} = 'foo=bar';

my $q = new CGI;
print $q->param('foo');
# bar

$ENV{QUERY_STRING} = 'foo=baz';

$q = new CGI;
print $q->param('foo');
# bar
#   new しても変化しない

$q->init;
print $q->param('foo');
# bar
#   init しても変化しない

$q->initialize_globals;
$q->init;
print $q->param('foo');
# barbaz
#   initialize_globals してから init すると push される

$q->initialize_globals;
$q = new CGI;
print $q->param('foo');
# baz
#   initialize_globals してから new すると更新される

「ランチパックソース焼そば日清焼そばU.F.O.のソース使用 ¥158-」

日清焼そばU.F.O.のソースを使った焼そばをサンドしました。

昨日の黒焼そばパンに続いての企業コラボ焼きそばパン。