ansaurus

Question

Can I use the y operator to do a non-one-to-one transliteration in Perl?

Answer 1

+14 A:

In this case, create a hash and go from the keys to the strings easily.

use warnings;
use strict;
use utf8;
binmode STDOUT, ":utf8";
my $string = "āäōo";
my %trans = qw/ā ei ä a: ō u o ɒ/;
my $keys = join '', keys %trans;
$string =~ s/([$keys])/$trans{$1}/g;
print "$string\n";

You need to alter this if your keys are more than one character long by sorting the keys in order of decreasing length and joining them using ( | | ) instead of [ ].

Kinopiko 2009-12-03 05:25:26

@Kinopiko, this sounds a good idea. At least I don't have to do a lot of mechanical substitutions :)

Mike 2009-12-03 05:29:13

@Kinopiko, this answer has been so far peer upvoted sixth time. I'm conviced that the y operator cannot do the job I expected. We simply cannot change it like we change Perl's default input separator. Thanks :) If I were to use the hash to solve this problem, my code would be this: open my $in,'<',"./test.txt";my %trans = qw/ā ei ä a: ō əu o ɒ/;my @keys = keys %trans;for my $key (@keys){while(<$in>){s/($key)/$trans{$1}/;print;}}please correct me if you see anything suspicious. Thanks again :)

Mike 2009-12-03 08:42:08

@Kinopiko and@ysth, thanks for the explanation. I didn't know [] and || can be used this way like in the illustrated code.

Mike 2009-12-03 09:04:48

Sorry, I probably should have made it clear that the `y` operator doesn't do that in my answer. It can only convert single characters.

Kinopiko 2009-12-03 09:58:20

Answer 2

A:

It sounds like you're trying to do something similar to Text::Unaccent::PurePerl.

brian d foy 2009-12-03 16:54:57

@brian, thanks for introducing this interesting module to me :) But I guess It's only marginally relevant to what I was trying to do. I wanted to transliterate one system of pronunciation symbols to another, which is somewhat different from Text::Unaccent::PurePerl's word-to-word conversion.

Mike 2009-12-04 01:24:15

Well, it's doing the same job: you're replacing a characters with possibly multiple characters. Topologically it's the same.

brian d foy 2009-12-04 02:52:53

ansaurus

tags:

views:

answers:

Can I use the y operator to do a non-one-to-one transliteration in Perl?

related questions