[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 523066680 于 2016-9-2 20:59 编辑

没有缩进,差评!

也写了一个
  • open $RA, "<:raw", "jd.txt";
  • open $RB, "<:raw", "stem.txt";
  • open $WRT, ">:raw", "out_jd.txt";

  • my $line;
  • my %hash;
  • while ($line = <$RB>)
  • {
  •     $line =~ /(.*?)\s+(\w+)/;
  •     $hash{$1} = $2;
  • }

  • while ($line = <$RA>)
  • {
  •     $line =~ s/\r?\n$//;
  •     $line =~ /^(.*?)\s+/;
  •     print $WRT $line;
  •     print $WRT "\t".$hash{$1} if (exists $hash{$1});
  •     print $WRT "\r\n";
  • }

  • close $RA;
  • close $RB;
  • close $WRT;

TOP

本帖最后由 523066680 于 2016-9-2 21:04 编辑

回复 18# 949825667@qq.co


    你的输出结果不对,后面的信息没追加成功。
例如
  1. 挻 dmiy dy
复制代码

TOP

返回列表