パターン検索

Perl

「すぐわかる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