perl:cgi

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

--- perl:cgi [2018/07/20 13:32] – [書き込み] taka
+++ perl:cgi [2018/07/20 13:34] (現在) – taka
@@ 行 41: / 行 41: @@
 たったこれだけでよい。
-===== Cookie の書き込みと読み込み =====
+===== Cookieの書き込みと読み込み =====
 ==== 書き込み ====
@@ 行 66: / 行 66: @@
 </sxh>
-//-expires// は有効期限を設定するもので、//+3M// は三ヶ月間を意味する。
+//-expires//は有効期限を設定するもので、//+3M//は三ヶ月間を意味する。
 ==== 読み込み ====
-<sxh perl; gutter: true;>
+<sxh perl>
 #!/usr/bin/perl
 BEGIN {
-    use File::Basename;
+  use File::Basename;
-    chdir dirname( $0 );
+  chdir dirname($0);
 }
@@ 行 87: / 行 87: @@
 my %cookies = fetch CGI::Cookie;
-my $cookie  = $cookies{'識別子'}->value if ( exists $cookies{'識別子'} );
+my $cookie  = $cookies{"識別子"}->value if (exists $cookies{"識別子"});
-my $result  = Encode::decode( 'utf8', $cookie );
+my $result  = Encode::decode("utf8",$cookie);
 </sxh>
-存在しないクッキーを取得しようとすると致命的なエラーとなるため、必ず exists で存在を確認する。取得した値に対して UTF-8 フラグを立てることも忘れずに。
+存在しないクッキーを取得しようとすると致命的なエラーとなるため、必ずexistsで存在を確認する。\\
+取得した値に対してUTF-8フラグを立てることも忘れずに。

perl/cgi.1532061153.txt.gz · 最終更新: 2018/07/20 13:32 by taka