Preston_PLB/freeswitch
1
0
Fork 0
forked from Mirrors/freeswitch
Code Pull Requests Activity

phrase generate and verification tool in perl

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@5907 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2007-10-16 18:44:20 +00:00
parent f6709fc3b3
commit 9488c2c813
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
docs/phrase/phrase.pl Normal file
View File

@ -0,0 +1,25 @@
#!/usr/bin/perl
#
# Phrase verification and generation script.
#
use XML::Simple;
use Data::Dumper;
my $ref = XMLin("phrase.xml");
foreach $language ( sort keys %{$ref}) {
foreach $item ( sort keys %{$ref->{$language}}) {
foreach $element ( sort keys %{$ref->{$language}->{$item}}) {
print "Language: $language, $item, $element\n";
#system("mkdir -p $language/$item");
foreach $foo (@{$ref->{$language}->{$item}->{$element}}) {
print "filename: $language/$item/$foo->{filename} contains phrase \"$foo->{phrase}\"\n";
# insert command to verify or generate files here
# system("say -o $language/$item/$foo->{filename} \"$foo->{phrase}\"");
}
}
}
}