[Perl] CGI.pm ã® charset('utf-8') - cyberlib.enterbrainz.com
[Perl] CGI.pmã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆæ–‡å—コードã¯ISO-8859-1。 ãã“ã§charsetメソッドã§æ–‡å—コード指定ã™ã‚‹ãŒ charset('utf-8') ã¯æ³¨æ„。 例1) #!/usr/bin/perl use strict; use warnings; use CGI qw(-nosticky); my $cgi = new CGI; $cgi->charset('utf-8'); my $str = $cgi->param('str') || ''; $str = $cgi->escapeHTML($str); print $cgi->header, $cgi->start_html(-title=>'test',-lang=>'ja-JP'), $cgi->h1($str),   #[error] Wide characte
ã•ãらã®ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒã§ Python 外部モジュールを使ã†
ãŠçŸ¥ã‚‰ã›: 最近ã®äº‹æƒ…ã«åˆã‚ã›ã¦æ–°ã—ã書ãç›´ã—ãŸã€Œã•ãらã®ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒã« Python モジュールをインストールã€ã®ãƒšãƒ¼ã‚¸ã‚’用æ„ã—ã¾ã—ãŸã€‚今後ã¯ã¾ãšãã¡ã‚‰ã‚’ã”å‚照下ã•ã„。（2013å¹´2月8日） ã•ãらインターãƒãƒƒãƒˆã®ã€Œã•ãらã®ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒã€ã‚µãƒ¼ãƒ“ス㧠Python ã®å¤–部モジュールを導入・利用ã™ã‚‹ãŸã‚ã®è¦šãˆæ›¸ãã§ã™ã€‚ イントãƒãƒ€ã‚¯ã‚·ãƒ§ãƒ³ 外部モジュールをホームディレクトリ下ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹ インストールã—ãŸå¤–部モジュールをインãƒãƒ¼ãƒˆã™ã‚‹ シェルã‹ã‚‰ä½¿ã† CGI ã‹ã‚‰ä½¿ã† ã¾ã¨ã‚ ãŠã¾ã‘：CGI プãƒã‚°ãƒ©ãƒ ãŒå‹•ã‹ãªã„…… スクリプトã®æ”¹è¡Œã‚³ãƒ¼ãƒ‰ã‚’確èªã™ã‚‹ æ”¹è¨‚å±¥æ´ å…責・ライセンス イントãƒãƒ€ã‚¯ã‚·ãƒ§ãƒ³ ã•ãらインターãƒãƒƒãƒˆã®ãƒ›ã‚¹ãƒ†ã‚£ãƒ³ã‚°ã‚µãƒ¼ãƒ“スã€ã€Œã•ãらã®ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒã€ã§ã¯ã€CGI ã¨ã—㦠Python を利用ã§ãã¾ã™ã€‚Python ã«ã¯æ¨™æº–モジュールã®ã»ã‹ã«ã‚‚ã€PyPI ãªã©ã§è±Šå¯Œ
Perlメモ/CGIモジュール - Walrus, Digit.
フォームデコードãªã©ã®æ©Ÿèƒ½ã‚’æŒã¤ã€CGI作æˆè€…ã®ãŸã‚ã®Perlモジュール。 CGIモジュールã¯HTMLやフォームã®ç”Ÿæˆã€ãƒ•ã‚©ãƒ¼ãƒ データã®ãƒ‘ースã€Cookieã®å–å¾—ã¨å‡ºåŠ›ãªã©ã®æ©Ÿèƒ½ã‚’æŒã¤ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ ã„ã•ã•ã‹é‡åŽšé•·å¤§ã®ãらã„ã¯ã‚ã‚Šã¾ã™ãŒã€CGI::Liteモジュールã¨ç•°ãªã‚ŠCGIモジュールã¯å¤šãã®ç’°å¢ƒã§ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã‚‹ã“ã¨ãªã©ã€CGIモジュールをé¸ã¶ã¹ãç†ç”±ã‚‚多ãã‚ã‚Šã¾ã™ã€‚ CGIモジュールã«ã¯å¤šãã®ãƒ‰ã‚ュメントãŒä»˜å±žã—ã¦ã„ã¾ã™ã€‚ ã“ã®å†…ã„ãã¤ã‹ã¯ã€Perldoc.jpã§å’Œè¨³ã—ãŸæ–‡æ›¸ã‚’見るã“ã¨ãŒã§ãã¾ã™ã€‚ http://perldoc.jp/docs/modules/ IBMã®ã‚µã‚¤ãƒˆã«ã¯ã€Œä¾¿åˆ©ãªCGIスクリプト作æˆã®ãŸã‚ã®ãƒ’ント～CGI.pmモジュールを綿密ã«æ¤œè¨Žã™ã‚‹ã€ã¨ã„ã†æ–‡æ›¸ãŒã‚ã‚Šã¾ã™ã€‚ ã„ã•ã•ã‹å¤ã„ã®ã§ã™ãŒã€CGIモジュールを使ã£ãŸãƒ•ã‚¡ã‚¤ãƒ«ã‚¢ãƒƒãƒ—ãƒãƒ¼ãƒ€ã‚’検討ã™ã‚‹ã®ã«
Perl&CGI最強講座 [smart]
indexã¯ã€ç¬¬1引数STRã®å…ˆé ã‹ã‚‰ç¬¬2引数SUBSTRãŒæœ€åˆã«è¦‹ã¤ã‹ã£ãŸä½ç½®ã‚’è¿”ã—ã¾ã™ã€‚ 第3引数 POSITIONã§æ¤œç´¢ã™ã‚‹ä½ç½®ã‚’指定ã™ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã€‚第3引数POSITIONã«ã¯æœ€åˆã®æ–‡å—ã‚’ 0 ã¨ã—ã¦æŒ‡å®šã—ã¾ã™ã€‚ è¿”å´å€¤ã¯ 0ã€ã‚‚ã—ãã¯å¤‰æ•°$[ã«è¨å®šã—ãŸå€¤ã§ã™ã€‚SURSTRãŒè¦‹ã¤ã‹ã‚‰ãªã‹ã£ãŸå ´åˆã¯ -1 ã‚’è¿”ã—ã¾ã™ã€‚ indexã®ä½¿ã„æ–¹ $str = "How you always hurt the one you love."; print index($str,'you'); > 4
![Perl&CGI最強講座 [smart]](https://cdn-ak-scissors.b.st-hatena.com/image/square/efeb6493234f33406d242c048873a805fca99c63/height=288;version=1;width=512/https%3A%2F%2Frfs.jp%2Fwp-content%2Fthemes%2Fsmart%2Fogpimage.png)
1
ランã‚ング
ãŠçŸ¥ã‚‰ã›
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}