답변 감사합니다. 그래서. 제가 서브함수를 만들었거든요.
제가 서브루틴함수를 만들어서.. foreach문안에서 돌릴려고 하거든요.. -_-;
아래처럼 만들었는데요..
>> 경상북도 (/output/0) <<
포항시 (/output/0/2)
>> 인천광역시 (/output/3) <<
cannot mkdir File exists at try.pl line 102.
이렇게 중간에 만들다가 계속 같은것만 만들다 끊겨버려요
어떻게 해야하나요? mkdir() 함수가 문제인지.. 아니면 호출하는 곳이 문제인지 모르겠습니다.
어떻게 수정하면 좋을까여?
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};
makedir();
#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)";
$dir2= $dir{$k2};
$dir1= $dir{$k1};
# makedir ();
}
# print "\n\n";
#print "$k2 (/output/$dir{$k1}/$dir{$k2})";
#open ( fp, ">$dir{$k1}") || die "failed opening. \n";
#foreach $k2 ( keys %$sub1){
#print fp <<END_HTML;
#<a href =$dir{$k2}> $k2 </a><br>
#END_HTML
# }
# close fp;
}
# print "\n\n";
#print "$k1 (/output/$dir{$k1})\n";
#foreach $k1 (keys %all){
open ( fp, ">index.htm") || die "failed opening.\n";
foreach $k1 (keys %all){
print fp <<END_HTML;
<a href =$dir{$k1}/index.htm> $k1 </a><br>
END_HTML
}
close fp;
}
sub makedir {
mkdir ("$dir1",0777) || die "cannot mkdir $!";
}
82
1,406
2003-11-06 13:05:19
닉네임
