[Perl]在线查询英汉对译 V1.66 支持中文/剪切板取词 - Perl - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

1楼 跳转到 »

发表于 2015-6-13 12:19 | 显示全部帖子

关于占内存问题, 太同感了

这个能不能改成监视剪贴板, 这样就能用 Ctrl+C, 很方便, 同时可能需要设计一个便捷的开关可以用来关掉监视

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

2楼

发表于 2015-6-14 08:34 | 显示全部帖子

本帖最后由 aa77dd@163.com 于 2015-6-14 08:42 编辑

回复 4# 523066680

NICE!

我在找怎么能支持长了空白尾巴的单词, 比如 "word ", "hello ", "perl "

我有个习惯: 在浏览器(也包括 windows 记事本)里一段英文句子里某个单词上双击, 但选词结果就经常包括了后面的空白字符, 比如有空格, TAB 字符, 等

我想应该是修改这行的正则表达式:

if ( $text =~ /\p{IsWord}/ ) 
复制代码

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

3楼

发表于 2015-6-14 09:43 | 显示全部帖子

回复 6# 523066680

ha ha 那就私人定制了

我改成了:

if ($text !~ /^\s*[a-z]+\s*$|^\s*[a-z]+\s*[a-z]+\s*$|^\s*[a-z]+\s*[a-z]+\s*[a-z]+\s*$/i) { return; }
复制代码

可以最多支持包含三个单词的短语, 单词前后有空白字符都不会被拒绝翻译了

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

4楼

发表于 2015-6-14 10:18 | 显示全部帖子

做了个简单的测试对比

[Perl]在线查询dict.cn英汉对译 V1.6 VS Lingoes 2.9.2 Home - 绿色便捷版

对比内容: 内存占用
以下 7 次输出按先后顺序分别是刚启动程序, 对剪贴板取词翻译 1次, 2次, ...6次的内存占用
单词依次为: clip, text, decode, class, strong, print

(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     19,248 K
Lingoes.exe                   7660 Console                    1     30,476 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     28,948 K
Lingoes.exe                   7660 Console                    1     50,268 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,392 K
Lingoes.exe                   7660 Console                    1     50,592 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,392 K
Lingoes.exe                   7660 Console                    1     50,920 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,680 K
Lingoes.exe                   7660 Console                    1     51,900 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,668 K
Lingoes.exe                   7660 Console                    1     52,056 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,768 K
Lingoes.exe                   7660 Console                    1     52,484 K
复制代码

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

5楼

发表于 2015-6-14 12:58 | 显示全部帖子

回复 11# 523066680

音频和纯文本的翻译内容比起来, 相对就超大了, 文本内容出来时不用等音频到位吧, 不然可能会被音频下载速度拖得卡住吧

考虑了本地音频库, 显然音频库也会占用较庞大的磁盘空间, 而且从加载速度考虑可能需要数据索引, 更麻烦了

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

6楼

发表于 2015-6-14 13:01 | 显示全部帖子

回复 10# 523066680

感觉翻译软件通常都会用 tooltip 的形式即时显示翻译结果, 不知 Perl 来实现这个会不会搞得太大, 太大就不好了.

Rank: 5 Rank: 5

帖子: 548
积分: 1246
技术: 176
捐助: 0
注册时间: 2015-6-4

7楼

发表于 2015-6-19 11:37 | 显示全部帖子

本帖最后由 aa77dd@163.com 于 2015-6-19 11:43 编辑

回复 14# 523066680

不知道这些地方能不能找到些资源

http://www.pdawiki.com/forum/thread-10267-1-1.html

http://www.lingoes.cn/zh/dictionary/dict_format.php

http://www.octopus-studio.com/download.cn.htm

http://www.pdawiki.com/forum/forum.php