523066680

是不是这种结果？

be
n.
1.a light strong brittle grey toxic bivalent metallic element
v.
1.have the quality of being; (copula, used with an adjective or a predicate noun)
2.be identical to; be someone or something
3.occupy a certain position or area; be somewhere
4.have an existence, be extant
5.happen, occur, take place
6.be identical or equivalent to
7.form or compose
8.work in a specific place, with a specific subject, or in a specific function
9.represent, as of a character on stage
10.spend or use time
11.have life, be alive
12.to remain unmolested, undisturbed, or uninterrupted -- used only in infinitive form
13.be priced at

都这个当老师了还这么小肚鸡肠，胸襟大一点好不好？别人说你几句能不能别太当回事？

523066680

• open $SRC,"<:raw", "be.txt" or die "$!";
  
• open $DST,">:raw", "dst.txt";
  
• 
  
• my $n = 0;
  
• my $begin = 0;
  
• 
  
• for my $e (<$SRC>)
  
• {
  
•     $n++ if ($begin == 1);
  
• 
  
•     if ($e=~/\w+\./)
  
•     {
  
•         $begin = 1;
  
•         $n = 0;
  
•     }
  
• 
  
•     if ($n > 0)
  
•     {
  
•         print $DST "${n}.";
  
•     }
  
• 
  
•     print $DST $e;
  
• }
  
• 
  
• close $SRC;
  
• close $DST;
  

Perl，
应该有人一两行命令可以解决。

523066680

回复 14# happy886rr


    他应该还是在折腾单词翻译的事情，词汇解释下分不同类型 v.  n. vt. ...  动词 名词
不同类型下有不同解释/造句/例子，给这些条目编号。

523066680

学而不思则罔，思而不学则"die"

英文:die,  通"殆"

523066680

大致匹配就行了
从样本可见，一般这种“词类”的缩写都是独占一行
可以像这样限定

/^\w+\.\r?$/
复制代码

再严格一点的，它们应该都是小写

/^[a-z]+\.\r?$/
复制代码