在线查询英汉对译 V1.66 支持中文/剪切板取词

523066680

测试环境：WIN XP or WIN7 32/64 , Perl v5.16 (ActiveState)

代码保存为UTF8编码格式，查询dict.cn网站的翻译结果
（一直想要一个终端版的翻译工具，挂着其他翻译工具或者开浏览器总感觉耗内存）

V1.3 更新内容
支持剪切板获取，同时可以在终端进行输入（在输入单个字符后自动切换到<STDIN>，节约循环开销）
按 / 或者 ESC 或者 输入exit 退出

V1.60 更新内容
添加了中文输入的判断处理（毕竟Term::ReadKey是逐字节读取，不过还好，Read两个字节后转<STDIN>小事化无）
如果Ctrl+C中文文本，需要确保系统默认输入法为中文，否则可能提取为乱码

V1.65 增加剪切板访问开关（按Tab键切换），修正部分文字、符号判断的BUG

1. 
   
2. 
   
3. =info
   
4.     Code by : 523066680@163.com
   
5.        Date : 2015-06-14
   
6.     Version : 1.6.6
   
7. 
   
8.     按 Tab 键切换剪切板访问开关
   
9.     键入 quit/exit 或者 按 ESC 退出
   
10. =cut
    
11. 
    
12. use            v5.16;    # given
    
13. use             utf8;
    
14. use           Encode;
    
15. use       IO::Handle;
    
16. use      LWP::Simple;
    
17. use    Term::ReadKey;
    
18. use Win32::Clipboard;
    
19. 
    
20. use Time::HiRes 'sleep';
    
21. ReadMode 4;              #Turn off controls keys
    
22. 
    
23. system("");
    
24. STDOUT->autoflush(1);
    
25. binmode(STDOUT, ":encoding(gbk)");
    
26. 
    
27. our $clip = Win32::Clipboard->new();
    
28. our $main = "http:\/\/dict.cn";
    
29. our $Clip_Access = 1;
    
30. 
    
31. my $text;
    
32. my $word;
    
33. my $key;
    
34. my $i = 0;
    
35. $clip->Empty();
    
36. 
    
37. notice();
    
38. 
    
39. MAIN: while (1)
    
40. {
    
41.     clipboardEvent() if ( $Clip_Access == 1 );
    
42.     keyboardEvent();
    
43. 
    
44.     print $i == 0 ? "_\b" : " \b";
    
45.     $i = 1 - $i;
    
46.     sleep 0.2;
    
47. }
    
48. 
    
49. sub keyboardEvent
    
50. {
    
51.     my  $word;
    
52. 
    
53.     $word = ReadKey(-1);
    
54.     given ($word)
    
55.     {
    
56.         when ( /\r/   ) { break; }        # ReadKey状态下按 Enter = \r
    
57.         when ( /\e/   ) { exit ; }        # 按 ESC 退出
    
58.         when ( /\t/   ) { switch_CA(); }
    
59.         when ( /.{1}/ ) { readContinue($word); }
    
60.     }
    
61. }
    
62. 
    
63. sub switch_CA
    
64. {
    
65.     our $Clip_Access;
    
66.     $Clip_Access = 1 - $Clip_Access;
    
67.     notice();
    
68. }
    
69. 
    
70. sub readContinue
    
71. {
    
72.     my $word = shift;
    
73.     my $LANG;
    
74. 
    
75.     if ( ord($word) > 128 )                        #非ANSII即GBK
    
76.     {
    
77.         $word .= ReadKey(-1);                      #读入后半字节
    
78.         if ( $word =~ /^[\xA1-\xA9]/ ) { break; }  #GBK 符号区域
    
79.         $LANG = "CHN";
    
80.     }
    
81.     else
    
82.     {   
    
83.         if ( $word =~ /[^a-zA-Z]/    ) { break; }
    
84.         $LANG = "ENG";
    
85.     }
    
86. 
    
87.     print " ", decode('gbk', $word);               #首字符输出
    
88.     $word .= <STDIN>;
    
89.     chomp      $word;
    
90.     $word    = decode('gbk', $word);
    
91. 
    
92.     if ( $word =~ /^(quit|exit)$/i   ) { exit;  }
    
93.     trans($word, $LANG);
    
94. }
    
95. 
    
96. sub clipboardEvent
    
97. {
    
98.     our $clip;
    
99.     my $text;
    
100. 
     
101.     $text = $clip->GetText();
     
102.     $text = decode('gbk', $text);
     
103. 
     
104.     if ( $text =~ /\p{IsWord}/ )
     
105.     {
     
106.         #if ($text =~/\W/) { return; }
     
107.         #最多匹配3个词
     
108.         unless ( $text =~ /^( ?\p{IsWord}+ ?){1,3}$/ )
     
109.         {
     
110.             return;
     
111.         }
     
112. 
     
113.         print " $text {Clipboard}\n";
     
114.         given ($text)
     
115.         {
     
116.             when (/\p{han}/) { trans($text, "CHN"); }
     
117.             when (/[\w ]+/)  { trans($text, "ENG"); }
     
118.         }
     
119.         $clip->Empty();
     
120.     }
     
121. }
     
122. 
     
123. sub trans
     
124. {
     
125.     our $main;
     
126.     my  $word = shift;
     
127.     my  $type = shift;
     
128.     my  $all;
     
129.     my  $chk  = 0;
     
130. 
     
131.     $word = encode('utf8', $word);
     
132.     $all  = get("$main/$word") or warn "$!";
     
133. 
     
134.     $chk =
     
135.         $type eq 'CHN' ?
     
136.             Chn2Eng(\$all) : Eng2Chn(\$all);
     
137. 
     
138.     if ($chk == 0)
     
139.     {
     
140.         print "找不到该单词的翻译信息。\n";
     
141.     }
     
142. 
     
143.     print "\n";
     
144.     notice();
     
145. }
     
146. 
     
147. sub notice {
     
148.     our $enable;
     
149.     state $tip =
     
150.     {
     
151.         0 => "关",
     
152.         1 => "开",
     
153.     };
     
154.     print "\b \b"x80;
     
155.     print "(剪切板访问:". $tip->{ $Clip_Access };
     
156.     print ") 请输入单词:";
     
157. }
     
158. 
     
159. 
     
160. sub Chn2Eng
     
161. {
     
162.     my $ref = shift;
     
163.     my $start;
     
164.     my $chk = 0;
     
165.     for (split("\n", ${$ref}))
     
166.     {
     
167.         if ( /<div class="layout cn">/i ) { $start = 1; }
     
168.         if ( $start == 1 )
     
169.         {
     
170.             if ( /<li><a href.*>(.*)<\/a><\/li>/i )
     
171.             {
     
172.                 print $1,"\n";
     
173.                 $chk++;
     
174.             }
     
175.             elsif ( /<\/div>/i )
     
176.             {
     
177.                 last;
     
178.             }
     
179.         }
     
180.     }
     
181.     return $chk;
     
182. }
     
183. 
     
184. sub Eng2Chn
     
185. {
     
186.     my $ref = shift;
     
187.     my $chk = 0;
     
188.     for (split("\n", ${$ref}))
     
189.     {
     
190.         if (/<li><span>(.*)<\/span>
     
191.              <strong>(.*)<\/strong>
     
192.             /ix
     
193.         ) {
     
194.             print $1, $2,"\n";
     
195.             $chk++;
     
196.         }
     
197.     }
     
198.     return $chk;
     
199. }
     
200. 
     

复制代码

523066680

真是郁闷，发帖的时候刚提交，提示禁止URL，结果草稿被清空，重写。
然后URL修改后可以发布了，发现 CODE 部分 $$变成了一个 $

@@ -115 +115 @@
-    for (split("\n", $$ref))
+    for (split("\n", $ref))
@@ -138 +138 @@
-    for (split("\n", $$ref))
+    for (split("\n", $ref))
@@ -149 +149 @@

最后改为 ${$ref} 问题解决  

david_95

牛啊，收藏，慢慢学习