sub WikiHeadingNumber { ... # Cook anchor by canonicalizing $text. # 아래 여섯 줄은 불필요. 주석처리 # $anchor = $text; # $anchor =~ s/\<.*?\>//g; # $anchor =~ s/\W/_/g; # $anchor =~ s/__+/_/g; # $anchor =~ s/^_//; # $anchor =~ s/_$//; # $anchor = '_' . (join '_', @HeadingNumbers) unless $anchor; # Last ditch effort 이 줄을 $anchor = 'H_' . (join '_', @HeadingNumbers); # unless 뒤를 잘라서 이렇게 고친다 ... }