437 <=> ISO8859-7

[Christos Ricudis]

Hello Dimitris!

  On 06 Feb 01, Dimitris Mandalidis wrote to All with subject "437 <=> ISO8859-
7":

 DM> Θα ηθελα να μου πει κάποιος αν υπάρχει κάποιο έτοιμο tool για
 DM> μετατροπη από 437 σε iso8859-7 και αντίστροφα η να μου δώσει κάποιο hint
 DM> για να κάω την μετατροπη με το tr(1).

                                      ,,,
                                     (o o)  File: 8859-437
---*reiss*------*schnippel*------oOO--(_)--OOo-------*knabber*-----*fetz*---

#!/usr/bin/perl
while (<>) {
        chop;
        tr  /ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩΏλΌΈΊάέηϊίόύϋώΩδμνξοπρσςτυφχψωώάέήϊίόύϋώ/ΑΒΓΔΕΖΗΘΙΚΛΜΝ  ΟΠΡΣΤΥΦΧΨΩΩΑΟΕΙαβγδεζηθικλμνξοπρσςτυφχψωώάέηϊίόύϋώ/;
        print "$_\n";
}
                                                        
---*reiss*------*schnippel*--------------------------*knabber*-----*fetz*---

                                      ,,,
                                     (o o)  File: 437-88597
---*reiss*------*schnippel*------oOO--(_)--OOo-------*knabber*-----*fetz*---

#!/usr/bin/perl
$grt=1;
while (<>) {
        chop;
                tr/ΑΒΓΔΕΖΗΘΙΚΛΜΝΟΠΡΣΤΥΦΧΨΩαβγδεζηθικλμνξοπρσςτυφχψωάέηϊίόύϋώΩδ/ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩάέηϊίόύϋώΩδμνξοπρσςτυφχψωάέύϊίόύϋώΩϊ/;
        print "$_\n";
}

                                                        
---*reiss*------*schnippel*--------------------------*knabber*-----*fetz*---



--
Christos Ricudis

Stolise ki esy ena dentro gia tis giortes.
Kremase twra ena papa. Mporeis.