#!/usr/local/bin/perl5 # #$Id$ # # PHILIPS -> STP phoneset map %phoneset2stpmappings = ( AA => "AH,AA", AE => AE, AH => AX, AW => AW, AWH => AO, EE => IY, EH => EH, EY => "EY,AY", IH => "IH,IX", OH => OW, OO => "UH,UX", OOH => UW, OW => OW, # UH => AH, UR => ER, B => B, CH => CH, D => "D,DX", DH => DH, F => F, G => G, H => HH, J => JH, K => K, L => "L,LG", M => M, N => "N,NX", NG => "NG,ENG", P => P, R => R, S => S, SH => SH, T => "T,DX", TH => TH, UH => "AH,AX", UL => EL, UM => EM, UN => EN, V => V, W => W, Y => Y, Z => Z, ZH => ZH, NOISE => "H#", );