diff options
| -rw-r--r-- | pod/perlebcdic.pod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pod/perlebcdic.pod b/pod/perlebcdic.pod index 5f6a83de12..962244ae2c 100644 --- a/pod/perlebcdic.pod +++ b/pod/perlebcdic.pod @@ -699,7 +699,7 @@ it in tr/// like so: my $ebcdic_string = $ascii_string; eval '$ebcdic_string =~ tr/' . $cp_037 . '/\000-\377/'; -To convert from EBCDIC 037 to ASCII just reverse the order of the tr/// +To convert from EBCDIC 037 to ASCII just reverse the order of the tr/// arguments like so: my $ascii_string = $ebcdic_string; @@ -1062,9 +1062,9 @@ then sort(). If the data are primarily lowercase non Latin 1 then apply tr/[A-Z]/[a-z]/ before sorting. If the data are primarily UPPERCASE and include Latin-1 characters then apply: - tr/[a-z]/[A-Z]/; + tr/[a-z]/[A-Z]/; tr/[àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþ]/[ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞ/; - s/ß/SS/g; + s/ß/SS/g; then sort(). Do note however that such Latin-1 manipulation does not address the E<yuml> C<y WITH DIAERESIS> character that will remain at |