- 博客(14)
- 资源 (1)
- 收藏
- 关注
原创 英语雅思口语
describe a place good ieas /vocabularya city(you've visited)a city you would like to visitsomewhere you went on holidaya historic placea river lake or seaa journey where you wenta shopa restauranta streetwhichwherewhat ...
2020-06-06 21:31:31
286
原创 找出动词前面的并以动词命名
源文件:一项项地去 71一项项地进行 39一坨坨地向上 32一届届地办 24一沓沓地做 23一秒秒地过 21一项项地排列 17一项项地列出 13一岁岁地变 12open(a,"1.txt");while($m=){ chomp($m); if($m=~/(.+)地([^\s\d]+)\s+\d+/){ if(defined $hash{$2}){
2017-08-18 20:40:20
528
原创 作业
11)给定源代码代码,请在源代码上添加注释,要求注明每个函数及函数主要功能块的功能,特别梳理出建立索引和查找过程的实现方法。2)书写课程报告,简述课程收获,并进行自评,也可以给出课程建议。2采用二元文法,训练一个单字的二元模型,采用这个模型完成连续拼音转化句子,要求输入拼音之间没有空格基于单字二元文法,连续输入拼音,音字转换程序,要求拼音之间不能加空格
2017-07-02 14:32:00
194
原创 合并文件
ReadDict("202_112_194_59_601_n{count_10}.txt");ReadDict("202_112_194_59_602_n{count_10}.txt");ReadDict("202_112_194_59_603_n{count_10}.txt");ReadDict("202_112_194_59_604_n{count_10}.txt");ReadDict
2017-07-02 14:29:13
239
原创 除去文档中英文 数字 ?
open(In,"noun.txt"); open(out,">noun_2.txt");while(){ chomp; @arr=split(" ",$_); $m=$arr[0]; $n=$arr[1]; if($m=~/[u4e00-u9fa5A-Za-z]{2,}/){ } else{ $m=~/^[^a-z]/i; $m=~/^[\u4e00-\u9fa5]{
2017-07-02 14:22:03
193
原创 整理词表
open(In,"corpus.txt");open(out,">cibiao.txt");while(){ chomp; @Words=$_=~/(\S+)\/\S+/g; @POSs=$_=~/\S+\/(\S+)/g; for($i=0;$i<@Words;$i++){ # if(defined $hash{$Word[$i]}){ # $refPOS=$hash{$Wo
2017-07-02 10:11:12
176
原创 含虚词的词并以虚词为文件名命名
use Encode;use utf8;open(a,"xuci1.txt");while($l1=){ chomp($l1); @arr=("$l1"); $w1=$arr[0]; # $W1=encode("gbk",$w1); $hash1{$w1}=1;}foreach $u1(keys %hash1){ #$u2=encode("gbk",$u1); open(
2017-06-30 10:24:07
285
原创 含虚词的词
use Encode;use utf8;open(a,"xuci1.txt");while($l1=){ chomp($l1); @arr=("$l1"); $w1=$arr[0]; # $W1=encode("gbk",$w1); $hash1{$w1}=1;}foreach $u1(keys %hash1){ #$u2=encode("gbk",$u1); open(
2017-06-30 10:13:37
237
原创 统计词性语料库
open(In,"corpus.txt");open(out,">cibiao.txt");while(){ chomp; @Words=$_=~/(\S+)\/\S+/g; @POSs=$_=~/\S+\/(\S+)/g; for($i=0;$i<@Words;$i++){ # if(defined $hash{$Word[$i]}){ # $refPOS=$hash{$Wo
2017-06-25 14:28:28
629
原创 抽取这个词典中所有独立的汉语译文并统计其频次 ?
open(In,"dict.txt");while(){ chomp; if(/(.+)=>(.+)/){ $hash{$2}=$1; } }close(In);$i=0;foreach $m(sort keys %hash){ @arr=split(" ",$m); foreach $d(@arr){ if($d=~/[\x80-\xff].+/){ #
2017-06-09 13:45:18
219
原创 找出兼类词并计算兼类词占整个词表的百分比
open(In,"dict.txt");$i=0;$j=0;while(){ chomp; if(/@/){ #print "$_\n"; $j++; } $i++;}close(In);print $j/$i;
2017-06-08 16:05:24
321
原创 找出以abc为前缀、中缀、后缀的词
open(In,"dict.txt");while(){ chomp; if(/(.+)=>(.+)/){ $Hash{$1}=$2; }}close(In); foreach $m(sort keys %Hash){ if($m=~/^ab/g){ print "$m\t$Hash{$m}\n"; } if($m=~/d$/){ print "$m\t$Has
2017-06-08 16:01:28
441
原创 统计以a开头的词
open(In,"dict.txt");$a=0;$b=0;$c=0;while(){ chomp; if($_=~/^a/){ $a++; } if($_=~/^b/){ $b++; } if($_=~/^c/){ $c++; }}close(In);print $a."\n";print $b."\n";print $c."\n";
2017-06-08 15:56:51
431
原创 查词典(查一个词后面的东西)
open(In,"dict.txt");while(){ chomp; if(/(.+)=>(.+)/){ $hash{$1}=$2; }}close(In);while(1){ print "plese input a word:\n"; $input=; chomp($input); if(defined $hash{$input}){ print "
2017-06-08 15:52:05
285
Construction of Adverbial-verb Collocation Database on Large-scale Corpus.pdf
2020-06-06
python 这个正则表达式咋写呀
2022-10-05
TA创建的收藏夹 TA关注的收藏夹
TA关注的人