インデックスを使ã£ãŸæŒ‡å®šè¡Œå–り出ã—プãƒã‚°ãƒ©ãƒ (Pure Perl)インデックスを使ã£ãŸæŒ‡å®šè¡Œå–り出ã—プãƒã‚°ãƒ©ãƒ (Pure Perl) 2010-08-10-1 [Programming][Algorithm] テã‚ストファイルã‹ã‚‰æŒ‡å®šã—ãŸè¡Œã‚’å–り出ã™ã‚¿ã‚¹ã‚¯ã«ã¤ã„ã¦ã€‚ é ã‹ã‚‰èµ°æŸ»ã™ã‚‹æ–¹æ³• ã¾ãšã¯ãƒ•ã‚¡ã‚¤ãƒ«ã®é ã‹ã‚‰èµ°æŸ»ã—ã¦ã„ãナイーブãªæ–¹æ³•ã€‚ ■コード（getline-naive.pl）： #!/usr/bin/perl use strict; use warnings; my $qidx = shift @ARGV; # start from 0 my $tgtfn = shift @ARGV; open(my $fh, "<", $tgtfn) or die; while (<$fh>) { next if $. != $qidx + 1; print; last; } close $fh; å…ˆé è¡Œã¯0行目ã«ãªã‚‹ä»•æ§˜ã€‚ ■実行例： % cat test.d
{{#tags}}- {{label}}
{{/tags}}