| Metatrans :: Base. Metatrans :: Base هي فئة قاعدة مجردة لإنشاء المكونات الإضافية للمترجم Meta. |
التحميل الان |
Metatrans :: Base. الترتيب والملخص
- رخصة:
- Perl Artistic License
- اسم الناشر:
- Jan Pomikalek
- موقع ويب الناشر:
- http://search.cpan.org/~janpom/MetaTrans-1.04/lib/MetaTrans/Base.pm
Metatrans :: Base. العلامات
Metatrans :: Base. وصف
Metatrans :: Base هي فئة قاعدة مجردة لإنشاء المكونات الإضافية المترجمية. Metatrans :: Base هي فئة قاعدة مجردة لإنشاء مكونات المكونات المتتالية. إنه يخدم للتوضيح فقط. # لعمل واحد انظر Metatrans :: رمز مصدر Ultralinguanet. حزمة Metatrans :: MyPlugin؛ استخدم Metatrans :: Base؛ استخدم Vars QW (ISA)؛ @ ISA = QW (Metatrans :: Base)؛ استخدم HTTP :: طلب؛ استخدم URI :: Escape؛ SUB جديد {بلدي فئة $ = التحول؛ خيارات = @؛ $ Options {host_server} = "www.some-online-translator.com" ما لم يكن (خيارات $ المعرفة {host_server})؛ بلدي $ الذاتي = جديد metatrans :: قاعدة (خيارات)؛ $ الذاتي = بارك الله الذاتي، فئة $؛ # اتجاهات الترجمة المدعومة: # الإنجليزية الألمانية # الإنجليزية الفرنسية # الإنجليزية الإسبانية $ $ الذاتي> set_dir_1_to_all ('eng')؛ $ الذاتي> set_dir_all_to_1 ("المهندس")؛ عودة $ الذاتي } Sub Create_Request {My $ Self = Shift؛ بلدي التعبير $ = التحول؛ بلدي $ src_lang_code = التحول؛ بلدي dest_lang_code = التحول؛ # جدول تحويل رموز رموز اللغة إلى الخوادم-إلى خادم جدول My My My Table = (ENG => 'ENG'، GER => 'DEU'، FRE => 'FRA'، SPA => 'ESP')؛ RETURN جديد HTTP :: طلب ("احصل"، 'http://www.some-online-translator.com/translate.cgi؟ "expr ='. uri_escape ($ التعبير). '' src = ' . $ table {$ src_lang_code}. ''. 'dst ='. $ table {$ dest_lang_code})؛ } Process_Response Sub_Response {My $ $ = التحول؛ بلدي محتويات $ = التحول؛ # نحن لا نهتم بهذه هنا، ولكن # في بعض الحالات قد نحتاج إلى رعاية بلدي $ src_lang_code = التحول؛ بلدي dest_lang_code = التحول؛ بلدي @ result؛ بينما (محتويات $ = ~ م | ([^
Metatrans :: Base. برامج ذات صلة