[B! CGI] inokiandzanã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

inokiandzan id:inokiandzan

CGIã«é–¢ã™ã‚‹inokiandzanã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (14)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

DBIãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
Perlã§ã€DBIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã€ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚’ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã®ä½œæˆæ–¹æ³•ã«ã¤ã„ã¦ã¾ã¨ã‚ã¦ã‚ã‚Šã¾ã™ã€‚ ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¯ã€PostgreSQLã‚’ä½¿ã£ã¦ã„ã¾ã™ã€‚ DBI/DBDã«ã¤ã„ã¦ DBI/DBDãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ã€Perlã§å„ç¨®ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚’ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ DBIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ã€ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«ä¾å˜ã—ãªã„å‡¦ç†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã€DBDãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ã€å„ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹æ¯Žã«ä¾å˜ã™ã‚‹å‡¦ç†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ ã“ã“ã§ã¯ã€PostgreSQLã®DBDãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã„ã¾ã™ã€‚ Perlã‚¹ã‚¯ãƒªãƒ—ãƒˆ | DBIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« | +--------+--------+ | | PostgreSQLå¯¾å¿œ ORACLEå¯¾å¿œ DBDãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« DBDãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« | | PostgreSQL ORACLE ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹
inokiandzan 2011/02/04
CGI
ãƒªãƒ³ã‚¯
CGI::Sessionãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« - Ã—Ã—Ã—Diary
ã²ã¨ã¾ãšã€ã„ã‚ã„ã‚ã‚ã‚‚ã‚ã‚‚ã€‚ ã‚»ãƒƒã‚·ãƒ§ãƒ³ç®¡ç†ã¨ã„ãˆã°ã€ä¸€åº¦ãƒã‚°ã‚¤ãƒ³ã—ãŸå¾Œã‚»ãƒƒã‚·ãƒ§ãƒ³ãŒæœ‰åŠ¹ãª é–“ãƒã‚°ã‚¤ãƒ³çŠ¶æ…‹ã§ã‚µã‚¤ãƒˆã‚’åˆ©ç”¨ã§ãã‚‹ã£ã¦ã„ã†ã‚ã‚Œã§ã™ãã€‚ ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£é–¢ä¿‚ã§ã‚ˆãè©±é¡Œã«ä¸Šã‚‹ã¨ã“ãªã‚“ã§ ã¾ãšã¯ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£çµ¡ã¿ã®ãƒ¡ãƒ¢ã‹ã‚‰ã‹ãªã€‚ ï¼ƒã‚»ãƒƒã‚·ãƒ§ãƒ³ãƒã‚¤ã‚¸ãƒ£ãƒƒã‚¯ï¼ ä»–äººã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’ã®ã£ã¨ã‚‹ã“ã¨ã§ã™ãã€‚ å®Ÿéš›ã«ã©ã®ãã‚‰ã„ã®ç¢ºç«‹ã§å·»ãè¾¼ã¾ã‚Œã‚‹ã‹ã¯ã•ã¦ãŠã ã‚½ãƒ¼ã‚·ãƒ£ãƒ«ãƒãƒƒã‚¯ã ã£ãŸã‚Šã€ãƒ‘ã‚±ãƒƒãƒˆç›—è´ã ã£ãŸã‚Š é¡žæŽ¨ã§ãã‚‹ç°¡å˜ãªIDã ã£ãŸã‚Šã€IDãŒçŸã„ãŒç‚ºã«ç·å½“ã‚Šæ”»æ’ƒã•ã‚ŒãŸã‚Š ã‚¯ãƒã‚¹ã‚µã‚¤ãƒˆã‚¹ã‚¯ãƒªãƒ—ãƒˆã ã£ãŸã‚Šã—ã¦ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’ç›—ã¾ã‚Œ ã—ã‚Œã£ã¨ã€ãã®äººã«ãªã‚Šã™ã¾ã•ã‚Œã¡ã‚ƒã†ã‚ˆã€‚ ã ã‹ã‚‰ã€æ°—ã‚’ã¤ã‘ãªã„ã¨ãã£ã¦ãŠè©±ã€‚ å‚è€ƒâ†’Webã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã«æ½œã‚€ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ãƒ›ãƒ¼ãƒ« ã‚‚ã‚ã‚‚ã‚ã®ã‚»ã‚ãƒ¥ãƒªãƒ†ã‚£ãƒ›ãƒ¼ãƒ«ã‚’è€ƒæ…®ã—ãŸå ´åˆ ãƒã‚°ã‚¤ãƒ³å¾Œã«ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’ç™ºè¡Œã™ã‚‹ã“ã¨ã¨ åŒä¸€IPã‚¢ãƒ‰ãƒ¬ã‚¹ã®æ™‚ã®ã¿ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’æœ‰åŠ¹ã¨ã—ã¦ãŠã‘ã° ãŸã„ã¦ã„ã®ã‚»
inokiandzan 2011/01/28
CGI

ã¯ã¦ãª
ãƒªãƒ³ã‚¯
CGI::Session
CGI::Session ã‚»ãƒƒã‚·ãƒ§ãƒ³ç®¡ç†ã‚’ã‚µãƒãƒ¼ãƒˆã™ã‚‹ ä½¿ã„æ–¹ï¼š use CGI; use CGI::Session; // CGIã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ç”Ÿæˆã™ã‚‹ã€‚ my $cgi = new CGI; // CGI::Sessionã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ç”Ÿæˆã™ã‚‹ã€‚ // ã‚»ãƒƒã‚·ãƒ§ãƒ³ãƒ‘ãƒ©ãƒ¡ã‚¿ä¿å˜å…ˆï¼š/tmp ã€€ã‚»ãƒƒã‚·ãƒ§ãƒ³IDå½¢å¼ï¼šMD5 my $session = new CGI::Session($cgi,{Directory=>'/tmp'}); // ã‚»ãƒƒã‚·ãƒ§ãƒ³ãƒ‘ãƒ©ãƒ¡ã‚¿$nameã‚’å–å¾—ã™ã‚‹ã€‚ my $value = $session->param($name); // ãƒãƒƒã‚·ãƒ¥ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹çµŒç”±ã§ã‚»ãƒƒã‚·ãƒ§ãƒ³æƒ…å ±ã‚’å–å¾—ã™ã‚‹ã€‚ my $ref = $session->dataref(); my $value = $ref->{$name}; // ã‚»ãƒƒã‚·ãƒ§ãƒ³ãƒ‘ãƒ©ãƒ¡ã‚¿$nameã‚’$valueã«è¨å®šã™ã‚‹ã€‚ $
inokiandzan 2011/01/27
CGI
ãƒªãƒ³ã‚¯
CGI::Session - ã‚»ãƒƒã‚·ãƒ§ãƒ³ç®¡ç†
[Perl] => [CGI] ã‚»ãƒƒã‚·ãƒ§ãƒ³ç®¡ç†ã‚’è¡Œã†ã«ã¯CGI::Sessionãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ãã®éš›ã€CGIãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚ä½¿ç”¨ã—ã¾ã™ã€‚ [ä½¿ç”¨ä¾‹] #!/usr/bin/perl use CGI; # -ip-matchã‚¹ã‚¤ãƒƒãƒã§ã€ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’ä½œæˆã—ãŸãƒ›ã‚¹ãƒˆã¨ã€ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’å–å¾—ã™ã‚‹ãƒ›ã‚¹ãƒˆãŒåŒä¸€IPã§ã‚ã‚‹ã‹ã©ã†ã‹ã‚’ãƒã‚§ãƒƒã‚¯ã—ã¾ã™ã€‚ use CGI::Session qw/-ip-match/; #æ—¢å˜ã®ã‚»ãƒƒã‚·ãƒ§ãƒ³IDã‚’ã‚¯ãƒƒã‚ãƒ¼ã¨ã‚¯ã‚¨ãƒªãƒ¼ã‚¹ãƒˆãƒªãƒ³ã‚°ã‹ã‚‰å–å¾—ã—ã¾ã™ã€‚ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§ã¯CGISESSIDã¨ã„ã†åå‰ã§æŽ¢ã—ã¾ã™ãŒã€ CGI::Session->name()ã«ã¦åå‰ã‚’æŒ‡å®šã§ãã¾ã™ã€‚ã‚»ãƒƒã‚·ãƒ§ãƒ³IDãŒè¦‹ã¤ã‹ã‚‰ãªã„å ´åˆã«ã¯ã€æ–°ãŸã«ã‚»ãƒƒã‚·ãƒ§ãƒ³ã‚’ä½œæˆã—ã¾ã™ã€‚ my $cgi = new CGI; CGI::Session->name("SESSION_ID"); my $session = n
inokiandzan 2011/01/27
CGI

session
ãƒªãƒ³ã‚¯
CGIå…¥é–€
inokiandzan 2011/01/27
CGI
ãƒªãƒ³ã‚¯
CGI ã«å¼•æ•°ã‚’ä»˜ã‘ã¦å€¤ã‚’æ¸¡ã™ | beginners CGI
ãƒ•ã‚©ãƒ¼ãƒ ãªã©ã‚’ä½¿ã£ã¦ä½•ã‚‰ã‹ã®å€¤ã‚’æ¸¡ã™ä»¥å¤–ã«ã€CGI ã«å¼•æ•°ã‚’ä»˜ã‘ã¦ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ äº‹ã§å€¤ã‚’æ¸¡ã™äº‹ã‚‚ã§ãã€ã“ã®å ´åˆ GETã§å€¤ãŒæ¸¡ã•ã‚Œã‚‹äº‹ã«ãªã‚Šã¾ã™ã€‚ ä¸‹ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã«å¼•æ•°ã‚’ä»˜ã‘ã¦å®Ÿè¡Œã™ã‚‹ã¨ã€ãã‚Œãžã‚Œã®å€¤ã‚’ç”»é¢ä¸Šã«è¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ URLã«ç¶šã‘ã¦ ? ã‚’å…¥åŠ›ã€ãã®å¾Œ è¦ç´ =å€¤ ã¨ã—ã€ãã‚Œãžã‚Œã®è¦ç´ ã‚’ & ã§åŒºåˆ‡ã‚Šã¾ã™ã€‚ ã€ä¾‹ã€‘ https://ï½žã‚¹ã‚¯ãƒªãƒ—ãƒˆ.cgi?è¦ç´ ï¼‘=å€¤ï¼’&è¦ç´ ï¼’=å€¤ï¼’&è¦ç´ ï¼“=å€¤ï¼“ https://ï½žã‚¹ã‚¯ãƒªãƒ—ãƒˆ.cgi?tanaka=11&takeuti=550 ã€ä¸Šè¨˜ä¾‹ã®å®Ÿè¡Œçµæžœã€‘ åå‰ï¼štanakaã€€å€¤ï¼š11 åå‰ï¼štakeutiã€€å€¤ï¼š550 #!/usr/local/bin/perl #GETãƒ¡ã‚½ãƒƒãƒ‰ã®å ´åˆã¯ QUERY_STRING ã‹ã‚‰å—ã‘å–ã‚‹ $formin = $ENV{'QUERY_STRING'}; @indata = split (/&/,$formi
inokiandzan 2011/01/26
CGI
ãƒªãƒ³ã‚¯
CGIãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
inokiandzan 2011/01/26
CGI
ãƒªãƒ³ã‚¯
CGI::Session - CGIã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã«ãŠã‘ã‚‹æŒç¶šçš„ãªãƒ‡ãƒ¼ã‚¿ã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ - perldoc.jp
åå‰Â¶ CGI::Session - CGIã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã«ãŠã‘ã‚‹æŒç¶šçš„ãªãƒ‡ãƒ¼ã‚¿ã®ã‚»ãƒƒã‚·ãƒ§ãƒ³ æ¦‚è¦Â¶ # ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®åˆæœŸåŒ–: use CGI::Session; my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp'}); # æœ‰åŠ¹ãªã‚»ãƒƒã‚·ãƒ§ãƒ³IDã‚’å–å¾— my $CGISESSID = $session->id(); # ã‚»ãƒƒã‚·ãƒ§ãƒ³ã«ãƒ‡ãƒ¼ã‚¿ã‚’æ ¼ç´ $session->param('f_name', 'Sherzod'); # or $session->param(-name=>'l_name', -value=>'Ruzmetov'); # ãƒ‡ãƒ¼ã‚¿ã®å›žåŽ my $f_name = $session->param('f_name'); # ã¾ãŸã¯ my $l_name = $session->par
inokiandzan 2011/01/24
CGI
ãƒªãƒ³ã‚¯
Perl/CGIãƒ—ãƒã‚°ãƒ©ãƒ ã®ç’°å¢ƒå¤‰æ•°ã‚’ç´¹ä»‹ã—ã¾ã™
inokiandzan 2011/01/20
CGI

Perl

ãƒ—ãƒã‚°ãƒ©ãƒ

HTML
ãƒªãƒ³ã‚¯
FORMå…¥åŠ›ãƒ‡ãƒ¼ã‚¿ç¢ºèªãƒšãƒ¼ã‚¸ã®ä½œæˆ ã‚µãƒ³ãƒ—ãƒ«
From: [email protected] To: [email protected]net.or.jp Subject: Form Test Date: Wed, 15 Jan 1997 01:23:45 +0900 æ°å=äº¬éƒ½ å¤ªéƒŽ ä½æ‰€=äº¬éƒ½å¸‚ä¸‹äº¬åŒºä¸å ‚å¯ºå—ç”º TEL=075-999-9999 å“å=äº¬æ¼¬ç‰©è©°ã‚åˆã‚ã› å˜ä¾¡=3,000 æ•°é‡=5 å°è¨ˆ=15,000 æ¶ˆè²»ç¨Ž=750 åˆè¨ˆ=15,750 Mai [email protected] Mai [email protected]net.or.jp Mail_Subject=Form Test Next_Page=/people/user/ (1) å•†å“è³¼å…¥ãƒšãƒ¼ã‚¸ ã§ãŠå®¢æ§˜ãŒå†…å®¹ã‚’FORMã«å…¥åŠ›ã—ã€ã€Œè³¼å…¥ã€ãƒœã‚¿ãƒ³ã‚’æŠ¼ã™ã¨ã€å…¥åŠ›å†…å®¹ã‚’å†åº¦è¡¨ç¤ºã™ã‚‹ (2) ç¢ºèªãƒšãƒ¼ã‚¸ ã«ãªã‚Šã¾ã™ã€‚ ãã“ã§ãŠ
inokiandzan 2011/01/19
CGI
ãƒªãƒ³ã‚¯
http://horiuchi.akira.ne.jp/cgi/page-04-04.html
inokiandzan 2011/01/19
[è¨ˆç®—]

CGI
ãƒªãƒ³ã‚¯
ãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ã‚³ãƒ¼ãƒ‰ ç¢ºèªç”»é¢ã‚’è¡¨ç¤ºã™ã‚‹ï½œãƒ—ãƒãƒã‚¤ãƒ€ ASAHIãƒãƒƒãƒˆ
No.H0024 ç¢ºèªç”»é¢ã¨ã¯ ç¢ºèªç”»é¢ã¨ã¯ã€ãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ã‚³ãƒ¼ãƒ‰ã‹ã‚‰é€ä¿¡ã•ã‚ŒãŸå…¥åŠ›å†…å®¹ã‚’è¡¨ç¤ºã™ã‚‹ç”»é¢ã§ã™ã€‚ç¢ºèªç”»é¢ã‚’è¡¨ç¤ºã•ã›ã‚‹ã“ã¨ã§ã€è¨ªå•è€…ã¯å…¥åŠ›å†…å®¹ã®ç¢ºèªãŒã§ãã¾ã™ã€‚ <input type="hidden" NAME="_template_confirm" VALUE="ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆãƒ•ã‚¡ã‚¤ãƒ«å"> ç¢ºèªç”»é¢ã¯<INPUT>ã‚¿ã‚°ã®NAMEå±žæ€§ã« _template_confirm ã‚’æŒ‡å®šã™ã‚‹ã“ã¨ã§åˆ©ç”¨ã§ãã¾ã™ã€‚è¡¨ç¤ºã•ã‚Œã‚‹ç”»é¢ã¯ã€CGIãƒ—ãƒã‚°ãƒ©ãƒ ãŒãƒ•ã‚©ãƒ¼ãƒ ãƒ‡ã‚³ãƒ¼ãƒ‰ã®å…¥åŠ›æƒ…å ±ã¨VALUEå±žæ€§ã§æŒ‡å®šã—ãŸãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆãƒ•ã‚¡ã‚¤ãƒ« ï¼ˆæ‹¡å¼µåã¯ã€Œtplã€ï¼‰ã‚’ã¾ã¨ã‚ã€è‡ªå‹•ç”Ÿæˆã—ãŸã‚‚ã®ã§ã™ã€‚ç¢ºèªç”»é¢ã®ãƒ†ãƒ³ãƒ—ãƒ¬ãƒ¼ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã¯HTMLã‚¿ã‚°ã¨ç‰¹åˆ¥ãªæ–‡å—åˆ—ã§è¨˜è¿°ã—ã¾ã™ã€‚ $_DUMPVAR{VAL} ç¢ºèªç”»é¢ã®<form>ï½ž</form>å†…ã«ã€å¿…ãš $_DUMPVAR{VAL} ã¨ã„ã†æ–‡å—åˆ—ã‚’è¨˜è¿°ã—ã¦ãã ã•ã„ã€‚ã“ã®è¨˜
inokiandzan 2011/01/19
HTML

CGI

ç¢ºèªç”»é¢
ãƒªãƒ³ã‚¯
ãƒ•ã‚©ãƒ¼ãƒ å†…å®¹ã‚’é€ä¿¡å‰ã«ã€Œç¢ºèªç”»é¢ã€ã§è¡¨ç¤ºã™ã‚‹æ–¹æ³•
inokiandzan 2011/01/18
CGI

HTML
ãƒªãƒ³ã‚¯
ãƒ•ã‚©ãƒ¼ãƒ å…¥åŠ›ã‹ã‚‰ãƒ•ã‚¡ã‚¤ãƒ«ã®æ›¸ãå‡ºã—ã¾ã§ | beginners CGI
ãƒ•ã‚©ãƒ¼ãƒ ã‹ã‚‰ã®é€ä¿¡ã§æ—¥æœ¬èªžã®ã‚ˆã†ãª 2ãƒã‚¤ãƒˆæ–‡å—ã‚’é€ä¿¡ã—ãŸå ´åˆã€ %ã‚’å«ã‚€æ„å‘³ä¸æ˜Žãªæ–‡å—åˆ—ã«ãªã£ã¦é€ä¿¡ã•ã‚Œã‚‹ã®ã‚’ã”å˜çŸ¥ã§ã—ã‚‡ã†ã‹ï¼Ÿ ã“ã‚Œã¯URLã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã¨è¨€ã„ã€ç‰¹æ®Šè¨˜å·ã‚„æ—¥æœ¬èªžãªã©ã®æ–‡å—åˆ—ã‚‚æ£ã—ã é€ä¿¡ã™ã‚‹ç‚ºã«è¡Œã‚ã‚Œã¦ãŠã‚Šã€å®Ÿéš›ã«è¡¨ç¤ºã‚„ãƒ•ã‚¡ã‚¤ãƒ«ã«æ›¸ãå‡ºã™å ´åˆã€ ã“ã‚Œã‚‰ã‚’å…ƒã«æˆ»ã—ã¦ã‚„ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ ä¾‹ãˆã°ãƒ•ã‚©ãƒ¼ãƒ ã‹ã‚‰å—ã‘å–ã£ãŸãƒ‡ãƒ¼ã‚¿ãŒ $formin ã¨ã„ã†å¤‰æ•°ã«å…¥ã£ã¦ã„ãŸå ´åˆã¯ã€å—ã‘å–ã£ãŸå¾Œ ã®å‡¦ç†ã«æ¬¡ã®ã‚½ãƒ¼ã‚¹ã‚’åŠ ãˆã¦ä¸‹ã•ã„ã€‚ # + è¨˜å·ã‚’åŠè§’ã‚¹ãƒšãƒ¼ã‚¹ã«æˆ»ã™ $formin =~ tr/+/ /; #URLã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ãƒ‡ãƒ¼ã‚¿ã‚’ãƒ‡ã‚³ãƒ¼ãƒ‰ã™ã‚‹ $formin =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; URLã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã•ã‚ŒãŸãƒ‡ãƒ¼ã‚¿ã§åŠè§’ã‚¹ãƒšãƒ¼ã‚¹ã¯ + è¨˜å·ã«ã€2ãƒã‚¤ãƒˆæ–‡å—ã¯ %16é€²æ•°å€¤ ã¨ã„ã£ãŸ å½¢ã«ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã•ã‚Œã¦ã„ã¾ã™
inokiandzan 2011/01/17
CGI
ãƒªãƒ³ã‚¯
1