ellinika->greeklish

[Christos Ricudis]

>Kalispera sas.
>
>Anarrwtiemai an yparxei programma pou na metatrepei keimena grammena me 
>ellinikous xaraktires se keimena grammena me greeklish (opws einai afto 
>to e-mail diladi). 

Parto: 

#!/usr/bin/perl
$grt=1;
while (<>) {
	chop;
	if ((m/^--NOGRTRANS--$/) || (m/^START STP SCRIPT (.*) OF (.*)$/)) {
		$grt=0;
	} elsif ((m/^--GRTRANS--$/) || (m/^END STP SCRIPT$/)) {
		$grt=1;
	} 

	if ($grt==1) {
		tr /ÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÓÔÕÖ×ØÙ¿¢¼¸ºáâãäåæçèéêëìíîïðñóò\
ôõö÷øùþÜÝÞúßüýûþ/ABGDEZH8IKLMNJOPRSTYFXCWWAOEIabgdezh8iklmnjoprsstyfx\
qwwaehiioyyw/;
	}
	print "$_\n";
}

-- 
Christos Ricudis

ric-NOSPAM-udis at paiko.gr			Remove -NOSPAM- to reply
spamoula at paiko.gr				Send your spam here