بادر perlspeak هو وحدة بيرل للنص إلى الكلام مع مهرجان وإسبياك و Cepstral وغيرها.
التحميل الان

بادر الترتيب والملخص

بادر العلامات

نص مهرجان الوحدة النمطية بيرل خطاب بيرل يتحدث

بادر وصف

PerlSpeak هو وحدة بيرل للنص إلى الكلام مع مهرجان وإسبياك و Cepstral وغيرها. PerlSpeak هي وحدة نقدية للنص لكل خطاب مع مهرجان و ESPEAK و CEPSTRAL وغيرها .PTLSPEAK.PM هي الوحدة النمطية للبريق لنصوص النص إلى الكلام مع مهرجان أو CEPSTRAL (قد يتم استخدام أنظمة TTS الأخرى من خلال تعيين خصائص أمر TTS). PerlSpeak.pm يتضمن العديد من أساليب واجهة مفيدة مثل محدد ملفات الصوت ونظام القائمة. تم تطوير perlspeak.pm للاستخدام في نظام Linux يتحدث، واجهة صوتية إلى Linux.synopsis My $ ps = perlspeak-> جديد ()؛ طرق $ PS = perlspeak-> جديد ()؛ ينشئ مثيل جديد لكائن PerlSpeak. PS-> قل ("النص للتحدث".)؛ PS-> قل ("file_name")؛ النص الأساسي إلى واجهة الكلام. $ PS-> ReadFile ("file_name")؛ يقرأ محتويات ملف نصي. $ ps-> file2wave ("text_file_in"، "audio_file_out")؛ يحول ملف نصي إلى ملف صوتي. $ path = $ ps-> filepicker ("/ start / directory")؛ محدد الملفات الصوتية التي ترجع المسار إلى ملف. إذا كان "Dir_Return" صحيح "FilePicker" قد يرجع أيضا المسار إلى دليل. PATH $ = $ ps-> dirpicker ("/ start / directory")؛ محدد دليل الصوت الذي يعيد طريق إلى DirectRoy. $ chr = $ ps-> getchr ()؛ إرجاع الحرف التالي مكتوب على لوحة المفاتيح $ PS-> MENU ("النص للتحدث" => $ رد الاتصال، "نص آخر للتحدث" => $ رد الاتصال، ...) قائمة صوت تنفذ رد الاتصال عند تحديد عنصر الخصائص الافتراضية يجب أن تعمل في معظم الحالات. الاستثناء هو إذا كنت ترغب في استخدام نظام TTS بخلاف مهرجان أو CEPTRAL. يتم تضمين بقية الخصائص لأنني وجدت لهم مفيدة في بعض الحالات. $ ps -> {tts_engine} => "مهرجان" أو "ceptral"؛ الافتراضي هو "مهرجان" يمكن استخدام محركات TTS الأخرى باستخدام خصائص أمر TTS. $ ps -> {tts_command} => "text_arg cordg"؛ الافتراضي هو "" أمر لقراءة سلسلة نصية. "Text_arg" = سلسلة نصية. $ ps -> {tts_file_command} => "الأمر command file_arg" الافتراضي هو "" الأمر لقراءة ملف نصي. "file_arg" = المسار إلى ملف نصي ليتم قراءته. $ ps -> {file2wave_command} => "الأمر خارج"؛ الافتراضي هو "" الأمر لملف نصي إلى ملف موجة. "في" = ملف الإدخال "خارج" = ملف الإخراج. ليس هناك حاجة إذا كانت TTS_Engine مهرجان "أو" CEPTRAL. PS -> {no_dot_files} => $ poolean؛ الافتراضي هو 1 $ يخفي الملفات التي تبدأ ب "". $ ps -> {hide_extentions} => $ poolean؛ الافتراضي هو 0 سوف تخفي امتدادات الملفات. ملاحظة: في حالة إخفاء الملحقات التي يجب ضبط خاصية no_dot_files على 1. $ $ ps -> {make_readable} => "نمط regexp"؛ الافتراضي هو "" سوف استبدال المساحات ل Regoxp نمط $ PS -> {Bapplable} => $ poolean؛ الافتراضي هو 1 إذا كان يمكن filepicker الحقيقي استعراض الدلائل الأخرى عبر الأسهم الأيمن والأيسر. $ ps -> {dir_return} => $ poolean؛ الافتراضي هو 1 إذا كان True FilePicker قد يرجع الدلائل وكذلك الملفات. $ ps -> {file_prefix} => نص $؛ الافتراضي هو "ملف" filepicker. يحدد النص للتحدث قبل اسم الملف. $ ps -> {dir_prefix} => "النص"؛ الافتراضي هو "مجلد" filepicker والذرير. يحدد النص للتحدث قبل اسم الدليل. كيفية استخدام! / USR / BIN / PERL استخدام PerlSpeak؛ بلدي $ ps = perlspeak-> جديد ()؛ # تعيين خصائص $ PS -> {TTS_Engine} = "مهرجان"؛ أو cepstral # اختياريا تعيين أمر TTS الخاص بك استخدام Text_arg حيث يذهب النص $ PS -> {tts_command} => ""؛ $ ps -> {no_dot_files} => 1؛ $ ps -> {hide_extentions} => 0؛ # محددات الملفات الصوتية بلدي ملف $ = $ ps-> filepicker ($ env {home})؛ إرجاع ملف. بلدي $ dir = $ ps-> dirpicker ($ env {home})؛ إرجاع دليل. PS-> قل ("Hello World!")؛ # محادثات الكمبيوتر. # إرجاع الحرف التالي المكتوب على لوحة المفاتيح # قد يستغرق 2 أو 3 مكالمات تسلسل الهروب. طباعة $ ps-> getch ()؛ # جعل بعض الفرعية يربط لتمرير إلى قائمة البريد الإلكتروني الخاص بي = Sub {print "البريد الإلكتروني"؛ } بلدي $ الإنترنت = sub {print "internetn"؛ } بلدي مستندات $ = sub {print "المستندات"}؛ بلدي $ mp3 = sub {print "mp3n"؛ } بلدي cdaudio = sub {print "cd audion"}؛ بلدي مساعدة $ = sub {print "استعراض heltn"}؛ # القائمة هي قائمة الحديث # Pass Menu قائمة تجزئة من "النص للتحدث" => $ pairs coadback $ ps-> menu (قائمة البريد الإلكتروني "=> $ البريد الإلكتروني،" قائمة الإنترنت "=> $ Internet،" المستندات MENU perl.

بادر برامج ذات صلة