下記のプログラムにおいて、例えば coconut と入力しても、マッチしません。
なぜマッチしないのでしょうか。
Perl
1#!/usr/bin/perl 2use strict; 3use warnings; 4use 5.016; 5use utf8; 6use Regexp::Assemble; 7 8my $ra = Regexp::Assemble->new; 9open my $file_handle, '<', 'test.txt'; 10while(<$file_handle>) { 11 chomp; 12 $ra->add($_); 13} 14say $ra->re; 15 16while(<STDIN>) { 17 chomp; 18 say "row: $., text: $&" if /$ra->re/; 19}
test.txtの中は、以下の通りです。
cocoa?n[ue]t
Mary[-\s]+Anne?
(The\s+)?(Skipper|Professor)
環境
Linux
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/10/29 11:08