¾È³çÇϼ¼¿ä
Áú¹®ÀÌ Àִµ¥¿ä.
µ¥ÀÌÅÍ°¡ ¾Æ·¡¿Í °°Àºµ¥..
"4","s","vvvvvvv","32A","µµ½Ã°¡½º","¼¿ïƯº°½Ã","°³²±¸","³íÇöµ¿"
"5","w","ggggggg","56B","µµ½Ã°¡½º","¼¿ïƯº°½Ã","µ¿ÀÛ±¸","½Å´ë¹æ1µ¿"
"6","t","yyyyyyy","67B","µµ½Ã°¡½º","Ãæû³²µµ","ûÁÖ½Ã","¿ë¾Ïµ¿"
"6","t","yyyyyyy","67B","µµ½Ã°¡½º","Ãæû³²µµ","ûÁÖ½Ã","ºÒ´çµ¿"
"6","t","yyyyyyy","67B","µµ½Ã°¡½º","Ãæû³²µµ","ûÁÖ½Ã","µÎÁ¤µ¿"
"6","t","yyyyyyy","67B","µµ½Ã°¡½º","°æ»ó³²µµ","ÁøÇؽÃ","¼®µ¿"
µ¥ÀÌÅÍ ¿ÀÇÂÈÄ splitÇÒ¶§,
open (fp, "data.txt");
while (<fp>) {
chomp;
s/^\s*"//g;
s/"\s*$//g;
s/\s*"\s*,\s*"\s*/","/g;
@arr = split( /","/,$_);
$all{ $arr[6] }{ $arr[7] }{ $arr[8] } = 1;
}
close fp;
ÀÌ·¸°Ô ¾²´Âµ¥¿ä. ¿©±â¼
chomp;
s/^\s*"//g;
s/"\s*$//g;
s/\s*"\s*,\s*"\s*/","/g;
ÀÌ°ÍÀº ¿Ö ½áÁÖ³ª¿ä?
@arr = split( /","/,$_); ÀÌ·¸°Ô¸¸ ÇØÁ൵ ÆĽÌÀÌ µÇÁö ¾Ê³ª¿ä?
À§ ±¸¹®ÀÇ ¶æÀ» ¾Ë°í ½Í½À´Ï´Ù.
¹Ù»Ú½Åµ¥ Á˼ÛÇØ¿ä~ ¾Æ½Ã´ÂºÐ ´äº¯ Á».. ºÎŹµå¸³´Ï´Ù~~