Algorithm::Diff ã§é¡žä¼¼æ–‡å—列検索Algorithm::Diff ã§é¡žä¼¼æ–‡å—列検索 2008-04-22-3 [Algorithm][Programming] Perl ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ« Algorithm::Diff[2004-12-12-2]を使ã£ã¦ã€ç·šå½¢æ™‚é–“ã§é¡žä¼¼æ–‡å—列検索ã™ã‚‹ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ 。 ã¾ã‚〠agrep ãŒã‚ã‚Œã°ãã‚Œã§ã„ã„ã‚“ã§ã™ã‘ã©ã。 サンプルコード(ads.pl)： #!/usr/bin/perl use strict; use warnings; use Algorithm::Diff; use utf8; use Encode; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $key = shift; my @seq1 = split(//, decode('utf-8', $key)); while (<
{{#tags}}- {{label}}
{{/tags}}