免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › help!
最近访问板块 发新帖
查看: 1730 | 回复: 7
打印 上一主题 下一主题

help! [复制链接]

auddi

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2003-09-11 17:43 |只看该作者 |倒序浏览
...
3683|gladrich|9811317906MGnhpLR|gladrich1@yahoo.com| 9035920|9035920|9035920
3695|Apples|5851253501CMVaddz8|ab1306@yahoo.com| 5411902|5411902|5411902|999999999
3703|brianna|10018079826UBKaRcq|lm8678@hotmail.com| |/usr/home/pin90216.501|4640269|4640269|4640269|999999999
3887|jhawkgrad|2893508202SmIAthIk|jhawkgrad@kscable.com| |/usr2/home/pin90516.501|2850662|2850662|2850662|999999999
...
想把以上文字|..|中的第二、三位提取出如下形式，其余全删除掉，用perl该如何实现?==>;谢谢!
gladrich:9811317906MGnhpLR
Apples:5851253501CMVaddz8
brianna:10018079826UBKaRcq
jhawkgrad:2893508202SmIAthIk
deathcult

论坛徽章:
0
2楼 [报告]
发表于 2003-09-11 18:01 |只看该作者

help!

不用perl可以么？

awk -F'|' '{print $2":"$3}' filename
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
auddi

论坛徽章:
0
3楼 [报告]
发表于 2003-09-11 19:17 |只看该作者

help!

"awk -F"这个是unix命令？我用的是windowsxp.
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
4楼 [报告]
发表于 2003-09-12 09:30 |只看该作者

help!

用split(/\|/, $line)分隔，放入数组，然后取第1，2个元素。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
auddi

论坛徽章:
0
5楼 [报告]
发表于 2003-09-12 11:15 |只看该作者

help!

版主给个脚本样本吧，我的perl很菜啦!
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
6楼 [报告]
发表于 2003-09-12 13:46 |只看该作者

help!

ok，稍等。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
7楼 [报告]
发表于 2003-09-12 13:50 |只看该作者

help!



  3. #!/usr/bin/perl -w


  6. foreach(<DATA>;)
  7. {
  8.         @t = split(/\|/, $_);
  9.         print "$t[1]:$t[2]\n";
  10. }
  11. __DATA__
  12. 3683|gladrich|9811317906MGnhpLR|gladrich1@yahoo.com| 9035920|9035920|9035920
  13. 3695|Apples|5851253501CMVaddz8|ab1306@yahoo.com| 5411902|5411902|5411902|999999999
  14. 3703|brianna|10018079826UBKaRcq|lm8678@hotmail.com| |/usr/home/pin90216.501|4640269|4640269|4640269|999999999
  15. 3887|jhawkgrad|2893508202SmIAthIk|jhawkgrad@kscable.com| |/usr2/home/pin90516.501|2850662|2850662|2850662|999999999


复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
auddi

论坛徽章:
0
8楼 [报告]
发表于 2003-09-12 19:05 |只看该作者

help!

ok, 搞定，谢谢版主:
c:\scrypt>;test.pl
gladrich:9811317906MGnhpLR
Apples:5851253501CMVaddz8
brianna:10018079826UBKaRcq
jhawkgrad:2893508202SmIAthIk
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP