Template::Toolkitã«ã‚ˆã‚‹ãƒ†ãƒ³ãƒ—レートãŒè¤‡é›‘化ã—ã¦ãã¦ã€flymakeã«ã‚ˆã‚‹ã‚·ãƒ³ã‚¿ãƒƒã‚¯ã‚¹ãƒã‚§ãƒƒã‚¯ã‚’ã—ãŸããªã£ãŸã®ã§ã‚„ã£ã¦ã¿ã¾ã—ãŸã€‚以下ã€ã‚ã‚“ã¾ã‚Šæ•´ç†ã•れã¦ãªã„ã®ã§ã€åƒ•以外ã®ç’°å¢ƒã§ã™ãã«å‹•ãよã†ã«ãªã‚‹ã¨ã„ã†ã‚‚ã®ã§ã‚‚ãªã„ã¨æ€ã„ã¾ã™ãŒã€å‚考ã¾ã§ã«æŽ²è¼‰ã—ã¦ãŠãã¾ã™ã€‚ 実行例ã¯ä»¥ä¸‹ã®ç”»åƒã®é€šã‚Šã€‚ ã¾ãšã¯ã€ä»¥ä¸‹ã®ã‚¹ã‚¯ãƒªãƒ—トをPATHã®é€šã£ãŸã¨ã“ã‚ã«ã§ã‚‚ã€tt_parse.plã¨ã—ã¦ä¿å˜ã—ã¾ã™ã€‚ #!/usr/bin/env perl use strict; use warnings; use Path::Class qw(file); use Template::Parser; my $file = file(shift); my $template = $file->slurp; my $parser = Template::Parser->new; if (!$parser->par

{{#tags}}- {{label}}
{{/tags}}