Ελληνικά ονόματα με λατινικούς χαρακτήρες

[Antonis Sidiropoulos]

Konstantinos Georgokitsos wrote:

>Θέλω ένα εύκολο τρόπο να μεταφράσω ελληνικά ονόματα σε λατινικούς χαρακτήρες για να τα χρησιμοποιήσω για e-mail διευθύνσεις.
>Ξέρει κανείς κάποιο πρόγραμμα που μπορεί να με βοηθήσει;
>Κώστας
>  
>
Sou stelnw ena shell script pou kanei auti ti douleia.
Bebaia i eksodos tou einai tetoia wste na xrhsimopoihtai an theloume na 
steiloume ena ellhniko email, mporeis omws na apomonoseis tis entoles me 
ta tr kai sed kai na xrhsimopoihseis mono autes.

A.


#!/bin/sh
####################################
# Made by Antonis Sidiropolous (asidirop at csd.auth.gr)
####################################

if [ $# -gt 1 ] ; then
        echo "Usage: el2en.sh inputfile" 1>&2
        exit 1
fi
if [ $# -eq 1 ] ; then
        input=$1
        at_the_end=':'
        output="$input.EN_gr"
        exec > "$output"
else
        input=/tmp/tr.$$.$USER
        at_the_end="rm -f '$input'"
        cat > "$input"
fi

echo "--------------------------------------------------"
echo "To keimeno akolouthei kai me latinikous xarakthres"
echo "--------------------------------------------------"
cat "$input"
echo "--------------------------------------------------"
cat "$input" | sed 's/θ/th/g' | sed 's/ξ/ks/g' | sed 's/ψ/ps/g' | sed 
's/Θ\([α-ωάέήίόύώ]\)/Th\1/g' | sed 's/Θ/TH/g' | sed 
's/ξ\([α-ωάέήίόύώ]\)/Ks\1/g' | sed 's/Ξ/KS/g' | sed 
's/Ψ\([α-ωάέήίόύώ]\)/Ps\1/g' | sed 's/Ψ/PS/g' | tr 
'ΑΒΓΔΕΖΗΙΚΛΜΝΟΠΡΣΤΥΦΧΩαβγδεζηικλμνοπρσςτυφχωΆΈΉΊΌΎΏάέήίόύώ' 
'ABGDEZHIKLMNOPRSTYFXOabgdeziiklmnoprsstyfxwAEIIOYOaeiioyw'
echo "--------------------------------------------------"

eval $at_the_end