• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Perl语言入门-第七章-漫游正则表达式王国-习题

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1. 题目

   

    原始题目阐述有些问题,这里说明一下。第1题:匹配包含fred的行。第2题:匹配包含fred或者Fred的行。第3题:匹配包含点号的行。第4题:匹配大写字母开头的行。第5题:包含连续两个相同的非空格字符的行,比如AA,aa,¥¥,等。第6题:匹配既有wilma也有fred的行。

2. 代码与输出

第1题:匹配包含fred的行。   

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-1
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/fred/) {
 9     chomp;
10     say $_;
11   } 
12 }
13 #-----------------------------------------------------------#
14 # /fred/匹配包含fred的字符串
15 # /^fred$/匹配包含且只包含fred的字符串
16 #-----------------------------------------------------------#

第2题:匹配包含fred或者Fred的行。   

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-2
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/[f,F]red/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#
14 # /fred|Fred/也可以
15 #-----------------------------------------------------------#

第3题:匹配包含点号的行。    

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-3
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/\./) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#

第4题:匹配大写字母开头的行。

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-4
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/^[A-Z]/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#

第5题:包含连续两个相同的非空格字符的行,比如AA,aa,¥¥,等

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-5
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/(\S)\1/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#
14 # 实际上是匹配BB,aa,33,--,这样的两个相同连续字符,而不是找
15 # 字符串中的最长连续对称子串
16 #-----------------------------------------------------------#

第6题:匹配既有wilma也有fred的行。

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-6
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/wilma.*fred|fred.*wilma/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#
14 # 实际上使用两次if分别判断行是否存在fred和wilma更好,因为本题
15 # 中,假设行的fred和wilma不会重合是正确的,这两个单词没有重复
16 # 的字符,如果要匹配abb,bba这两个,那么abba就不能被
17 # /abb.*bba|bba.*abb/匹配到,但是可以通过if(/abb/) {
18 # if(/bba/) {}}匹配到。
19 #-----------------------------------------------------------#

3. 文件

    /Files/pangxiaodong/LearningPerl/ch7-answer.rar

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
perl替换一例发布时间:2022-07-22
下一篇:
【Centos】Postgresql连接测试(Perl和Ruby)发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap