ç–‘å•ï¼šmod_perl 㨠後置 if 㨠my - makogã®æ—¥è¨˜#!/usr/bin/perl use strict; use warnings; { my $flg; { my $cnt = 1 if ( $flg ); $cnt++; print "Content-type: text/plain\n\n"; print join( ', ', $cnt, $$, \$cnt ); } } 1; 上記ã®ã‚ˆã†ãª CGI ã‚’ mod_perl（ModPerl::Registry）上ã§å‹•ã‹ã™ã¨ã€Apacheã®ãƒ—ãƒã‚»ã‚¹æ¯Žã« $cnt ãŒã‚«ã‚¦ãƒ³ãƒˆã‚¢ãƒƒãƒ—ã•ã‚Œã¾ã™ã€‚ ãªãœã§ã—ょã†ï¼Ÿï¼Ÿï¼Ÿã€€èª°ã‹æ•™ãˆã¦ãã ã•ã„。 $cnt ã¯ãƒ¬ã‚シカルスコープãªã¯ãšã§ã™ã‚ˆã。スコープãŒå¤–れ㟠{} ã®å¾Œã§ $cnt を使ã†ã¨æ€’られã¾ã™ã€‚ãªã®ã«ã€ãªãœã‹ã‚°ãƒãƒ¼ãƒãƒ«å¤‰æ•°ã®ã‚ˆã†ã«å…±æœ‰ã•ã‚Œã¦ã—ã¾ã„ã¾ã™ã€‚ ãã‚‚ãã‚‚ã€my $cnt = 1 if ( $flg ); ã¯ã©ã®ã‚ˆã†ã«å‹•ä½œã™ã‚‹ã®ã§ã—ょã†
Solaris10ã§perl5.10 SunStudio コンパイル編 - オレã®åŠ£åŒ–ãŒæ¢ã¾ã‚‰ãªã„
tokuhirom blog
CentOS 5.1 ã« perl 5.10 ã‚’ yum ã‹ã‚‰å…¥ã‚Œã‚‹(ã¤ã„ã§ã«ã€MySQL 5.0 も・・・) - cooldaemonã®å‚™å¿˜éŒ²
perldelta - perl 5.10.0 ã®æ–°æ©Ÿèƒ½
{{#tags}}- {{label}}
{{/tags}}