projects
/
webpac
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fixed parsing for science direct html with more than one <a href=> per one <tr>
[webpac]
/
filter
/
croascii.pm
1
# CROASCII (YUS|HRN) B1.002:1982
2
# conversion to ISO-8859-2
3
4
sub croascii {
5
my $out = "";
6
foreach (@_) {
7
# tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982
8
tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/; # Crolist croascii
9
# Crolist alternative encoding
10
s/ÏC/È/g;
11
s/Ïc/è/g;
12
s/ÂC/Æ/g;
13
s/Âc/æ/g;
14
#s/??/Ð/g;
15
s/ò/ð/g;
16
s/ÏS/©/g;
17
s/Ïs/¹/g;
18
s/ÏZ/®/g;
19
s/Ïz/¾/g;
20
$out .= $_;
21
}
22
return $out;
23
}
24
25
1;