404 Blog Not Found:perl - å‹æ‰‹ã«æ·»å‰Š - 40è¡Œã§ä½œã‚‹Perl用テンプレートエンジン2007å¹´10月30æ—¥20:00 カテゴリLightweight Languages perl - å‹æ‰‹ã«æ·»å‰Š - 40è¡Œã§ä½œã‚‹Perl用テンプレートエンジン 久々ã®å‹æ‰‹ã«æ·»å‰Šã€‚今回ã¯ã“ã¡ã‚‰ã€‚ 40è¡Œã§ä½œã‚‹Perl用テンプレートエンジン æ£è¦è¡¨ç¾ãŒã‚‰ã¿ãªã®ã§ã€Perl以外ã§ã‚‚有用。 添削箇所ã¯ã€ã“ã¡ã‚‰ã€‚ 40è¡Œã§ä½œã‚‹Perl用テンプレートエンジン sub convert { return unless defined(my $str = shift); $str =~ s{&}{&}gso; $str =~ s{<}{<}gso; $str =~ s{>}{>}gso; $str =~ s{\"}{"}gso; $str; } ã“ã‚Œã®æœ€åˆã®substitutionãŒ&ã§ã¯ãªãã¦&ã§ã¯ãªã„ã‹ã¨ã„ã†ã®ã¯ã•ã¦ãŠãã€ã“ã†ã„ã£ãŸå ´åˆã€ä½•åº¦ã‚‚æ£è¦è¡¨ç¾ã‚’ã‹ã‘
{{#tags}}- {{label}}
{{/tags}}