Perl通过文件句柄将内容赋值给一个hash

Question

文件为a.txt
内容：
1|jjj
2|lll
3|eee
4|kkk
希望将1,2,3,4作为keys，将通道符后面的内容作为values

Answer 1

[ol][*]data0:[*]apple[*]banana[*]cherry[/ol][ol][*]open my ($d), \'data0\';[*]my %a = map { chomp; $_, 1 } ;[*]print \"$_:$a{$_}\\n\" for keys %a;[/ol][ol][*]data1:[*]apple? ? 20[*]banana??15[*]cherry??22[/ol][ol][*]open my ($d), \'data1\';[*]my %a = map { split;} ;[*]print \"$_:$a{$_}\\n\" for keys %a;[/ol][ol][*]data2:[*]apple[*]20[*]banana[*]15[*]cherry[*]22[/ol][ol][*]open my ($d), \'data2\';[*]my %a = map { chomp; $_} ;[*]print \"$_:$a{$_}\\n\" for keys %a;[/ol]

追问

看起来怎么是乱码。。