Question

perl实现文本标注

perl实现文本标注a.txt中放着一句话“我爱你”
b.txt 中放着替换规则
c.txt是通过b.txt规则将a.txt转换之后得到的
请教哪个大神帮帮忙用perl

Answer 1

use Encode;
my $a = << 'ATXT';
我爱你
ATXT
 
my $b = << 'BTXT';
我 1
你 2
爱 3
BTXT
$a=decode("gb2312",$a);
$b=decode("gb2312",$b);
my @a = split(//,$a);
my @b = split(/\n/,$b);
foreach $c (@a){
 @d = @b;
 @e = grep{s/^$c\s+(\d+)/$1/e}@d;
 if($#e >= 0){
  push(@c,$e[0]);
 }
 
}
$cc = join('',@c);
chomp $a;
open CCC,"> d:/c.txt";
print CCC encode("gb2312",$a); 
print CCC "  $cc\n"; 
close CCC; 
 print encode("gb2312",$a);
 print "  $cc\n";

结果 我爱你  132

Answer 2

perl提取特定文本行的下一行，参考代码如下： while(<FILE>){ if(m/^step2$/){ chomp($data = <FILE>); } }

追问

没懂 您能具体的说一下吗

Answer 3

这个可不可以换个语言了，PERL处理多字节很麻烦的。

追问

python也行