【已解决】求教perl编程

mikiahmikiah · 发表于 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

warmheard · 发表于 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);

mikiahmikiah · 发表于 2012-9-20 13:46:13

回复 2# warmheard

太感谢您了~~
牛人啊~~

zeushuang · 发表于 2012-10-15 16:42:13

学习了！

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

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

相关帖子

浏览过的版块

站长推荐 /2