°¨»çÇÕ´Ï´Ù. ¿ì¼± À¥¿¡ ±¸µ¿½ÃÅ°´Â°ÍÀº °øºÎÇغ¸µµ·Ï ÇÏ°Ú½À´Ï´Ù.
±×·³ ÇÑ°¡Áö¸¸ ´õ ¿©Âã°Ú½À´Ï´Ù.
¿ì¼± Á¦ Äڵ带 Á» ºÁÁÖ¼¼¿ä
my %all = ();
open ( FIN, "data.txt");
while( <FIN> )
{
chomp;
s/^\s*"//g;
s/"\s*$//g;
s/\s*"\s*,\s*"\s*/","/g;
@arr = split( /","/,$_);
$all{ $arr[39] }{ $arr[40] }{ $arr[41] } = 1;
}
close(fp);
foreach $k1 ( keys %all )
{
print "$k1\n";
$sub1 = $all{$k1};
foreach $k2 ( keys %$sub1 )
{
print "===> $k2\n";
$sub2 = $sub1->{$k2};
foreach $k3 ( keys %$sub2 )
{
print "===> ===> $k3\n";
}
}
}
°¢°¢ ¿ä¼Ò°¡ Àß ³ª¿À´Â°ÍÀº È®ÀÎÀ» Ç߰ŵç¿ä.. ±×·³. ¿©±â¼..
¿ì¼± °¢°¢ hash¿¡ ³ÖÀº µ¥ÀÌÅ͸¦ Ä«Å×°í¸®º°·Î ±×·çÇÎ ÇÒ·Á°í Çϰŵç¿ä
¿¹¸¦µé¾î
¼¿ï½Ã - /output/0
Ãæûµµ -/output/1
°¿øµµ -/output/2
ÀÌ·±½ÄÀ¸·Î ¸ÅÇÎÇÒ¼ö ÀÖ°Ô Â¥·Á¸é ¾î¶²°É ÀÌ¿ëÇؼ ¾î¶»°Ô Â¥¾ß Çϳª¿ä?
Áú¹®ÀÌ ¸¹¾Æ Á˼ÛÇÕ´Ï´Ù. -_-