perl脚本学习日记

例:例9.4

(From?a?Script)

1?while(<DATA>){

2?print?if?/[A-Z][a-z]eve/;

}

_?_DATA_?_

Steve?Blenheim?101

Betty?Boop?201

Igor?Chevsky?301

Norma?Cord?401

Jonathan?DeLoach?501

Karen?Evich?601

(Output)

Steve?Blenheim?101

打开文件句柄

例：

(The?Text?File:?datebook)

Steve?Blenheim

Betty?Boop

Lori?Gortz

Sir?Lancelot

Norma?Cord

Jon?DeLoach

Karen?Evich

--------------------------------------------------------------

(The?Script)

#!/usr/bin/perl

#?Open?a?file?with?a?filehandle

1?open(FILE,?"datebook")?||?die?"Can't?open?datebook:?$!n";

2?while($line?=?<FILE>)?{

3?print?"$line"?if?$line?=~?/^Lori/;

4?}

5?close(FILE);

(Output)

3?Lori?Gortz