°¨»çÇÕ´Ï´Ù. ¿ì¼± À¥¿¡ ±¸µ¿½ÃÅ°´Â°ÍÀº °øºÎÇغ¸µµ·Ï ÇÏ°Ú½À´Ï´Ù.

±×·³ ÇÑ°¡Áö¸¸ ´õ ¿©Âã°Ú½À´Ï´Ù.

¿ì¼± Á¦ Äڵ带 Á» ºÁÁÖ¼¼¿ä

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


ÀÌ·±½ÄÀ¸·Î ¸ÅÇÎÇÒ¼ö ÀÖ°Ô Â¥·Á¸é ¾î¶²°É ÀÌ¿ëÇؼ­ ¾î¶»°Ô Â¥¾ß Çϳª¿ä?
Áú¹®ÀÌ ¸¹¾Æ Á˼ÛÇÕ´Ï´Ù. -_-

print "content-type:text/html\n\n";

#ºó¹è¿­À» ¸¸µì´Ï´Ù.
@get_city = ();
open ( FIN, "data.txt");
while( <FIN> )
{
 $_ =~s/"//g;
 @get_info = split(/,/,$_);
 push(@get_city,$get_info[5]);
 }
close(fp);

print @get_city;