14/01/04 13:10:19.31
>>160
$text = '英文';
$keyword = '特定の単語';
$regex = qr/(?:\G|[.?!;])\s*((?=[^.?!;]*\b$keyword\b)[^.?!;]+(?:[.?!;]|\z))/;
while ($text =~ /$regex/g) {
print "$1\n";
}
() や "" などの中に文章が再帰的に書かれているようなものは考慮していない．
14/01/04 13:10:19.31
>>160
$text = '英文';
$keyword = '特定の単語';
$regex = qr/(?:\G|[.?!;])\s*((?=[^.?!;]*\b$keyword\b)[^.?!;]+(?:[.?!;]|\z))/;
while ($text =~ /$regex/g) {
print "$1\n";
}
() や "" などの中に文章が再帰的に書かれているようなものは考慮していない．