当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 4 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 翻译脚本总结
帖子发表于 : 2009-07-10 13:27 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
一个 stardict 的单词翻译,一个 google translate 的全文翻译。
带 -n 是屏幕的notify 提示。否则是cli输出,用于irc的bot翻译。无参数时,自动取鼠标选择的文字。带 -1 是为了bot服务的。

代码:
☎ cat sdcv.pl
#!/usr/bin/perl
use Getopt::Long;

# 参数:单行输出选择。屏幕提示输出选择。
GetOptions('1' => \$oneline, 'n'=>\$notify);

my $out,$in;
# 无参数时,使用剪贴板内容。
$in=$ARGV[0]; if(!$in){$in=`xsel -o`;} if(!$in){exit;}
open(SDCV,"sdcv -n $in|");
my $r;
while($l=<SDCV>){
if($l!~/^$/){$r=$l;chomp($r);$r=~s/-->//;}
else{$out="$r --> ";last;}
}
while($l=<SDCV>){
if($l=~/相关|^$/){
close(SDCV);
if($notify){`notify-send -i '/home/exp/媒体/128软件png/pidgin.png' 'sdcv翻译' "$out"`;}
else{print $out;}
exit;
}
chomp($l) if($oneline);
$out.=" ► $l";
}


代码:
☎ cat g-translate.pl
#!/usr/bin/perl

use Getopt::Long;
GetOptions('n'=>\$notify);
my $out,$in,$str;
# 无参数时,使用剪贴板内容。
$in=join('+',@ARGV);if(!$in){$in=`xsel -o`;} if(!$in){exit;}
$in=`echo "$in"|uni2ascii -a J -s`;
$in=~s/ /+/g; $in=~s/["']//g;
chomp $in;
if($in=~/%/){$str="zh-CN%7Cen";}else{$str="en%7Czh-CN";}
$out="curl -e http://www.my-ajax-site.com 'http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=$in&langpair=$str' 2>/dev/null";
$out=`$out`;
$out=~/translatedText":"(.*?)"/;
if($notify){`notify-send 'google翻译' "$1"`;}
else{print $1;}


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 翻译脚本总结
帖子发表于 : 2009-07-10 13:30 
头像

注册: 2009-03-10 13:04
帖子: 7803
送出感谢: 1
接收感谢: 0 次
留个记号 :em11


_________________
广告位招租


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 翻译脚本总结
帖子发表于 : 2009-07-10 14:23 
头像

注册: 2006-12-01 23:02
帖子: 622
送出感谢: 0 次
接收感谢: 0 次
大仙,你表达什么主题?我以为你要开班呢,赶紧占了个前排,没想到只讲例子。 :em06


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 翻译脚本总结
帖子发表于 : 2009-11-06 19:35 
头像

注册: 2005-12-26 19:54
帖子: 66
送出感谢: 0 次
接收感谢: 0 次
请问LZ怎么设置热建,compiz里设置了没反映


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

当前时区为 UTC + 8 小时


在线用户

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


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

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

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