diff options
| author | brian d foy <bdfoy@cpan.org> | 2009-11-23 18:55:24 -0600 |
|---|---|---|
| committer | brian d foy <bdfoy@cpan.org> | 2009-11-23 18:55:24 -0600 |
| commit | 0be0346991b9897be3779aad45b504f1f1d7c709 (patch) | |
| tree | 08940f5ce219452886341d5914b4432aa07b2ca6 /pod/perlebcdic.pod | |
| parent | aadc0e04984c523115970b0a0c0ba40ddcee3d41 (diff) | |
| download | perl-0be0346991b9897be3779aad45b504f1f1d7c709.tar.gz | |
* Remove some end-of-line whitespace from perlebcdic
Diffstat (limited to 'pod/perlebcdic.pod')
| -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 |