21 lines
284 B
Perl
21 lines
284 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
our %mapping = (
|
||
|
|
"AA" => "AA0",
|
||
|
|
"AE" => "AE0",
|
||
|
|
"AH" => "AH0",
|
||
|
|
"AO" => "AO0",
|
||
|
|
"AW" => "AW0",
|
||
|
|
"AY" => "AY0",
|
||
|
|
"EH" => "EH0",
|
||
|
|
"ER" => "ER0",
|
||
|
|
"EY" => "EY0",
|
||
|
|
"IH" => "IH0",
|
||
|
|
"IY" => "IY0",
|
||
|
|
"OW" => "OW0",
|
||
|
|
"OY" => "OY0",
|
||
|
|
"UH" => "UH0",
|
||
|
|
"UW" => "UW0"
|
||
|
|
);
|
||
|
|
|
||
|
|
1;
|