#!/usr/bin/perl -w # stupid grapheme to phoneme convertor for Czech - just some very basic # rules, will work only for numbers... $a=<>; #print "$a\n"; # musim pridat ó -> o, protoze nemama ó ... $a =~ s/ó/o/g; # io -> ijo, ió -> ijó $a =~ s/io/ijo/g; $a =~ s/ió/ijó/g; #print "$a\n"; # di ti ni -> dy ty ny $a =~ s/di/ïy/g; $a =~ s/ti/»y/g; $a =~ s/ni/òy/g; $a =~ s/dí/ïý/g; $a =~ s/tí/»ý/g; $a =~ s/ní/òý/g; #print "$a\n"; # dì tì nì -> ... $a =~ s/dì/ïe/g; $a =~ s/tì/»e/g; $a =~ s/nì/òe/g; #print "$a\n"; # i -> y $a =~ s/i/y/g; $a =~ s/í/ý/g; #print "$a\n"; # ì -> je $a =~ s/ì/je/g; print "$a";