53 |
my $string = shift || return; |
my $string = shift || return; |
54 |
$string = unac_string($code_page,$string); |
$string = unac_string($code_page,$string); |
55 |
$string =~ tr/ðÐ/dD/; |
$string =~ tr/ðÐ/dD/; |
56 |
|
$string = unac_entities($string); |
57 |
return $string; |
return $string; |
58 |
} |
} |
59 |
sub unac_2 { |
sub unac_2 { |
64 |
$string =~ tr/ðÐ/dD/; |
$string =~ tr/ðÐ/dD/; |
65 |
$string = $pr . $string; |
$string = $pr . $string; |
66 |
} |
} |
67 |
$string =~ s/&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);/$1/gi; |
$string = unac_entities($string); |
|
$string =~ s/ð/d/g; |
|
|
$string =~ s/&E[tT][hH];/D/g; |
|
|
$string =~ s/&(\w\w)lig;/$1/gi; |
|
68 |
return lc($string); |
return lc($string); |
69 |
} |
} |
70 |
|
|
71 |
|
sub unac_entities { |
72 |
|
my $ent = shift || return; |
73 |
|
|
74 |
|
$ent =~ s/&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);/$1/gi; |
75 |
|
$ent =~ s/ð/d/g; |
76 |
|
$ent =~ s/&E[tT][hH];/D/g; |
77 |
|
$ent =~ s/&(\w\w)lig;/$1/gi; |
78 |
|
|
79 |
|
return $ent; |
80 |
|
} |
81 |
|
|
82 |
# create WebPAC object |
# create WebPAC object |
83 |
# |
# |
84 |
my $webpac = new WebPAC( |
my $webpac = new WebPAC( |