简单的文件内容如何初始化入hash数组？

yakyren

UID: 19504
帖子: 7
积分: 16
在线时间: 10 分钟

1^# yakyren 发表于 2008-11-10 10:50

简单的文件内容如何初始化入hash数组？

文件内容如下：
1 a
2 b
3 c
。。。
请问这中文件如何快速初始化成hash数组呢？我用%m=`cat file`方式不行，谢谢！

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

2^# hitsubunnu 发表于 2008-11-10 11:09

[Copy to clipboard] [ - ]

CODE:

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

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

__END__
1 a
2 b
3 c

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

3^# cobrawgl 发表于 2008-11-10 11:25

QUOTE:

原帖由 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

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

4^# hitsubunnu 发表于 2008-11-10 11:31

QUOTE:

原帖由 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

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

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

5^# MMMIX 发表于 2008-11-10 12:32

QUOTE:

原帖由 hitsubunnu 于 2008-11-10 11:31 发表

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

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

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

6^# DQP 发表于 2008-11-11 09:30

我来添乱
my %hash = split /\s+/, do{local $/; <DATA>;};

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

7^# machine 发表于 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

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

8^# DQP 发表于 2008-11-11 11:06

QUOTE:

原帖由 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

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

9^# DQP 发表于 2008-11-11 11:08

QUOTE:

原帖由 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快吧。。。。