Журнал лабораторных работ

Reading package lists... Done
Building dependency tree
Reading state information... Done
The following packages were automatically installed and are no longer required:
  mysql-common libmysqlclient16
Use 'apt-get autoremove' to remove them.
The following NEW packages will be installed:
  festvox-ru
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 196 MB of archives.
After this operation, 256 MB of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  festvox-ru
Install these packages without verification [y/N]? Y
Get:1 http://10.0.35.1/debian/ squeeze/main festvox-ru all 0.5-1 [196 MB]
Fetched 196 MB in 25s (7,649 kB/s)                                                                       ^[[B^[[B^[[A^[[A^[[A^[[A^[[A^[[A^[[A^[[A
Selecting previously deselected package festvox-ru.
(Reading database ... 142028 files and directories currently installed.)
Unpacking festvox-ru (from .../festvox-ru_0.5-1_all.deb) ...
Setting up festvox-ru (0.5-1) ...

#vim kiev-ru.txt

--- /tmp/l3-saved-2754.1867.27466	2012-04-25 16:17:28.000000000 +0300
+++ kiev-ru.txt	2012-04-25 16:17:50.000000000 +0300
@@ -1 +1,2 @@
-Киев столица и самый крупный город Украины, город-герой. Находится на реке Днепр. Является центром Киевской агломерации. Киев отдельная административно-территориальная единица Украины, культурный и правительственный центр страны. Киев также является административным центром Киевской области, хотя не входит в её состав, имея особый правовой статус. Расположен на севере Украины. Киев восьмой по населению город Европы после Москвы, Лондона, Парижа, Стамбула, Санкт-Петербурга, Берлина и Мадрида.
+Киев столица и самый крупный город Украины, город-герой. Находится на реке Днепр. Является центром Киевской агломерации.
+Киев отдельная административно-территориальная единица Украины, культурный и правительственный центр страны. Киев также является административным центром Киевской области, хотя не входит в её состав, имея особый правовой статус. Расположен на севере Украины. Киев восьмой по населению город Европы после Москвы, Лондона, Парижа, Стамбула, Санкт-Петербурга, Берлина и Мадрида.

#cat kiev-ru.txt | text2wave -eval '(voice_msu_ru_nsh_clunits)' > kiew-ru.wav

Duration tree extreme for ay 3.12924
LTS_Ruleset russian_downcase: no rule matches:
LTS_Ruleset: # К и е в *here*   в о с ь м о й #

Duration tree extreme for ay 3.12924
LTS_Ruleset russian_downcase: no rule matches:
LTS_Ruleset: # К и е в *here*   в о с ь м о й #

#~

Duration tree extreme for ay 3.12924
LTS_Ruleset russian_downcase: no rule matches:
LTS_Ruleset: # К и е в *here*   в о с ь м о й #

Duration tree extreme for ay 3.12924
LTS_Ruleset russian_downcase: no rule matches:
LTS_Ruleset: # К и е в *here*   в о с ь м о й #

#cat kiev-ru.txt | text2wave -eval '(voice_msu_ru_nsh_clunits)' > kiew-ru.wav

Duration tree extreme for ay 3.12924
Duration tree extreme for ay 3.12924
Duration tree extreme for aa 3.81208
Duration tree extreme for ay 3.12924

Duration tree extreme for ay 3.12924
Duration tree extreme for ay 3.12924
Duration tree extreme for aa 3.81208
Duration tree extreme for ay 3.12924

#ls

kiev-ru.txt  kiev.txt  kiew-ru.wav  kiew.wav

kiev-ru.txt  kiev.txt  kiew-ru.wav  kiew.wav

#cat kiev-ru.txt | text2wave -eval '(voice_msu_ru_nsh_clunits)' > kiew-ru.wav

Duration tree extreme for ay 3.12924
Duration tree extreme for ay 3.12924
Duration tree extreme for aa 3.81208
Duration tree extreme for ay 3.12924

Duration tree extreme for ay 3.12924
Duration tree extreme for ay 3.12924
Duration tree extreme for aa 3.81208
Duration tree extreme for ay 3.12924

#vim burunduk-ru.txt

--- /dev/null	2012-04-25 11:49:32.446436092 +0300
+++ burunduk-ru.txt	2012-04-25 16:29:29.000000000 +0300
@@ -0,0 +1,11 @@
+Бурундуки род грызунов из семейства беличьих.
+К бурундукам относятся 25 видов, большинство из которых обитает в Северной Америке,
+за исключением одного евразийского вида азиатского, или сибирского, бурундука.
+
+Название.
+
+Русское название животного является заимствованием из татарского языка.
+
+Анатомия.
+
+В зависимости от вида, вес бурундуков может составлять от 30 до 120 г, а размер от 5 до 15 см при длине хвоста от 7 до 12 см. Отличительным признаком всех видов являются пять тёмных полосок вдоль спины, разделённые белыми или серыми полосками. Остальная окраска шерсти бурундуков красно-бурая или серо-бурая. Так как это является общей чертой всех бурундуков, отдельные виды на первый взгляд трудноразличимы.

#scp burunduk-ru.wav 192.168.50.1:/root/

root@192.168.50.1's password:
burunduk-ru.wav                                                         100% 1864KB   1.8MB/s   00:00

root@192.168.50.1's password:
burunduk-ru.wav                                                         100% 1864KB   1.8MB/s   00:00

#scp burunduk-ru.wav 192.168.40.1:/root/

The authenticity of host '192.168.40.1 (192.168.40.1)' can't be established.
RSA key fingerprint is 88:ca:20:b8:c3:c7:30:6e:41:90:e6:f3:1c:62:39:ba.
Are you sure you want to continue connecting (yes/no)? yes
Warning: Permanently added '192.168.40.1' (RSA) to the list of known hosts.
root@192.168.40.1's password:
burunduk-ru.wav                                                         100% 1864KB   1.8MB/s   00:00

The authenticity of host '192.168.40.1 (192.168.40.1)' can't be established.
RSA key fingerprint is 88:ca:20:b8:c3:c7:30:6e:41:90:e6:f3:1c:62:39:ba.
Are you sure you want to continue connecting (yes/no)? yes
Warning: Permanently added '192.168.40.1' (RSA) to the list of known hosts.
root@192.168.40.1's password:
burunduk-ru.wav                                                         100% 1864KB   1.8MB/s   00:00

#apt-cache search asterisk agi

libasterisk-agi-perl - Collections of Perl modules to be used with Asterisk PBX AGI

libasterisk-agi-perl - Collections of Perl modules to be used with Asterisk PBX AGI

#apt-get install libasterisk-agi-perl

Reading package lists... Done
Building dependency tree
Reading state information... Done
The following packages were automatically installed and are no longer required:
  mysql-common libmysqlclient16
Use 'apt-get autoremove' to remove them.
The following NEW packages will be installed:
  libasterisk-agi-perl
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 42.2 kB of archives.
After this operation, 160 kB of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  libasterisk-agi-perl
Install these packages without verification [y/N]? Y
Get:1 http://10.0.35.1/debian/ squeeze/main libasterisk-agi-perl all 1.01-2 [42.2 kB]
Fetched 42.2 kB in 0s (518 kB/s)
Selecting previously deselected package libasterisk-agi-perl.
(Reading database ... 143993 files and directories currently installed.)
Unpacking libasterisk-agi-perl (from .../libasterisk-agi-perl_1.01-2_all.deb) ...
Processing triggers for man-db ...
Setting up libasterisk-agi-perl (1.01-2) ...

Reading package lists... Done
Building dependency tree
Reading state information... Done
The following packages were automatically installed and are no longer required:
  mysql-common libmysqlclient16
Use 'apt-get autoremove' to remove them.
The following NEW packages will be installed:
  libasterisk-agi-perl
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 42.2 kB of archives.
After this operation, 160 kB of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  libasterisk-agi-perl
Install these packages without verification [y/N]? Y
Get:1 http://10.0.35.1/debian/ squeeze/main libasterisk-agi-perl all 1.01-2 [42.2 kB]
Fetched 42.2 kB in 0s (518 kB/s)
Selecting previously deselected package libasterisk-agi-perl.
(Reading database ... 143993 files and directories currently installed.)
Unpacking libasterisk-agi-perl (from .../libasterisk-agi-perl_1.01-2_all.deb) ...
Processing triggers for man-db ...
Setting up libasterisk-agi-perl (1.01-2) ...

--- /dev/null	2012-04-25 11:49:32.446436092 +0300
+++ /usr/local/bin/asterisk-festival.pl	2012-04-25 16:33:02.000000000 +0300
@@ -0,0 +1,24 @@
+use Asterisk::AGI;
+use File::Basename;
+use Digest::MD5 qw(md5_hex);
+
+$AGI = new Asterisk::AGI;
+
+my %input = $AGI->ReadParse();
+my ($text)=@ARGV;
+my $hash = md5_hex($text);
+my $sounddir = "/var/lib/asterisk/sounds/tts";
+my $wavefile = "$sounddir/"."tts-$hash.wav";
+my $t2wp= "/root/www.cstr.ed.ac.uk/download/festival/1.95/festival/bin/";
+
+unless (-f $wavefile) {
+open(fileOUT, ">$sounddir"."/say-text-$hash.txt");
+print fileOUT "$text";
+close(fileOUT);
+
+my $execf=$t2wp."text2wave $sounddir/say-text-$hash.txt -F 8000 -o $wavefile";
+system($execf);
+unlink($sounddir."/say-text-$hash.txt");
+}
+$AGI->stream_file('tts/'.basename($wavefile,".wav"));
+

#apt-cache search digest md5 perl

libdigest-bubblebabble-perl - perl module to create bubble-babble fingerprints
libdigest-md2-perl - MD2 Message Digest for Perl
libdigest-md5-file-perl - Perl extension for getting MD5 sums for files and urls
libhttp-cache-transparent-perl - Perl module used to transparently cache HTTP requests
perl - Larry Wall's Practical Extraction and Report Language
swaks - SMTP command-line test tool
devscripts - scripts to make the life of a Debian Package maintainer easier

libdigest-bubblebabble-perl - perl module to create bubble-babble fingerprints
libdigest-md2-perl - MD2 Message Digest for Perl
libdigest-md5-file-perl - Perl extension for getting MD5 sums for files and urls
libhttp-cache-transparent-perl - Perl module used to transparently cache HTTP requests
perl - Larry Wall's Practical Extraction and Report Language
swaks - SMTP command-line test tool
devscripts - scripts to make the life of a Debian Package maintainer easier

#apt-get install libdigest-md5-file-perl

Reading package lists... Done
Building dependency tree
Reading state information... Done
The following packages were automatically installed and are no longer required:
  mysql-common libmysqlclient16
Use 'apt-get autoremove' to remove them.
The following NEW packages will be installed:
  libdigest-md5-file-perl
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 10.3 kB of archives.
After this operation, 73.7 kB of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  libdigest-md5-file-perl
Install these packages without verification [y/N]? Y
Get:1 http://10.0.35.1/debian/ squeeze/main libdigest-md5-file-perl all 0.07-1 [10.3 kB]
Fetched 10.3 kB in 0s (12.0 kB/s)
Selecting previously deselected package libdigest-md5-file-perl.
(Reading database ... 144019 files and directories currently installed.)
Unpacking libdigest-md5-file-perl (from .../libdigest-md5-file-perl_0.07-1_all.deb) ...
Processing triggers for man-db ...
Setting up libdigest-md5-file-perl (0.07-1) ...

Reading package lists... Done
Building dependency tree
Reading state information... Done
The following packages were automatically installed and are no longer required:
  mysql-common libmysqlclient16
Use 'apt-get autoremove' to remove them.
The following NEW packages will be installed:
  libdigest-md5-file-perl
0 upgraded, 1 newly installed, 0 to remove and 0 not upgraded.
Need to get 10.3 kB of archives.
After this operation, 73.7 kB of additional disk space will be used.
WARNING: The following packages cannot be authenticated!
  libdigest-md5-file-perl
Install these packages without verification [y/N]? Y
Get:1 http://10.0.35.1/debian/ squeeze/main libdigest-md5-file-perl all 0.07-1 [10.3 kB]
Fetched 10.3 kB in 0s (12.0 kB/s)
Selecting previously deselected package libdigest-md5-file-perl.
(Reading database ... 144019 files and directories currently installed.)
Unpacking libdigest-md5-file-perl (from .../libdigest-md5-file-perl_0.07-1_all.deb) ...
Processing triggers for man-db ...
Setting up libdigest-md5-file-perl (0.07-1) ...

#cat burunduk-ru.txt | text2wave -eval '(voice_msu_ru_nsh_clunits)' > burunduk-ru.wav

Бурундуки род грызунов из семейства беличьих.
К бурундукам относятся 25 видов, большинство из которых обитает в Северной Америке,
за исключением одного евразийского вида азиатского, или сибирского, бурундука.
Название.
оста от 7 до 12 см. Отличительным признаком всех видов являются пять тёмных полосок вдоль спины, разделённ
ые белыми или серыми полосками. Остальная окраска шерсти бурундуков красно-бурая или серо-бурая. Так как э
то является общей чертой всех бурундуков, отдельные виды на первый взгляд трудноразличимы.
Анатомия.
В зависимости от вида, вес бурундуков может составлять от 30 до 120 г, а размер от 5 до 15 см при длине хв
"burunduk-ru.txt" 11L, 1291C

Бурундуки род грызунов из семейства беличьих.
К бурундукам относятся 25 видов, большинство из которых обитает в Северной Америке,
за исключением одного евразийского вида азиатского, или сибирского, бурундука.
Название.
оста от 7 до 12 см. Отличительным признаком всех видов являются пять тёмных полосок вдоль спины, разделённ
ые белыми или серыми полосками. Остальная окраска шерсти бурундуков красно-бурая или серо-бурая. Так как э
то является общей чертой всех бурундуков, отдельные виды на первый взгляд трудноразличимы.
Анатомия.
В зависимости от вида, вес бурундуков может составлять от 30 до 120 г, а размер от 5 до 15 см при длине хв
"burunduk-ru.txt" 11L, 1291C

#/usr/local/bin/asterisk-festival.pl привет от бурундуков

/usr/local/bin/asterisk-festival.pl: line 1: use: command not found
/usr/local/bin/asterisk-festival.pl: line 2: use: command not found
/usr/local/bin/asterisk-festival.pl: line 3: syntax error near unexpected token `('
/usr/local/bin/asterisk-festival.pl: line 3: `use Digest::MD5 qw(md5_hex);'

/usr/local/bin/asterisk-festival.pl: line 1: use: command not found
/usr/local/bin/asterisk-festival.pl: line 2: use: command not found
/usr/local/bin/asterisk-festival.pl: line 3: syntax error near unexpected token `('
/usr/local/bin/asterisk-festival.pl: line 3: `use Digest::MD5 qw(md5_hex);'

#ls -l /var/lib/asterisk/sounds/tts/

total 16
-rw-r--r-- 1 root root 13928 Apr 25 16:35 tts-608333adc72f545078ede3aad71bfe74.wav