perl:cgi
差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン | ||
perl:cgi [2018/07/20 13:32] – [CGI で UTF8 を扱う] taka | perl:cgi [2018/07/20 13:34] (現在) – taka | ||
---|---|---|---|
行 41: | 行 41: | ||
たったこれだけでよい。 | たったこれだけでよい。 | ||
- | ===== Cookie の書き込みと読み込み ===== | + | ===== Cookieの書き込みと読み込み ===== |
==== 書き込み ==== | ==== 書き込み ==== | ||
- | <sxh perl; gutter: true;> | + | <sxh perl> |
# | # | ||
BEGIN { | BEGIN { | ||
- | | + | |
- | chdir dirname( $0 ); | + | chdir dirname( $0 ); |
} | } | ||
行 66: | 行 66: | ||
</ | </ | ||
- | // | + | // |
==== 読み込み ==== | ==== 読み込み ==== | ||
- | <sxh perl; gutter: true;> | + | <sxh perl> |
# | # | ||
BEGIN { | BEGIN { | ||
- | | + | |
- | chdir dirname( $0 ); | + | chdir dirname($0); |
} | } | ||
行 87: | 行 87: | ||
my %cookies = fetch CGI:: | my %cookies = fetch CGI:: | ||
- | my $cookie | + | my $cookie |
- | my $result | + | my $result |
</ | </ | ||
- | 存在しないクッキーを取得しようとすると致命的なエラーとなるため、必ず exists で存在を確認する。取得した値に対して UTF-8 フラグを立てることも忘れずに。 | + | 存在しないクッキーを取得しようとすると致命的なエラーとなるため、必ずexistsで存在を確認する。\\ |
+ | 取得した値に対してUTF-8フラグを立てることも忘れずに。 | ||
perl/cgi.1532061121.txt.gz · 最終更新: 2018/07/20 13:32 by taka