저 또하나 궁금한것이 있습니다.
my %all = ();
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;
my %dir = ();
my $count = 0;
my %addr1 = ();
print ">>Top (output/) <<\n";
foreach $k1 ( keys %all )
{
$addr1{$k1} = 1;
$dir{ $k1 } = $count++;
my %addr2 = ();
$sub1 = $all{$k1};
#print ">> $k1 (/output/$dir{$k1}) <<\n";
foreach $k2 ( keys %$sub1 )
{
$addr2{$k2} = 1;
$dir{ $k2 } =$count++;
my %addr3 = ();
$sub2 = $sub1->{$k2};
#print ">> $k1 > $k2 (/output/$dir{$k1}/$dir{$k2}) <<\n";
foreach $k3 ( keys %$sub2 )
{
$dir{ $k2 } = $count++ ;
$addr3{$k3} = 1 ;
#print "$k3 (/search?addr1=$k1&addr2=$k2&addr3=$k3)\n";
}
# print "\n\n";
#print "$k2 (/output/$dir{$k1}/$dir{$k2})\n";
}
#print "\n\n";
print "$k1 (/output/$dir{$k1})\n";
open ( fp, ">index.htm") || die "failed opening.\n";
foreach $k1 (keys %all){
print fp <<END_HTML;
<a href =$dir{$k1}> $k1 </a><br>
END_HTML
}
close fp;
}
print "\n\n";
우선 실행해보시면 top페이지에 나올것들.. 그러니까 배열 6에 나오는것들이 죽 리스팅됩니다.데이터 파일이 훨씬 많아 아래처럼 나오는데요..
>> Top (output/) <<==>경상북도((/output/1) 인천광역시((/output/25) 대구광역시((/output/49) 강원도((/output/57) 울산광역시((/output/66) 전라남도((/output/69) 신도시((/output/72) 광주광역시((/output/79) 경기도((/output/194) 충청남도((/output/82) 대전광역시((/output/253) 부산광역시((/output/245) 경상남도((/output/209) 서울특별시((/output/404) 충청북도((/output/411)
이것들을 한 html파일에 저장하였습니다.
그런데 이제 디렉토리 생성을 해야합니다.
첫 페이지는 생성할 필요없이 index.html이지만, 2depth부터는 경상북도는 /output/1이라는 디렉토리를 인천광역시는 /output/25라는 디렉토리를 생성해주어야 하는데요.
fuction을 만들어서 자동으로 만들어지게 할수 있을까요?
mkdir이라는 함수를 이용하는것 같은데. 어찌 해야할지 감이 잡히지 않습니다.
책에서도 자세히 나와 있지 않구요..
도움 좀 부탁드립니다.
175
1,671
2003-11-06 10:17:16
닉네임
