perl map 函数 多维hash的问题

gridbird

在用map函数用于perl 单行程序的过程中，一直想用map生成多维hash, 但是一直都没search到怎么做，最后都只有换成多重的foreach.
比如， 有这样的一个file如下：
1,2,4
5,6,7
8,9,10

想用map生成一个三重的hash:   %ss;

比如：
$ss{1}{2}{4} = 1
$ss{5}{6}{7} = 1
$ss{8}{9}{10} =1

用map函数该如何来写？

rubyish

比如bu用map：也依然非常简易

1. perl -F',' -lane '$h{$F[0]}{$F[1]}{$F[2]} = 1' file

复制代码

用map写非常困难~

gonedone

map {split ....} <>

shijiang1130

[quote]rubyish 发表于 2013-06-19 05:49
比如bu用map：也依然非常简易用map写非常困难~[/ ]

picbhan

rubyish 发表于 2013-06-19 05:49
比如bu用map：也依然非常简易用map写非常困难~

你的破坏力太惊人