在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 2641|回复: 3

[求助] 【已解决】求教perl编程

[复制链接]
发表于 2012-9-18 22:12:16 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
本帖最后由 mikiahmikiah 于 2012-10-4 17:55 编辑

使用Perl实现如下的功能:
     从文件mail.list中读取联系人和联系邮箱,并在其中读取@nvidia.com的联系人,按字母表排序并写入nvidia.list。
    mail.list文件内容大致类似如下:
   <name>    <Email>
   Jenny       Jenny@163.com
   Jojo          jojo@tom.com
   Keke        keke@nvidia.com
   Lily          lily@yahoo.com
发表于 2012-9-20 13:26:41 | 显示全部楼层
open(MAIL_LIST, "mail.list");
open (OUT, ">nvidia.list");
my %list;

while ($line =<MAIL_LIST>)
{
    if($line =~ /^\s*(\S+)\s+(\S+\@nvidia\.com)\s*$/)
    {
        $list{$1} = $2;
    }
}

@keys = sort(keys(%list));
foreach $item (@keys)
{
    printf OUT ("$item        $list{$item}\n");
}
close (OUT);
close(MAIL_LIST);
 楼主| 发表于 2012-9-20 13:46:13 | 显示全部楼层
回复 2# warmheard


   太感谢您了~~
   牛人啊~~
发表于 2012-10-15 16:42:13 | 显示全部楼层
学习了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

×

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

GMT+8, 2024-11-5 20:39 , Processed in 0.020321 second(s), 8 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表