☎ EEXPRESS

 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

This entry was posted on 星期一, 05月 4th, 2009 at 11:03 pm and is filed under ●Shell标签. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.