Perl初心者の方への質問：テキストファイルから12文字以上の単語を抽出する方法がわかりません

質問

• Perl初心者の方が、テキストファイルから12文字以上の単語を抽出して新しいファイルに保存するスクリプトを作成しようとしていますが、うまくいきません。
• 現在、カレントディレクトリにあるテキストファイルを読み込んで、12文字以上の単語を抽出する処理を行っていますが、抽出されるのは12文字以上の単語を含む行全体のようです。
• スクリプトのどこが間違っているのか、また根本的なアプローチ自体が間違っているのかを教えていただきたいです。

回答No.5

sakusaker7

すみません。なにか盛大に思い込みが入ってました。
一行で書くのなら

my @results = grep(/[a-zA-Z']{12,}/,@content);
の変型は
my @results = grep(/[a-zA-Z']{12,}/, map {split ' '} @content);
といった感じですね。
さすがにこれはやり過ぎというところなので、
foreach my $line (@content) {
my @t = split ' ', $line;
my @result = grep(/[a-zA-Z']{12,}/, @t);
foreach my $result (@results) {
(省略)
}
}
としたほうが分かりやすいでしょうか
(@tや@resultを使わないようにも書けますが)。

あと、split の第一引数ですが、' ' や/ / のように半角スペース
一個のときは特別な動作をして、半角スペース一個で分割するわけではありません。
\s+を使ったときと概ね同じです。
どうもこれをご存じない方が少なくないようなのでお節介ながら
書いておきます。

それと、ファイルをオープンしたときのファイルハンドルに
NEWFILEのような大文字のbareword を使うのは今は推奨されていません。

お礼

ありがとうございました。

以下のようなかたちにして、なんとか目的を遂げることができました。

while ( my $file = glob '*.txt' ) {
open my $reading, '<', $file or die;
my @content = <$reading>;
close $reading;
foreach my $line (@content) {
my @t = split ' ', $line;
my @results = grep(/[a-zA-Z']{12,}/, @t);
foreach my $result (@results) {
print "$result\n";
}
}
}
これを、コマンドプロンプトで「perl filename.pl >output_file.txt」のように打ち込んで出力すると、最終成果物のリストができます。

しかし、テキストファイル作成まで自動化しようとして最後の部分を
foreach my $result (@results) {
open (NEWFILE, ">output_file.txt") or die "$!";
print NEWFILE @results;
close(NEWFILE);
}
}
}

とすると、なぜか（1）単語が改行なしでつながってしまう（2）12文字以上ではなく12文字の単語のみが拾われている、という問題が発生してしまい、これの原因がよくわかりません。

きっとまた、私がバカなことをしているのだと思うのですが、余裕があったら何を間違えているのか、ご指摘いただけると助かります。