小骆驼图书第七章练习;
1.
#! /perl -w
$line = 1;
foreach(<>){ #循环输入的文件
if(/fred/){ #如果匹配上fred
print $line , $_; #打印行号,行内容
}
$line += 1;
}
#! /perl -w
$line = 1;
foreach(<>){ #循环输入的文件
if(/fred/i){ #如果匹配上fred, i忽略大小写匹配
print $line , $_; #打印行号,行内容
}
$line += 1;
}
#! /perl -w
$line = 1;
foreach(<>){ #循环输入的文件
if(/\./i){ #这里需要用反斜线转义,因为本来"."是元字符,代表任意匹配(除换行);
print $line , $_; #打印行号,行内容
}
$line += 1;
}
#! /perl -w
$line = 1;
foreach(<>){ #循环输入的文件
if(/^[a-z]*[A-Z][a-z]$/){ #^匹配开头。$匹配结尾,期间只匹配一个大写;
print $line , $_; #打印行号,行内容
}
$line += 1;
}
#! /perl -w
$line = 1;
foreach(<>){ #循环输入的文件
if(/wilma|fred/i){ #匹配wilma或fred,并且不关心大小写
print $line , $_; #打印行号,行内容
}
$line += 1;
}