|
data.txt는 아래것
"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","도시가스","경상남도","진해시","석동"
안녕하세요.. 제가 하고자 하는것은..
예를 들어 이런 페이지를 만드는것입니다.
처음엔 서울특별시 충청남도 경상남도 이렇게 나오게 하구요. index.html엔..
두번째 sub.html엔 서울특별시를 눌렀을때는 강남구 동작구 등이 뿌려져야 합니다.
이런식으로 페이지 구성을 하는것을 perl로 짤려고 하는데요~
아래까지 짰는데 그 다음.. 이 값들을 어떻게 해야 하는건가요?
아시면 좀 알려주세요 -_-;;
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;
}
# @keys = keys %all;
# print @keys;
close fp;
%hash = ();
foreach $s1 (keys %all)
{
$addr2 = $all{$s1};
%hash2 = ();
foreach $s2 (keys %$addr2)
{
$addr3 = $addr2->{$s2};
%hash3 = ();
foreach $s3 (keys %$addr3)
{
}
}
}
@keys = keys %{$all{'서울특별시'}};
print @keys;
|
83
1,970
2003-11-04 13:05:04
닉네임
