ic_traveller的个人空间 https://blog.eetop.cn/500152 [收藏] [复制] [分享] [RSS]

空间首页 动态 记录 日志 相册 主题 分享 留言板 个人资料

日志

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

已有 1157 次阅读| 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 字符串。

 




点赞

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 注册

  • 关注TA
  • 加好友
  • 联系TA
  • 0

    周排名
  • 0

    月排名
  • 0

    总排名
  • 0

    关注
  • 1

    粉丝
  • 0

    好友
  • 0

    获赞
  • 0

    评论
  • 237

    访问数
关闭

站长推荐 上一条 /1 下一条


小黑屋| 手机版| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-11-13 08:44 , Processed in 0.010779 second(s), 6 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
返回顶部