当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 5 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 改良的sdcv.pl
帖子发表于 : 2009-05-04 23:07 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
代码:
 1 #!/usr/bin/perl
 2 use Getopt::Long;
 3
 4 # 参数:单行输出选择。屏幕提示输出选择。
 5 GetOptions(‘1‘ => \$oneline, ‘n‘=>\$notify);
 6
 7 my $out,$in;
 8 # 无参数时,使用剪贴板内容。
 9 $in=$ARGV[0]; if(!$in){$in=`xsel -o`;} if(!$in){exit;}
10 open(SDCV,"sdcv -n $in|");
11 my $r;
12 while($l=<SDCV>){
13 if($l!~/^$/){$r=$l;chomp($r);$r=~s/–>//;}
14 else{$out="$r –> ";last;}
15 }
16 while($l=<SDCV>){
17 if($l=~/相关|^$/){
18 close(SDCV);
19 if($notify){`notify-send -i ‘/home/exp/媒体/128软件png/pidgin.png’ ’sdcv翻译’ "$out"`;}
20 else{print $out;}
21 exit;
22 }
23 chomp($l) if($oneline);
24 $out.=" ► $l";
25 }
26
27


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 改良的sdcv.pl
帖子发表于 : 2009-05-04 23:08 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
可放到面板上作启动器,带上-n。
终端里面直接用,带参数,或者不带(使用鼠标选择的文字)
可放irc作bot。带上-1。


_________________
● 鸣学


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 改良的sdcv.pl
帖子发表于 : 2009-05-04 23:10 
头像

注册: 2007-09-29 3:09
帖子: 5773
送出感谢: 0 次
接收感谢: 3
就改了两个参数?


_________________
HUNT Unfortunately No Talent...


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 改良的sdcv.pl
帖子发表于 : 2009-05-05 9:07 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
是啊。不是还有一个自动选择翻译内容的,智能的,
你还要嘛。
:em04


_________________
● 鸣学


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 改良的sdcv.pl
帖子发表于 : 2009-05-05 9:40 
头像

注册: 2007-11-29 9:41
帖子: 8455
送出感谢: 0 次
接收感谢: 0 次
ee又出新脚本啊


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 5 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译