Perlでの比較について

2011/06/27 14:26

このQ&Aのポイント

Perlを使用して、文字列の一致を判定する方法について教えてください。
文字列全一覧とテキストファイル内の文字列を比較し、完全一致、完全不一致、部分一致を判定したいです。
数千個の文字列を含む文字列全一覧と数百個のテキストファイルがあります。どのテキストファイルの文字列が文字列全一覧に含まれているかを判定したいです。

yasaiumaiumai
お礼率9% (1/11)

Perl
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

kumoz
ベストアンサー率64% (120/185)

2011/06/27 19:17 回答No.1

perl xxxxx.pl *.txt 以下のプログラムは、文字列一覧ファイルをスクリプト内で、テキストファイルを上記のように引数として与えるように書いてあります。 use strict; my %check; open IN, "xxxxx.dat" or die "Can't open: $!"; while (my $line = <IN>) { chomp $line; $check{$line} = 1; } close IN; my ($match, $unmatch) = (0, 0); while (my $line = <>) { chomp $line; exists $check{$line} ? ++$match : ++$unmatch; if (eof) { my $judge = ($match and !$unmatch) ? "完全一致" : ($match and $unmatch) ? "部分一致" : "完全不一致"; print "$ARGV: $judge\n"; ($match, $unmatch) = (0, 0); } }

質問者