日志

perl learning day 3 --- practice&& 初级正则表达式

已有 1032 次阅读| 2012-11-6 11:15

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 字符串。