「すぐわかるPerl」深沢千尋/著を元にやってみた。 #!/usr/bin/perl use strict; use warnings;#パターン検索用while (){ # if (/Jackson/){ # if (/Jackson$/){ # if (/^J/){ # if (/^J[^0-9]+$/){ if (/^J\D+$/){ print; } } 扱うテキストは、下記の通り$ …