免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1390 | 回复: 7

谁帮我看看这是怎么回事 [复制链接]

论坛徽章:
0
发表于 2012-04-11 09:11 |显示全部楼层
[user@host ~]$ cat f
aa # dafdef # aa@sina.com
fadfkjwef # adfeijmf # asdfadsf@gmail.com
fadf # qweriunf # afdaksdf@tom.com
[user@host ~]$ cat g
zdg # 12344321 # zdg@csdn.net
LaoZheng # 670203313747 # chengming_zheng@163.com
fstao # 730413 # fstao@tom.com
huwolf # 2535263 # hujiye@263.net
cadcjl # KIC43dk6! # ccedcjl@21cn.com
[user@host ~]$ cat f | ./t.pl
gmail.com=1
sina.com=1
tom.com=1
[user@host ~]$ cat g | ./t.pl
=1cn.com
=1m.com
=13.net
=13.com
=1dn.net
[user@host ~]$ cat t.pl
#!/usr/bin/perl

use strict;
use warnings;

my %email;
my $pos;
my $domain;

while (<STDIN>) {
        chomp;
        my @tmp = split /\s#\s/;
        $pos = index($tmp[2], '@');
        $domain = substr($tmp[2], $pos + 1);
        $email{$domain} = 0 if (not exists $email{$domain});
        ++$email{$domain};
}
foreach my $site (keys %email) {
        print $site.'='.$email{$site}."\n";
}
[user@host ~]$

论坛徽章:
0
发表于 2012-04-11 11:30 |显示全部楼层
回复 1# vgra


    谁能帮我看看这个是怎么回事,为什么同样的一个程序t.pl
分析两个数据格式完全一样的文件,一个能得到正确结果,一个得到的就是错误的
这是怎么回事呢

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2012-04-11 11:39 |显示全部楼层
无法重现

论坛徽章:
0
发表于 2012-04-11 11:52 |显示全部楼层
回复 3# zhlong8


    在我的linux上稳定的出现,是我的电脑被黑了么
a.jpg

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2012-04-11 11:59 |显示全部楼层
我想起来了,你的文本是 win 下传过去的吧,多了个 \r

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2012-04-11 13:03 |显示全部楼层
dos2unix

论坛徽章:
0
发表于 2012-04-11 13:18 |显示全部楼层
回复 5# zhlong8


    果然,ok了
   
    多谢版主

论坛徽章:
0
发表于 2012-04-11 15:33 |显示全部楼层
所以我现在写东西基本都不用chomp了,直接s/[\r\n]+$//
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP