免费注册 查看新帖 |

Chinaunix

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

简单的文件内容如何初始化入hash数组? [复制链接]

论坛徽章:
0
发表于 2008-11-10 10:50 |显示全部楼层
文件内容如下:
1   a
2   b
3   c
。。。
请问这中文件如何快速初始化成hash数组呢?我用%m=`cat file`方式不行,谢谢!

论坛徽章:
0
发表于 2008-11-10 11:09 |显示全部楼层

  1. $m{(split)[0]}=(split)[1] while(<DATA>);

  2. while(($key,$value) = each %m){
  3.         print "$key=>$value\n";
  4. }

  5. __END__
  6. 1   a
  7. 2   b
  8. 3   c
复制代码

论坛徽章:
0
发表于 2008-11-10 11:25 |显示全部楼层
原帖由 hitsubunnu 于 2008-11-10 11:09 发表

$m{(split)[0]}=(split)[1] while();

while(($key,$value) = each %m){
        print "$key=>$value\n";
}

__END__
1   a
2   b
3   c


你这样要 split 2次的。

#!usr/local/bin/perl

my %hash = map { chomp; split} <DATA>;

for (keys %hash) {
        print $_, " => ", $hash{$_}, "\n";
}
__END__
1   a
2   b
3   c

论坛徽章:
0
发表于 2008-11-10 11:31 |显示全部楼层
原帖由 cobrawgl 于 2008-11-10 11:25 发表


你这样要 split 2次的。

#!usr/local/bin/perl

my %hash = map { chomp; split} ;

for (keys %hash) {
        print $_, " => ", $hash{$_}, "\n";
}
__END__
1   a
2   b
3   c


你这个是 将全部数据放到一个数组中  文件大了 效率也不好吧

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
发表于 2008-11-10 12:32 |显示全部楼层
原帖由 hitsubunnu 于 2008-11-10 11:31 发表


你这个是 将全部数据放到一个数组中  文件大了 效率也不好吧

那把 map 改为 while 循环就完了。

论坛徽章:
0
发表于 2008-11-11 09:30 |显示全部楼层
我来添乱
my %hash = split /\s+/, do{local $/; <DATA>;};

论坛徽章:
0
发表于 2008-11-11 10:30 |显示全部楼层
用正则的效率高,还是split效率高呢?
while(<DATA>){
  /^(.+)\d+(.+)$/;
  $m{$1}=$2;
}

while(($key,$value) = each %m){
        print "$key=>$value\n";
}

__END__
1   a
2   b
3   c

论坛徽章:
0
发表于 2008-11-11 11:06 |显示全部楼层
原帖由 machine 于 2008-11-11 10:30 发表
用正则的效率高,还是split效率高呢?
while(){
  /^(.+)\d+(.+)$/;
  $m{$1}=$2;
}

while(($key,$value) = each %m){
        print "$key=>$value\n";
}

__END__
1   a
2   b
3   c


恩 好问题
取决于具体的数据
我原先的测试 ( 对很长的一行取第2列)
结果是 @a = split; 的形式最慢的 reg快于(split)[1] 慢于在 (split /\s+/, $_, 2)[1];
网上也找到过相似的测试 结果不太一样 但总体来说reg的速度相当的快, 即使不是第一也和第一相差不远。

要是取所有的列 还是split快吧。。。。 不好意思没做过比较

[ 本帖最后由 DQP 于 2008-11-11 11:09 编辑 ]

论坛徽章:
0
发表于 2008-11-11 11:08 |显示全部楼层
原帖由 machine 于 2008-11-11 10:30 发表
用正则的效率高,还是split效率高呢?
while(){
  /^(.+)\d+(.+)$/;
  $m{$1}=$2;
}

while(($key,$value) = each %m){
        print "$key=>$value\n";
}

__END__
1   a
2   b
3   c


恩 好问题
取决于具体的数据
我原先的测试 ( 对很长的一行取第2列)
结果是 @a = split; 的形式最慢的 reg快于(split)[1] 慢于在 (split /\s+/, $_, 2)[1];
网上也找到过相似的测试 结果不太一样 但总体来说reg的速度相当的快, 即使不是第一也和第一相差不远。

要是取全部的列 还是split快吧。。。。

[ 本帖最后由 DQP 于 2008-11-11 11:11 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP