|
practice ---charpter 5
1 做一个类似tac 的程序:
我的写法: 答案 :
@ARGV = qw# fred dino btty #; print reverse <>;
@ARGV = reverse (@ARGV) ;
foreach (@ARGV) {
open FILE, "$_";
@lines = reverse (<FILE>);
foreach $line (@lines) {
printf "$line" ;
}
}
我的代码过于复杂啊,尤其相比答案,不过高清楚了一件事:foreach 块中 $_的用法,以及文件句柄的用法。
2 看起来新奇的用法:
0..9打印7遍:
@num = qw# 0123456789 # ;
print "@num" x 7, "\n";
关于正则表达式:
1 元字符: . ;匹配任意的字符
2 量词 : * : 匹配0次 或多次。
+ :匹配 一个条目一次以上
? :它的前一个条目出现一次或不出现。
3 模式分组:
/(fred)+/ : 匹配fredfredfred 字符串。