Perl正则表达式--练习1
2015-04-29 16:15
351 查看
练习题目：
1. 打印所有含有模式Street的行。
2. 打印名字与B或b相匹配的行。
3. 打印与Ker匹配的行。
4. 打印区号为408的电话号码。
5. 打印Gortz的名字和地址。
6. 以大写形式打印Ephram的名字。
7. 打印不含4的行。
8. 将William的名字改为Siegfield。
9. 打印Tommy Savage的生日。
10. 打印收入超过$40,000的名字。
11. 打印在6月出生的人的名字。
12. 打印Massachusetts的邮件编码。
练习文件内容：
1. 打印所有含有模式Street的行
运行结果为：
2. 打印名字与B或b相匹配的行
3. 打印与Ker匹配的行
4. 打印区号为408的电话号码
5. 打印Gortz 的名字和地址
6. 以大写形式打印Ephram 的名字
7. 打印不含4 的行
8. 将William 的名字改为Siegfield
9. 打印Tommy Savage 的生日
10. 打印收入超过$40,000的名字
11. 打印在6月份出生的人的名字
12. 打印Massachusetts的邮件编码
本文出自 “固态U盘” 博客，请务必保留此出处http://lavenliu.blog.51cto.com/5060944/1640384
1. 打印所有含有模式Street的行。
2. 打印名字与B或b相匹配的行。
3. 打印与Ker匹配的行。
4. 打印区号为408的电话号码。
5. 打印Gortz的名字和地址。
6. 以大写形式打印Ephram的名字。
7. 打印不含4的行。
8. 将William的名字改为Siegfield。
9. 打印Tommy Savage的生日。
10. 打印收入超过$40,000的名字。
11. 打印在6月出生的人的名字。
12. 打印Massachusetts的邮件编码。
练习文件内容：
# cat sample.txt Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200 Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600 JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100 Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700 Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500 William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500 Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700 James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000 Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200 Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500
1. 打印所有含有模式Street的行
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print if /Street/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：
2. 打印名字与B或b相匹配的行
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print if $name =~ /[Bb]/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：3. 打印与Ker匹配的行
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print if /Ker/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：4. 打印区号为408的电话号码
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print if $phone =~ /408/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：5. 打印Gortz 的名字和地址
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print "$name -- $address\n" if $name =~ /Gortz/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：6. 以大写形式打印Ephram 的名字
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print "\U$name\E" if $name =~ /Ephram/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：7. 打印不含4 的行
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print unless ($. == 4);
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：8. 将William 的名字改为Siegfield
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print if s/William/Siegfield/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：9. 打印Tommy Savage 的生日
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print "$name birth is: $birth\n" if $name =~ /Tommy Savage/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：10. 打印收入超过$40,000的名字
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
print "$. -- $name\n" if ($salary > 40000);
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：11. 打印在6月份出生的人的名字
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
($birth_month, $birth_day, $birth_year) = split("/", $birth);
print $name if $birth_month =~ /6/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：12. 打印Massachusetts的邮件编码
while (<DATA>) {
($name, $phone, $address, $birth, $salary) = split(":", $_);
($street, $city, $capital) = split(",", $address);
print $', "\n" if $address =~ /MA/;
}
__DATA__
Tommy Savage:408–724–0140:1222 Oxbow Court, Sunnyvale,CA 94087:5/19/66:34200
Lesle Kerstin:408–456–1234:4 Harvard Square, Boston, MA 02133:4/22/62:52600
JonDeLoach:408–253–3122:123 Park St., San Jose, CA 94086:7/25/53:85100
Ephram Hardy:293–259–5395:235 Carlton Lane, Joliet, IL 73858:8/12/20:56700
Betty Boop:245–836–8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500
William Kopf:846–836–2837:6937 Ware Road, Milton, PA 93756:9/21/46:43500
Norma Corder:397–857–2735:74 Pine Street, Dearborn, MI 23874:3/28/45:245700
James Ikeda:834–938–8376:23445 Aster Ave., Allentown, NJ 83745:12/1/38:45000
Lori Gortz:327–832–5728:3465 Mirlo Street, Peabody, MA 34756:10/2/65:35200
Barbara Kerz:385–573–8326:832 Ponce Drive, Gary, IN 83756:12/15/46:268500运行结果为：本文出自 “固态U盘” 博客，请务必保留此出处http://lavenliu.blog.51cto.com/5060944/1640384
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 28-正则表达式-08-正则表达式(练习_2)
- Perl 中的正则表达式
- java采集网址正则表达式练习一
- perl/pcre正则表达式-选项/扩展模式
- Perl 中的正则表达式
- CH6--正则表达式,p112,练习一？？？
- python 正则表达式的练习
- Perl：Perl正则表达式、循环和SHELL命令结合使用。
- POSIX,Perl正则表达式区别
- Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop
- Perl正则表达式引用
- 学习正则表达式的一点练习与测试
- 10、正则表达式匹配练习
- 正则表达式练习，网络爬虫
- PHP中Perl兼容类型的正则表达式相关函数总结
- perl正则表达式
- 老男孩带你了解perl正则表达式中的零宽断言
- perl中的正则表达式
- Python练习代码 -- 字符串和正则表达式， 文件文件夹操作
- 正则表达式：网页爬虫：从TXT中获取邮箱地址（获取的练习）