=info
    Code by : 523066680@163.com
       Date : 2015-06-14
    Version : 1.66

    按 Tab 键切换剪切板访问开关
    键入 quit/exit 或者 按 ESC 退出
=cut

use            v5.16;    # given
use             utf8;
use           Encode;
use       IO::Handle;
use      LWP::Simple;
use    Term::ReadKey;
use Win32::Clipboard;

use Time::HiRes 'sleep';
ReadMode 4;              #Turn off controls keys

system("");
STDOUT->autoflush(1);
binmode(STDOUT, ":encoding(gbk)");

our $clip = Win32::Clipboard->new();
our $main = "http:\/\/dict.cn";
our $Clip_Access = 1;

my $text;
my $word;
my $key;
my $i = 0;
$clip->Empty();

notice();

MAIN: while (1)
{
    clipboardEvent() if ( $Clip_Access == 1 );
    keyboardEvent();

    print $i == 0 ? "_\b" : " \b";
    $i = 1 - $i;
    sleep 0.2;
}

sub keyboardEvent 
{
    my  $word;

    $word = ReadKey(-1);
    given ($word) 
    {
        when ( /\r/   ) { break; }        # ReadKey状态下按 Enter = \r
        when ( /\e/   ) { exit ; }        # 按 ESC 退出
        when ( /\t/   ) { switch_CA(); }
        when ( /.{1}/ ) { readContinue($word); }
    }
}

sub switch_CA 
{
    our $Clip_Access;
    $Clip_Access = 1 - $Clip_Access;
    notice();
}

sub readContinue 
{
    my $word = shift;
    my $LANG;

    if ( ord($word) > 128 )                        #非ANSII即GBK
    {
        $word .= ReadKey(-1);                      #读入后半字节
        if ( $word =~ /^[\xA1-\xA9]/ ) { break; }  #GBK 符号区域
        $LANG = "CHN";
    }
    else 
    {   
        if ( $word =~ /[^a-zA-Z]/    ) { break; }
        $LANG = "ENG";
    }

    print " ", decode('gbk', $word);               #首字符输出
    $word .= <STDIN>;
    chomp      $word;
    $word    = decode('gbk', $word);

    if ( $word =~ /^(quit|exit)$/i   ) { exit;  }
    trans($word, $LANG);
}

sub clipboardEvent 
{
    our $clip;
    my $text;

    $text = $clip->GetText();
    $text = decode('gbk', $text);

    if ( $text =~ /\p{IsWord}/ )
    {
        #if ($text =~/\W/) { return; }
        #最多匹配3个词
        unless ( $text =~ /^( ?\p{IsWord}+ ?){1,3}$/ ) 
        {
            return; 
        }

        print " $text {Clipboard}\n";
        given ($text) 
        {
            when (/\p{han}/) { trans($text, "CHN"); }
            when (/[\w ]+/)  { trans($text, "ENG"); }
        }
        $clip->Empty();
    }
}

sub trans
{
    our $main;
    my  $word = shift;
    my  $type = shift;
    my  $all;
    my  $chk  = 0;

    $word = encode('utf8', $word);
    $all  = get("$main/$word") or warn "$!";

    $chk = 
        $type eq 'CHN' ?
            Chn2Eng(\$all) : Eng2Chn(\$all);

    if ($chk == 0)
    {
        print "找不到该单词的翻译信息。\n";
    }

    print "\n";
    notice();
}

sub notice {
    our $enable;
    state $tip = 
    {
        0 => "关",
        1 => "开",
    };
    print "\b \b"x80;
    print "(剪切板访问:". $tip->{ $Clip_Access };
    print ") 请输入单词:";
}


sub Chn2Eng
{
    my $ref = shift;
    my $start;
    my $chk = 0;
    for (split("\n", ${$ref})) 
    {
        if ( /<div class="layout cn">/i ) { $start = 1; }
        if ( $start == 1 ) 
        {
            if ( /<li><a href.*>(.*)<\/a><\/li>/i ) 
            {
                print $1,"\n";
                $chk++;
            }
            elsif ( /<\/div>/i ) 
            {
                last;
            }
        }
    }
    return $chk;
}

sub Eng2Chn
{
    my $ref = shift;
    my $chk = 0;
    for (split("\n", ${$ref})) 
    {
        if (/<li><span>(.*)<\/span>
             <strong>(.*)<\/strong>
            /ix
        ) {
            print $1, $2,"\n";
            $chk++;
        }
    }
    return $chk;
}
复制代码

if ( $text =~ /\p{IsWord}/ ) 
复制代码

if ($text !~ /^\s*[a-z]+\s*$|^\s*[a-z]+\s*[a-z]+\s*$|^\s*[a-z]+\s*[a-z]+\s*[a-z]+\s*$/i) { return; }
复制代码

(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     19,248 K
Lingoes.exe                   7660 Console                    1     30,476 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     28,948 K
Lingoes.exe                   7660 Console                    1     50,268 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,392 K
Lingoes.exe                   7660 Console                    1     50,592 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,392 K
Lingoes.exe                   7660 Console                    1     50,920 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,680 K
Lingoes.exe                   7660 Console                    1     51,900 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,668 K
Lingoes.exe                   7660 Console                    1     52,056 K
(tasklist | findstr "perl.exe") & (tasklist | findstr "Lingoes.exe")
perl.exe                      4216 Console                    1     29,768 K
Lingoes.exe                   7660 Console                    1     52,484 K
复制代码