use utf8;
use Encode;
use File::Slurp;
use Mojo::UserAgent;
use URI::Escape;
use JSON qw/from_json to_json/;
STDOUT->autoflush(1);

my $word = "command";
my $url = "http://dict.cn/${word}";
my $ua = Mojo::UserAgent->new();
my $res = $ua->get($url)->result;
my $json = $res->dom->at(".dict-chart")->attr("data");
my $data = from_json(uri_unescape($json));

if ( scalar keys %$data == 1 )
{
    printf "%2s%% %s\n", $data->{1}{percent}, gbk($data->{1}{pos});
} 
else
{
    for my $k ( sort keys %$data )
    {
        printf "%2s%% %s\n", $data->{$k}{percent}, gbk($data->{$k}{sense});
    }
}

sub gbk { encode('gbk', $_[0]) }
复制代码

74% 命令
21% 指挥
 4% 掌握
 1% 博得
复制代码

<# :
cls
@echo off
mode con lines=3000
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "&{[ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)).Invoke()}"
pause
exit
#>
function gethtml($w){
    $html='';
    $url='http://dict.cn/'+$w;
    $web=New-Object System.Net.WebClient;
    $web.Encoding=[System.Text.Encoding]::UTF8;
    for($i=1;$i -le 4;$i++){
        try{
            $html=$web.DownloadString($url);
            break;
        }catch{write-host ('获取网页内容第'+$i.toString()+'次失败')};
    };
    return $html;
};
function gethz($s){
    $str='';
    $str=[regex]::replace($s,'\\u([\da-z]{4})',{param($a);[char][Convert]::ToInt32($a.groups[1].value, 16)});
    return $str;
};
$inputfile='单词列表.txt';
$outfile='结果.txt';
$min=5;
[void][Reflection.Assembly]::LoadWithPartialName('System.Web');
[System.Collections.ArrayList]$s=@();
$text=[IO.File]::ReadAllLines($inputfile,[Text.Encoding]::Default);
for($i=0;$i -lt $text.count;$i++){
    write-host ('------------'+$text[$i]+'------------');
    $content=gethtml $text[$i];
    $m=[regex]::match($content,'<div .*?id="dict-chart-basic" data="([^"]+?)"');
    if($m.success){
        $js=[Web.HttpUtility]::UrlDecode($m.groups[1].value);
        $tmp=(gethz $js) -replace '^\{|\}$','';
        $mm=[regex]::matches($tmp,'\{([^\}]+?)\}');
        [System.Collections.ArrayList]$t=@();
        if($mm.count -ge 1){
            foreach($it in $mm){
                $arr=$it.groups[1].value.split(':,', 4);
                if((1*$arr[1]) -ge $min){[void]$t.add($arr[3].Trim('"')+':'+$arr[1])};
            };
        };
        [void]$s.add($text[$i]+"`t"+($t -join ','));
    }else{
        [void]$s.add($text[$i]+"`t无");
    };
};
[IO.File]::WriteAllLines($outfile, $s, [Text.Encoding]::Default);
复制代码

good	adj. 好的；上等的；优秀的 ; n. 好处；善行 ;(复)goods：商品；货物. 	好的:78,好处:11,优秀的:7
复制代码

<#*,:&cls
@echo off
pushd "%~dp0"
Powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
popd
pause
exit /b
#>
$VerbosePreference = "Continue"
$inputFile = "单词列表.txt"
$outputFile = "结果.txt"
Get-Content -LiteralPath $inputFile -OutBuffer 10 | ForEach-Object -Begin {
  $sw = New-Object -TypeName System.IO.StreamWriter -ArgumentList ("$pwd\$outputFile"), $false, ([System.Text.Encoding]::Default)
  # webclient settings
  $webclient = New-Object -TypeName System.Net.WebClient
  $webclient.BaseAddress = 'http://dict.cn/'
  $webclient.Encoding = [System.Text.Encoding]::UTF8
  $webclient.Headers.Add("Accept", "text/html, application/xhtml+xml, application/xml; q=0.9, */*; q=0.8")
  $webclient.Headers.Add("Accept-Encoding", "gzip")
  $webclient.Headers.Add("Accept-Language", "en-US, en; q=0.8, zh-Hans-CN; q=0.5, zh-Hans; q=0.3")
  # xml parser
  $xmldoc = New-Object -TypeName System.Xml.XmlDocument
  # re
  $recontent = [regex]'(?si)<div\s+class="word"[^>]*>.*?(?=<div\s+class="section[^"]*"[^>]*>)'
  $rejs = [regex]'(?si)<script[^>]*>.*?</script>'
  # stringbuilder
  $strbuilder = New-Object -TypeName System.Text.StringBuilder
  Add-Type -AssemblyName Microsoft.Jscript
  $vsaengine = [Microsoft.JScript.Vsa.VsaEngine]::CreateEngine()
  Add-Type -AssemblyName System.Web
} -Process {
  Write-Verbose "Fetching $_ ..."
  for ($i = 2; $i -ge 0; $i--) {
    try {
      $readstream = $webclient.OpenRead($_)
      Write-Verbose "Fetch $_ success"
      break
    }
    catch {
      $_ | Out-String | Write-Host -ForegroundColor Red
    }
  }
  if ($readstream) {
    try {
      $gzipstream = New-Object -TypeName System.IO.Compression.GZipStream -ArgumentList $readstream, ([System.IO.Compression.CompressionMode]::Decompress)
      $sr = New-Object -TypeName System.IO.StreamReader -ArgumentList $gzipstream, ([System.Text.Encoding]::UTF8)
    
      $match = $recontent.Match($sr.ReadToEnd())
      if ($match.Success) {
        Write-Verbose "Match $_ success"
        $xmldoc.LoadXml(($rejs.Replace($match.Value, '') -replace '<([^\x00-\x7e]+)>', '&lt;$1&gt;'))
        $strbuilder.Length = 0
        # word-cont
        [void]$strbuilder.Append($xmldoc.SelectSingleNode('//h1[@class="keyword"]/text()').Value).Append("`t")
        # dict-translation
        [void]$strbuilder.Append( ($xmldoc.SelectNodes('//ul/li[position()<last()]') | ForEach-Object { $_.innerText }) -join " " ).Append("`t")
        try {
          # dict-chart
          $strjson = [System.Web.HttpUtility]::UrlDecode($xmldoc.SelectSingleNode('//div[@id="dict-chart-basic"]/@data').Value)
          $jsobj = [Microsoft.JScript.Eval]::JScriptEvaluate("($strjson)", $vsaengine )
          foreach ($field in $jsobj) {
            [void]$strbuilder.Append($jsobj.Item($field).Item('sense')).Append(':').Append($jsobj.Item($field).Item('percent')).Append(',')
          }
          [void]$strbuilder.Remove($strbuilder.Length - 1, 1)
        }
        catch {
          # $_ | Out-String | Write-Host -ForegroundColor Red
        }
        # output result string
        $sw.WriteLine(($strbuilder.ToString() -replace "[\r\n]"))
        # $strbuilder.ToString()|Out-Host
      }
      else {
        Write-Verbose "Match $_ failed"
      }
    }
    catch {
      $_ | Out-String | Write-Host -ForegroundColor Red  
    }
    finally {
      $readstream.Close()
      Remove-Variable readstream
      if ($gzipstream) {
        $gzipstream.Dispose()
      }
      if ($sr) {
        $sr.Dispose()
      }
    }
  }
  else {
    $sw.WriteLine($_)
  } 
} -End {
  $sw.Dispose()
  $webclient.Dispose()
}
复制代码

in-depth
storytelling
same-sex
high-end
sweaty
first-time
president-elect
复制代码

@set @i=0 /* & @echo off & >提取结果.txt cscript.exe -NoLogo -E:JScript %0 <单词列表.txt & pause exit  */
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
function GetContent(url) {
        xmlhttp.open("GET", url ,false);
        xmlhttp.send();
        return(xmlhttp.responseText);
};

while (!WSH.StdIn.AtEndOfStream) {
      var str = WSH.StdIn.ReadLine();
      if (str) {
           var url = "http://dict.cn/" + str;
           var html = new ActiveXObject("htmlfile");
           html.write(GetContent(url));
           var t = html.getElementsByTagName("ul")[0];
           if (t) {
               str += "\t" + t.innerText.replace(/[\r\n]/gm,'') + "。\t";
               if (html.getElementById("dict-chart-basic")) {
                   var obj = new Function("return" + unescape(html.getElementById("dict-chart-basic").data))();
                   for(var key in obj ){  str += obj[key].percent > 5 ? obj[key].sense + ":"+ obj[key].percent + "%, " : ""};
               }
           };
           else { str += "\t" + "错误" };
           WSH.Echo(str);
     };
};
复制代码

do
one
order
mine
communicate
guarantee
operator
steep
abstract
diabetes
复制代码

than
steady
psychologist
export
Korean
复制代码

big	adj.大的；重要的；有雄心的；受欢迎的；adv.宏大地；夸大地；成功地；n.杰出的组织和个人	大的:71,重要的:11,夸大地:5,成功地:5,受欢迎的:4,杰出的组织和个人:2,宏大地:1,有雄心的:1	用作形容词 (adj.)<br>1.New York is a big commercial city.<br>纽约是一座大的商业城市。<br>2.His business yields big profits.<br>他的生意带来巨大的利润。<br>3.Don't cry, you are a big boy now.<br>别哭，你现在已经是大男孩了。<br>4.The big moment has come at last!<br>重要的时刻终于到来了！<br>5.The big thing is that you know what you want.<br>重要的是你必须知道自己想要什么。<br>6.He's got a lot of big ideas about how to change the system.<br>就如何改变体制，他有一些远大的想法。<br>7.That rock and roll band is very big in Chicago.<br>那个摇滚乐团在芝加哥很受欢迎。<br> 用作副词 (adv.)<br>1.You need to think big(= aim to achieve a lot).<br>你要敢想。<br>2.As for us, we mustn't talk big in our external propaganda.<br>在我们自己方面，对外宣传不要夸大。<br>3.The band comes over big with pop fans.<br>该乐队受流行音乐歌迷欢迎大为成功。<br> 用作名词 (n.)  <br>1.With that new promotion he's now one of the bigs in the company.<br>通过那次得晋升，他现在是公司的杰出员工之一。
复制代码

African-American
CEO
ie
allegation
annually
anyone
boyfriend
businessman
celebration
Christianity
courtroom
educator
girlfriend
Hispanic
incredibly
initially
Iraqi
Israeli
Jewish
juror
longtime
mainstream
obviously
originally
oversee
Palestinian
pastor
playoff
PM
precisely
publisher
rebuild
regularly
reportedly
significantly
tablespoon
teammate
typically
ultimately
workplace
yeah
复制代码

PC	abbr.个人计算机(=personal computer)	<br>1.Maintenance of PC is in my element.<br>我对电脑的维修保养很在行。
复制代码

PC	abbr.个人计算机(=personal computer)		<br>1.Maintenance of PC is in my element.<br>我对电脑的维修保养很在行。
复制代码

<#*,:&cls
@echo off
pushd "%~dp0"
Powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "
popd
pause
exit /b
#>
$VerbosePreference = "Continue"
$inputFile = "单词列表.txt"
$outputFile = "结果.txt"
Get-Content -LiteralPath $inputFile -OutBuffer 100 | ForEach-Object -Begin {
  $sw = New-Object -TypeName System.IO.StreamWriter -ArgumentList $outputFile, $false, ([System.Text.Encoding]::Default), 65536
  # webclient settings
  $webclient = New-Object -TypeName System.Net.WebClient
  $webclient.BaseAddress = 'http://dict.cn/'
  $webclient.Encoding = [System.Text.Encoding]::UTF8
  $webclient.Headers.Add("Accept", "text/html, application/xhtml+xml, application/xml; q=0.9, */*; q=0.8")
  $webclient.Headers.Add("Accept-Encoding", "gzip")
  $webclient.Headers.Add("Accept-Language", "en-US, en; q=0.8, zh-Hans-CN; q=0.5, zh-Hans; q=0.3")
  # xml parser
  $xmldoc = New-Object -TypeName System.Xml.XmlDocument
  # re
  $remain = [regex]'(?si)<div\s+class="main"[^>]*>.*?(?=<div\s+class="righter")'
  # $recontent = [regex]'(?si)<div\s+class="word"[^>]*>.*?(?=<div\s+class="section[^"]*"[^>]*>)'
  $rejs = [regex]'(?si)<script[^>]*>.*?</script>'
  # $resent = [regex]'(?si)(?<=<h3[^>]*>例句</h3>).*?(?=<h3)'
  $reXMLEntities = [regex]'(?si)&[^;<]*(;|(?=<|$))'
  $evaluator = { 
    param($m)
    $s = $m.Value; 
    if ($m.Groups[1].Value -eq '') {
      $s += ';' 
    }
    [System.Web.HttpUtility]::HtmlEncode([System.Web.HttpUtility]::HtmlDecode($s)) 
  } -as [System.Text.RegularExpressions.MatchEvaluator]
  # stringbuilder
  $strbuilder = New-Object -TypeName System.Text.StringBuilder
  Add-Type -AssemblyName System.Web.Extensions
  $JSON = New-Object -TypeName System.Web.Script.Serialization.JavascriptSerializer -ErrorAction Stop
  # $vsaengine = [Microsoft.JScript.Vsa.VsaEngine]::CreateEngine()
  Add-Type -AssemblyName System.Web
} -Process {
  Write-Verbose "Fetching $_ ..."
  for ($i = 2; $i -ge 0; $i--) {
    try {
      $readstream = $webclient.OpenRead($_)
      Write-Verbose "Fetch $_ success"
      break
    } catch {
      $_ | Out-String | Write-Host -ForegroundColor Red
    }
  }
  if ($readstream) {
    try {
      $gzipstream = New-Object -TypeName System.IO.Compression.GZipStream -ArgumentList $readstream, ([System.IO.Compression.CompressionMode]::Decompress)
      $sr = New-Object -TypeName System.IO.StreamReader -ArgumentList $gzipstream, ([System.Text.Encoding]::UTF8)
      $strhtml = $sr.ReadToEnd()
      $match = $remain.Match($strhtml)
      # div.main matched
      if ($match.Success) {
        Write-Verbose "Match $_ success"
        # convert html to xml
        $strxml = $rejs.Replace($match.Value, '') -replace '(?s)<!--.*?-->' -replace '<([^\x00-\x7e]+)>', '&lt;$1&gt;' -replace '<br>', '<br/>'
        $strxml = $reXMLEntities.Replace($strxml, $evaluator)
        $xmldoc.LoadXml($strxml)
        $strbuilder.Length = 0
        $nodeWord = $xmldoc.DocumentElement.SelectSingleNode('div[@class="word"]')
        # word-cont
        [void]$strbuilder.Append($nodeWord.SelectSingleNode('.//h1[@class="keyword"]/text()').Value).Append("`t")
        # dict-translation
        [void]$strbuilder.Append( ($nodeWord.SelectNodes('.//ul/li[position()<last()]') | ForEach-Object { $_.innerText }) -join " " ).Append("`t")
        # dict-chart
        $nodeChartBasic = $nodeWord.SelectSingleNode('.//div[@id="dict-chart-basic"]/@data')
        # chart basic exist
        if ($nodeChartBasic) {
          $strjson = [System.Uri]::UnescapeDataString($nodeChartBasic.Value)
          $jsobj = $JSON.DeserializeObject($strjson)
          foreach ($field in $jsobj.Keys) {
            [void]$strbuilder.Append($jsobj.Item($field).Item('sense')).Append(':').Append($jsobj.Item($field).Item('percent')).Append(',')
          }
          [void]$strbuilder.Remove($strbuilder.Length - 1, 1)
        }
        [void]$strbuilder.Append("`t")
        
        # 例句
        # $match1 = $resent.Match($strhtml)
        $nodeSent = $xmldoc.DocumentElement.SelectSingleNode('div[@class="section sent"]/h3[text()="例句"]/following-sibling::div')
        if ($nodeSent) {
          try {
            # $xmldoc.LoadXml(($match1.Value -replace '<br>', '<br/>' -replace '<([^\x00-\x7e]+)>', '&lt;$1&gt;'))
            $nodeSent.SelectNodes('ol') | ForEach-Object {
              # 用作形容词 (.adj)
              [void]$strbuilder.Append(($_.PreviousSibling.InnerText -replace '\s+' -replace '\(', ' $&')).Append('<br>')
              $_.SelectNodes('li[position()<3]') | ForEach-Object -Begin { $index = 0 } -Process {
                $index++;
                [void]$strbuilder.Append("$index.$(($_.SelectNodes('text()')|ForEach-Object {$_.Value}) -join '<br>')").Append('<br>')
              }
            }
            [void]$strbuilder.Remove($strbuilder.Length - 4, 4)
          } catch {
            $_ | Out-String | Write-Host -ForegroundColor Red
          }
        } else {
          Write-Verbose "没有例句."
        }
        # output result string
        $sw.WriteLine(($strbuilder.ToString() -replace "[\r\n]+"))
      } else {
        Write-Verbose "Match $_ failed"
      }
    } catch {
      $_ | out-string | Write-Host -ForegroundColor Red
    } finally {
      $readstream.Close()
      Remove-Variable readstream
      if ($gzipstream) {
        $gzipstream.Dispose()
      }
      if ($sr) {
        $sr.Dispose()
      }
    }
  } else {
    $sw.WriteLine($_)
  } 
} -End {
  $sw.Dispose()
  $webclient.Dispose()
}
复制代码

@set @i=0 /* & @echo off & cscript.exe -NoLogo -E:JScript %0 <单词列表.txt >结果.txt& pause & exit */
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
function GetContent(url) {
        xmlhttp.open("GET", url ,false);
        xmlhttp.send();
        return(xmlhttp.responseText);
};
function getByClass(tag,Classname){
        if(html.getElementsByClassName){
                return html.getElementsByClassName(Classname);
        }
        var tags = html.getElementsByTagName(tag);
        for(var i = 0,len = tags.length; i < len; i++){
                if( tags[i].className ==Classname){
                         return(tags[i]);
                }
        }
}
while (!WSH.StdIn.AtEndOfStream) {
        var s = WSH.StdIn.ReadLine();
        var str = s;
        var url = "http://dict.cn/" + str;
        var html = new ActiveXObject("htmlfile");
        html.write(GetContent(url));
        var ul = getByClass("ul","dict-basic-ul");
        if (ul) {
                str += "\t" + ul.innerText.replace(/[\r\n]/gm,'') + "。\t"
                if (html.getElementById("dict-chart-basic")) {
                        var obj = new Function("return" + unescape(html.getElementById("dict-chart-basic").data))();
                        for(var key in obj ) { str += obj[key].percent > 5 ? obj[key].sense + ":"+ obj[key].percent + "%, " : ""};
                };
                var div = getByClass("div","layout sort");
                if (div) {
                        str+= '\t'
                        var b = div.getElementsByTagName("b");
                        var ol = div.getElementsByTagName("ol");
                        for (var i=0; i<ol.length; i++) {
                                var s =b[i];
                                if (s) { str+= s.innerText + '<br>' };
                                var li= ol[i].getElementsByTagName("li");
                                for (var j=0, len = li.length; j<len; j++) {
                                        if (j < 2) {str+= j+1 + '. ' + li[j].innerText + '<br>' };
                                };
                        };
                        WSH.Echo(str.replace(/\r?\n/g,'<br>'));
                };
       };
       else { str += "\t" + "错误" };
};
复制代码

do
one
order
mine
communicate
guarantee
operator
复制代码

var ul = getByClass("div","basic clearfix");
复制代码

@set @i=0 /* & @echo off & cscript.exe -NoLogo -E:JScript %0 <单词列表.txt >结果.txt& pause & exit */
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
function GetContent(url) {
        xmlhttp.open("GET", url ,false);
        xmlhttp.send();
        return(xmlhttp.responseText);
}
function getByClass(tag,Classname){
        if(html.getElementsByClassName){
                return html.getElementsByClassName(Classname);
        }
        var tags = html.getElementsByTagName(tag);
        for(var i = 0,len = tags.length; i < len; i++){
                if( tags[i].className ==Classname){
                         return(tags[i]);
                }
        }
}
while (!WSH.StdIn.AtEndOfStream) {
        var s = WSH.StdIn.ReadLine();
        var str = s;
        var url = "http://dict.cn/" + str;
        var html = new ActiveXObject("htmlfile");
        html.write(GetContent(url));
        try { 
                var ul = getByClass("div","basic clearfix");
                str += "\t" + ul.innerText.replace(/[\r\n]/gm,'') + "。\t";
                if (html.getElementById("dict-chart-basic")) {
                        var obj = new Function("return" + unescape(html.getElementById("dict-chart-basic").data))();
                        for(var key in obj ) { str += obj[key].percent > 5 ? obj[key].sense + ":"+ obj[key].percent + "%, " : ""};
                }
                var div = getByClass("div","layout sort");
                if (div) {
                        str+= '\t'
                        var b = div.getElementsByTagName("b");
                        var ol = div.getElementsByTagName("ol");
                        for (var i=0; i<ol.length; i++) {
                                var s =b[i];
                                if (s) { str+= s.innerText + '<br>' };
                                var li= ol[i].getElementsByTagName("li");
                                for (var j=0, len = li.length; j<len; j++) {
                                        if (j < 2) {str+= j+1 + '. ' + li[j].innerText + '<br>' };
                                }
                        }
                }
       }
        catch (e) {str += "\t" + "错误"};
        WSH.Echo(str.replace(/\r?\n/g,'<br>'));
}
复制代码