Ubuntu中文论坛

代码： 全选

 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