読者です 読者をやめる 読者になる 読者になる

パターン検索

「すぐわかるPerl」深沢千尋/著を元にやってみた。


#!/usr/bin/perl
use strict;
use warnings;

#パターン検索用

while (){
# if (/Jackson/){
# if (/Jackson$/){
# if (/^J/){
# if (/^J[^0-9]+$/){
if (/^J\D+$/){
print;
}
}
扱うテキストは、下記の通り

$ cat people.txt
Micheal Jackson
Janet Jackson
Joe Jackson
Joni Mitckel
Jackson 5
Mickeal Johnson
Jon Anderson
Sade
Hiroko Shimabukuro
Eriko Imai
Takako Uehara
Hitoe Arakaki
John Paul Jones
14 carats soul
Prince
UK
US13