-3,7 +3,7 |
* Jof:UseModWiki소스수정/한글링크 를 적용 |
* 부작용 : 알려진 것 없음 |
: |
{{{perl |
{{{#!vim perl |
sub SplitUrlPunct { |
.... |
$punct = ""; |
sub SplitUrlPunct { .... $punct = ""; # 아래 두 줄의 xc0 을 x80 으로 바꿈 # ($punct) = ($url =~ /([^a-zA-Z0-9\/\xc0-\xff]+)$/); # $url =~ s/([^a-zA-Z0-9\/\xc0-\xff]+)$//; ($punct) = ($url =~ /([^a-zA-Z0-9\/\x80-\xff]+)$/); $url =~ s/([^a-zA-Z0-9\/\x80-\xff]+)$//; return ($url, $punct); }