作者kornelius (c9s)
看板Perl
标题Re: [问题] 关於字串
时间Tue Sep 28 01:35:00 2010
※ 引述《dryman (dryman)》之铭言：
: ※ 引述《petertc (PTC)》之铭言：
: 概念很简单：弄一个hash of arrays
: 要把hash value当成array，只要用@{$my_hash{key}}就可以了
: 所以strs的第一个值就当key，第二个值推入array中
: #!/usr/bin/perl
: while(<>){
: @strs=split;
: push @{ $name_hash{$strs[0]}}, $strs[1];
: }
: print $_ . "\n" for @{ $name_hash{'lee'}};
短些的。 :)
my %hash = map { chomp; split } <DATA>;
use Data::Dumper; warn Dumper( \%hash );
__DATA__
213 abc
bb cc
--
qr{Cornelius|c9s};
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.233.154.6
※ 编辑: kornelius 来自: 118.233.154.6 (09/28 01:36)
※ 编辑: kornelius 来自: 118.233.154.6 (09/28 01:39)
1F：推 CindyLinz:用 warn 输出是哪招.. ╮(￣▽￣)╭ 09/28 01:53
2F：→ kornelius:因为打比较少字... 09/28 02:01
3F：→ kornelius:print 五个字元 warn 四个字元... XD 09/28 02:01
4F：→ kornelius:其实我很想用 say 但是要打 use feature ':5.10'; 09/28 02:02
5F：推 dryman:可是这样会没办法做出Lee->David, Eric 耶XD 09/28 09:24
6F：→ kornelius:喔 我以为他只要 lee => David ... XD 09/28 10:05