CGI is Okay, but Bad Code is Irresponsible - Modern Perl Programming
Update: IBM dW and the author have improved the code; I've followed up at Politely Suggesting Improvements. IBM's developerWorks published an article yesterday describing a simple Ajax web login service. The original code was horribly insecure, Bobby Tables-style "Anyone can log in without knowing a password merely by manipulating the query parameters" insecure. Fortunately, IBM fixed the code. Un
CGI.pmã§ä½œã£ãŸCGIをコマンドラインã‹ã‚‰å®Ÿè¡Œã™ã‚‹ - D-6 [相変ã‚らãšæ ¹ç„¡ã—]
CGI.pmã§ä½œã£ãŸCGIをコマンドラインã‹ã‚‰å®Ÿè¡Œã™ã‚‹ æŸæ‰€ã§ã®ä¼šè©±ï¼š 13:14 <#perl6> t****: y'know, one thing that got me into Ruby was that the CGI library would auto-detect that I was testing it in a browser and take arguments as if I was working in a browser. Made troubleshooting a breeze... 13:14 <#perl6> t****: I mean, testing from the command line... 13:15 <#perl6> t****: I always wished the perl CGI module would do that...
ã€ãƒã‚¦ãƒ„ー】Perlベースã®é«˜æ©Ÿèƒ½WikiシステムTWiki 4.1を使ã£ã¦ã¿ã‚ˆã†! (1) TWikiã¨ã¯ (MYCOMジャーナル)
TWikiプãƒã‚¸ã‚§ã‚¯ãƒˆã¯16æ—¥(ç¾åœ°æ™‚é–“)ã€é«˜æ©Ÿèƒ½ãªWikiクãƒãƒ¼ãƒ³ã§ã‚ã‚‹TWikiã®æœ€æ–°ç‰ˆã€ŒTWiki 4.1.0ã€ã‚’公開ã—ãŸã€‚TWikiã¯Perlã§è¨˜è¿°ã•ã‚ŒãŸWikiクãƒãƒ¼ãƒ³ã§ã€éžå¸¸ã«è±Šå¯Œãªæ©Ÿèƒ½ã‚’æŒã¡ã€æ±Žç”¨æ€§ãŒæ¥µã‚ã¦é«˜ã„ã“ã¨ã§çŸ¥ã‚‰ã‚Œã¦ã„る。 TWikiã¯ä¸»ã«æ¬¡ã®ã‚ˆã†ãªæ©Ÿèƒ½ã‚’å‚™ãˆã¦ã„る。 シンプルãªæ©Ÿæ§‹ã®ãŸã‚多ãã®Webブラウザã«å¯¾å¿œ ã‚ーワードやURLã®è‡ªå‹•ãƒªãƒ³ã‚¯ 高機能ãªãƒ†ã‚ストフォーマット ページ内ã®å…¨æ–‡æ¤œç´¢ãŒå¯èƒ½ ページã®å¤‰æ›´ã‚’E-mailã§é€šçŸ¥ ファイルã®ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰/ダウンãƒãƒ¼ãƒ‰ グループやユーザã«ã‚ˆã‚‹ã‚¢ã‚¯ã‚»ã‚¹ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ« 豊富ãªå†…部変数ã«ã‚ˆã£ã¦ãƒšãƒ¼ã‚¸ã‚’カスタマイズ テンプレートやスã‚ンã«ã‚ˆã‚‹ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚º ページやユーザãªã©ã®ç®¡ç†æ©Ÿèƒ½ æœ€æ–°æƒ…å ±ã®RSSé…ä¿¡ プラグインモジュールã«ã‚ˆã‚‹æ‹¡å¼µãŒå¯èƒ½ TWikiを利用ã™ã‚Œã°ã€ã©ã‚“ãªè¦æ¨¡ã®ã‚µã‚¤ãƒˆã§ã‚‚容易ã«æ§‹ç¯‰ã™ã‚‹ã“ã¨ãŒå¯èƒ½ã§ã‚ã‚Šã€ã—ã‹
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Tips (CGI, Perl, Unix and etc.)
Tips 目次 Tips (CGI&SSI) ブラウザã®è¡¨ç¤ºã‚’変化ã•ã›ãªã„ CGI スクリプト（Status: 204 No Content） ä»–ã® URI (URL) ã«ã‚¸ãƒ£ãƒ³ãƒ—ã™ã‚‹ CGI スクリプト（Location フィールド） CGI ã®ã‚¿ã‚¤ãƒ アウトãŠã‚ˆã³ãƒ–ラウザã®ä¸æ– CGIスクリプトä¸ã§é‡ã„処ç†ã‚’ãƒãƒƒã‚¯ã‚°ãƒ©ãƒ³ãƒ‰å®Ÿè¡Œ サーãƒã«ã‚ˆã‚‹ã‚¿ã‚¤ãƒ ã‚¢ã‚¦ãƒˆã‚’å›žé¿ ã‚µãƒ¼ãƒã«ã‚ˆã‚‹ã‚¿ã‚¤ãƒ アウトを回é¿ï¼†é‡ã„処ç†ã®ä¿è· SSI ã«ãŠã‘ã‚‹ HTML 出力ã®ä¸æ– CGI出力内容ã®ã‚³ãƒ”ーをファイルã«å‡ºåŠ› CGIã«ã‚ˆã‚‹ãƒ–ラウザã§ã®ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ POST ã®ã‚µã‚¤ã‚ºåˆ¶é™ Content-Encodig ã«ã‚ˆã‚‹ gzip 圧縮 Tips (Perl) flock ã®ä½¿ã„æ–¹ 排他制御 実効 UID ã®åˆ‡æ›¿ãˆ perl ã® setuid スクリプト perl ã® systemã€execã€ãƒ‘イプ fork, system
Part1 æ£ã—ã„Perl/CGIã®æ›¸ã方：ITpro
Shibuya Perl Mongers 2代目リーダーã«ã—ã¦ï¼Œppencodeã®ä½œè€…。広島市立大å¦å’æ¥å¾Œï¼Œå¤§ä¼æ¥å‘ã‘mod_perl製å“ã®é–‹ç™ºã«å¾“事。2005å¹´ã‚ˆã‚Šã‚µã‚¤ãƒœã‚¦ã‚ºãƒ»ãƒ©ãƒœæ ªå¼ä¼šç¤¾ã«å…¥ç¤¾ã€‚LL Ringã«å‚戦。Namazu for Win32，Plagger，Ajajaã®ã‚³ãƒŸãƒƒã‚¿ãƒ¼ã§ã‚‚ã‚る。 CGIã¨ã„ãˆã°Perl。ãã‚“ãªé¢¨ã«ã„ã‚ã‚Œã¦ã„ãŸæ™‚期もã‚ã‚Šã¾ã—ãŸã€‚レンタル・サーãƒãƒ¼ã®CGIã§æ‰‹è»½ã«PerlãŒä½¿ãˆãŸã“ã¨ã‚‚ã‚り，ã¡ã‚‡ã£ã¨ã—ãŸæŽ²ç¤ºæ¿ã®ã‚¹ã‚¯ãƒªãƒ—トやアクセス・カウンタãªã©ï¼ŒCGIプãƒã‚°ãƒ©ãƒ ã®å¤šããŒPerlã§æ›¸ã‹ã‚Œã¦ã„ã¾ã—ãŸã€‚ã“ã®ãŸã‚PerlãŒçˆ†ç™ºçš„ã«æ™®åŠã—ãŸã®ã§ã™ã€‚Perlã¯æ—¥æœ¬ã®ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆé»Žæ˜ŽæœŸã‚’支ãˆãŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã¨ã—ã¦ï¼Œåºƒããã®åãŒçŸ¥ã‚‰ã‚Œã¦ã„ã¾ã™ã€‚ ãã®åŠé¢ï¼ŒPerlã§æ›¸ã‹ã‚ŒãŸãƒ—ãƒã‚°ãƒ©ãƒ ã®ä¿å®ˆæ€§ã«æ‚©ã‚€å£°ã‚‚èžã‹ã‚Œã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã—ãŸã€‚事実，Perlã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°çµŒé¨“ãŒå°‘
68user's page
UNIX/Linux ã®éƒ¨å±‹ ã«ã€bash ã®å†…部コマンド select コマンド ã‚’è¿½åŠ ã—ã¾ã—ãŸã€‚メニュー形å¼ã®é¸æŠžè‚¢ã‚’æ示ã—ã€ãƒ¦ãƒ¼ã‚¶ã«é¸ã°ã›ã‚‹ã“ã¨ãŒã§ãるコマンドã§ã™ã€‚
Greenbear Diary - Gaucheã§HTTPサーãƒã‚’書ã„ã¦ã¿ã‚‹ , Gaucheã§HTTP , Gaucheã§HTTP(3) , Gaucheã§HTTP(4)
â– [scheme] Gaucheã§HTTPサーãƒã‚’書ã„ã¦ã¿ã‚‹ Gaucheã§CGIを書ã„ã¦ã¿ãŸã„。 ã‘ã©ã“ã®ãƒžã‚·ãƒ³ã¯Windowsã ãªã。 é©å½“ã«HTTPサーãƒã‚’拾ã£ã¦ãã‚‹ã£ã¦æ‰‹ã‚‚ã‚ã‚‹ã‘ã©ã€ã›ã£ã‹ãã ã‹ã‚‰Gaucheã§æ›¸ã„ã¦ã¿ã‚‹ã‹ã€‚ (Gaucheã§HTTPサーãƒã‚’書ããŸã‚ã®ãƒ©ã‚¤ãƒ–ラリ*1を探ã—ãŸã‚“ã ã‘ã©ã€è¦‹ã¤ã‹ã‚‰ãš) ã¨ã„ã†ã‚ã‘ã§ã€‚ ã¨ã‚Šã‚ãˆãšãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã‚’眺ã‚る。www.cgiã¯CGIを書ããŸã‚ã®ã‚‚ã®ã ã‹ã‚‰é•ã†ãªã€‚rfc.httpã¯HTTP「クライアントã€ã£ã¦æ›¸ã„ã¦ã‚ã‚‹ã‹ã‚‰é•ã†ãªã€‚ã†ãƒ¼ã‚“ã€gauche.net使ã£ã¦é ‘張るã®ã‹ã€‚ 高レベルインターフェイスã«HTTP「クライアントã€ã®ä¾‹ã¯ã‚ã‚‹ãªã€‚サーãƒã¯â€¦ãã†ã‹ã€bindã¨ã‹listenã¨ã‹ã™ã‚‹ã®ã‹ã€‚実習ã§ã‚„ã£ãŸãªã。 socket(),bind(),listen(),accept(),read/write/send/recv(),clo
Perl標準ライブラリ　CGI.pm
æ¦‚è¦ CGI.pmã¯ã€ç°¡å˜ã«HTMLページを生æˆã—ã€ãã®å†…容を解æžã™ã‚‹ãŸã‚ã®Perl標準ライブラリã§ã™ã€‚ ã“ã®ãƒ©ã‚¤ãƒ–ラリã®ãƒ¡ã‚½ãƒƒãƒ‰ã‚’使ã£ã¦ã€ãƒ•ã‚©ãƒ¼ãƒ ã‹ã‚‰é€ä¿¡ã•ã‚ŒãŸãƒ‡ãƒ¼ã‚¿ã‚’ãƒã‚§ãƒƒã‚¯ã—ãŸã‚Šã€ãã®å€¤ã‚’使ã£ã¦ãƒ•ã‚©ãƒ¼ãƒ を作æˆã™ã‚‹ã¨ã„ã£ãŸã‚ˆã†ãªã“ã¨ãŒå‡ºæ¥ã¾ã™ã€‚ã¾ãŸã€ãƒ•ã‚¡ã‚¤ãƒ«ã®ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ‰ã€ã‚¹ã‚¿ã‚¤ãƒ«ã‚·ãƒ¼ãƒˆã€ã‚µãƒ¼ãƒãƒ»ãƒ—ッシュãªã©ã‚’実ç¾ã™ã‚‹æ©Ÿèƒ½ã‚‚用æ„ã•ã‚Œã¦ã„ã¾ã™ã€‚ CGI.pmã¯ã‚ªãƒ–ジェクト指å‘ã¨ã€ãƒ¡ã‚½ãƒƒãƒ‰æŒ‡å‘ã®ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ãƒ»ã‚¹ã‚¿ã‚¤ãƒ«ãŒã‚ã‚Šã¾ã™ã€‚ã“ã®ãƒ‰ã‚ュメントã§ã¯ã€ã‚ªãƒ–ジェクト指å‘スタイルを使ã£ã¦èª¬æ˜Žã—ã¦ã„ãã¾ã™ã€‚ 以下ã¯ã€CGI.pmを使ã£ã¦ã€ç°¡å˜ãªHTMLページを出力ã™ã‚‹ä¾‹ã§ã™ã€‚ # CGI.pmã®èªã¿è¾¼ã¿ use CGI; # æ–°ã—ã„CGIオブジェクトã®ä½œæˆ $obj = new CGI; print $obj->header, # HTTPヘッダã®ä½œæˆ $obj->start_html('hel
CGIã€SSIã€PHPã€SENDMAILã«ã¤ã„㦠- ãƒãƒªãƒãƒƒãƒ—ï¼ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒãƒ¼
CGIã€SSIã€PHPã®è¨å®šã«å¿…è¦ãªæƒ…å ±ã‚„ã€å„種CGIã€SSIã€PHPソフトã®è¨å®šæ–¹æ³•ãªã©ã‚’ã”説明ã—ã¾ã™ã€‚ サãƒãƒ¼ãƒˆå¯¾è±¡å¤–ã§ã™ã€‚ã”了承ãã ã•ã„。 PHPã«ã¤ã„㦠ãƒãƒªãƒãƒƒãƒ—ï¼ã§åˆ©ç”¨ã§ãã‚‹PHPã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã¯ã€ã‚µãƒ¼ãƒãƒ¼ã«ã‚ˆã£ã¦ç•°ãªã‚Šã¾ã™ã€‚ サーãƒãƒ¼ç•ªå·ã¯ã€ãƒ¦ãƒ¼ã‚¶ãƒ¼å°‚用ページã®ãƒˆãƒƒãƒ—ページã®ã€ŒåŸºæœ¬æƒ…å ±ã€ã®ã€Œã‚µãƒ¼ãƒãƒ¼ç•ªå·ã€ã«ã¦ç¢ºèªã§ãã¾ã™ã€‚ サーãƒãƒ¼ç•ªå· PHPã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ users3xxã€users4xxã€users7xx
Perlã®å°æŠ€
Perlã§ã¯ä¸–ç•Œä¸ã®é”人ãŒé–‹ç™ºã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã‚ˆã£ã¦ã•ã¾ã–ã¾ãªæ©Ÿèƒ½ãŒç°¡å˜ã«ä½¿ã†ã“ã¨ãŒã§ãã¾ã™ã€‚ Oracleã‚„Accessã‹ã‚‰æƒ…å ±ã‚’é›†è¨ˆã—ãŸçµæžœã‚’LHAå½¢å¼ã§åœ§ç¸®ã—ã¦ãƒ¡ãƒ¼ãƒ«ã«æ·»ä»˜ã—ã¦é€ã£ãŸã‚Šã€ãƒ¡ãƒ¼ãƒ«ã‚’å—ä¿¡ã—ã¦ãã®å†…容をデータベースã«ç™»éŒ²ã™ã‚‹ãªã‚“ã¦ãªã“ã¨ã¾ã§ç°¡å˜ã«ï¼ˆï¼Ÿï¼‰ã§ãã¾ã™ã€‚最近話題ã®XMLã¾ã§æ‰±ãˆã¾ã™ã€‚ ãŸã ドã‚ュメントãŒè‹±èªžãªã‚“ã§ã™ã‚ˆã（ã¾ã当ãŸã‚Šå‰ï¼‰ã€‚ãã“ã§ç§ãŒã¤ãŸãªã„英語能力を使ã£ã¦ãªã‚“ã¨ã‹ã‹ã‚“ã¨ã‹ã€æ—¥æœ¬èªžã«ã—ã¦ã¿ãŸã‚·ãƒªãƒ¼ã‚ºãŒã€Œæ—¥æœ¬èªžãƒãƒ§ã‚¦è¨³ã€ãªã®ã§ã™ã€‚原著者ã®æ–¹ã€…ã«ã¯ãƒ¡ãƒ¼ãƒ«ã§äº†è§£ã‚’ã„ãŸã ã„ã¦ãŠã‚Šã¾ã™ã€‚ã¿ãªã•ã‚“å¿«ãå¿œã˜ã¦ãã‚Œã¾ã—ãŸã€‚（本当ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ï¼‰ ã‚ã„ã«ãã¨ä½•ã‹ã‚’ä¿è¨¼ã™ã‚‹ã¨ã„ã†ã“ã¨ã‚‚ãªã„ã®ã§ã™ãŒã€ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ä½œè€…ã®æ–¹ã€…ã®ãŸã‚ã«ã‚‚ã€ã‚ã‹ã‚Šã‚„ã™ãæ£ç¢ºãªå†…容ã«ã—ãŸã„ã¨æ€ã£ã¦ã„ã¾ã™ã€‚ é–“é•ã£ã¦ã„る点やã”æ„見ãªã©ã‚ã‚Šã¾ã—ãŸã‚‰ãƒ¡ãƒ¼ãƒ«ã‚’ãã ã•ã„。m(__)m ã¾ãŸå°æŠ€ã§ã¯Act
Ｃ言語プãƒã‚°ãƒ©ãƒžã®ç‚ºã®ï¼£ï¼§ï¼©
ã“ã®ãƒšãƒ¼ã‚¸ã§ã¯ã€ï¼£è¨€èªžãƒ—ãƒã‚°ãƒ©ãƒžå‘ã‘ã«ï¼£ï¼§ï¼©ã®èª¬æ˜Žã‚’ã—ã¦ã„ã¾ã™ã€‚ 『Ｃ言語ã§ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã¯å‡ºæ¥ã‚‹ã—ＨＴï¼ï¼¬ã‚‚書ã‘ã‚‹ã‘ã©ï¼·ï¼¥ï¼¢ã¨ã®ï¼©ï¼ï¼¦ãŒåˆ¤ã‚‰ãªã„ã€äººå‘ã‘ã§ã™ã€‚ ＣＧＩã¨è¨€ãˆã°ï¼°ï½…ｒｌãŒä¸»æµãªã®ã§ã™ãŒã€ï¼£ï¼§ï¼©ã¯ï¼£ï¼§ï¼©ã€ï¼°ï½…ｒｌã¯ï¼°ï½…ｒｌã§åˆ‡ã‚Šåˆ†ã‘ã¦å‹‰å¼·ã—ãŸã„人å‘ã‘ã§ã™ã€‚ å¿…è¦æœ€ä½Žé™ã®èª¬æ˜Žã—ã‹ã—ã¦ãŠã‚Šã¾ã›ã‚“。細々ã—ãŸèª¬æ˜Žã‚„æƒ…å ±ã¯ä»–所ã§å¦ã‚“ã§ãã ã•ã„。 戻る 目　次 ＣＧＩã§ã©ã‚“ãªäº‹ãŒã§ãã‚‹ã®ã§ã—ょã†ã‹ ＣＧＩã®åŸºæœ¬ ＣＧＩã§ãƒ‡ãƒ¼ã‚¿ã‚’å—ã‘å–ã‚‹ã«ã¯ï¼Ÿ ＣＧＩã®è¨ç½®ã«ã¤ã„㦠ＣＧＩã§ã©ã‚“ãªäº‹ãŒã§ãã‚‹ã®ã§ã—ょã†ã‹ ã¨ã“ã‚ã§ã€ï¼£ï¼§ï¼©ã‚’使ã†ã¨ã€ã©ã‚“ãªäº‹ãŒã§ãã‚‹ã®ã§ã—ょã†ã‹ã€‚ 何ã ã‹è‰²ã€…ãªäº‹ãŒã§ããã†ã§ã™ãŒã€å®Ÿã¯ã‚·ãƒ³ãƒ—ルã§ã€ 『テã‚ストを出力ã™ã‚‹ã€ 『画åƒã‚’出力ã™ã‚‹ã€ 『入力ã•ã‚ŒãŸæ–‡å—列（ã¾ãŸã¯ãƒ‡ãƒ¼ã‚¿ï¼‰ã‚’å—ã‘å–る〠ã®ï¼“ã¤ã§ã™ã€‚ ãã‚Œã¨ã€ï¼£ï¼§ï¼©ã¯ã€Žï¼‘度ã®å®Ÿè¡Œã§ï¼‘度ã®å‡ºåŠ›ã—ã‹ã§ããªã„ã€æ±ºã¾ã‚ŠãŒã‚ã‚Šã¾ã™ã€‚ 出
1
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
CGI::Lazy
{{#tags}}- {{label}}
{{/tags}}