请教一个替换文本文件中指定位置的值的perl的写法！

robinhappiness

请教一个perl的写法！谢谢！
将input.txt文件中的第2byte的值设定到第11byte，输出output.txt

处理对象文件内容
$cat input.txt
1F 123456 T qqqqq zzz              
2G 7测012 T qqqqq zzz
3V 1试456 T qqqqq zzz
4H 234567 T qqqqq zzz
90000000

想要的结果是
$cat output.txt
1F 123456 F qqqqq zzz            
2G 7测012 G qqqqq zzz
3V 1试456 V qqqqq zzz
4H 234567 H qqqqq zzz
90000000

sunzhiguolu

有几点不太明白, 还请楼主解释一下:
1.> 主机环境是什么? (Linux | Windows)
2.> 您的文本中汉字占用几个字节? (1 | 2 | 3 | 4)

robinhappiness

sunzhiguolu 发表于 2015-10-22 15:20
有几点不太明白, 还请楼主解释一下:
1.> 主机环境是什么? (Linux | Windows)
2.> 您的文本中汉字占用几个 ...

你好！
1.主机环境是Linux
2.文本中汉字占用两个字节

815138698

这样就可以搞定吧~~~

s/(.)(.)(........)(.)(.*)/$1$2$3$2$5/;

sunzhiguolu

回复 3# robinhappiness
确定汉字在文本中占用两个字节? 您测试过了吗? (编码方式是什么)
能否将测试的结果贴出来?

   

robinhappiness

sunzhiguolu 发表于 2015-10-22 15:38
回复 3# robinhappiness
确定汉字在文本中占用两个字节? 您测试过了吗? (编码方式是什么)
能否将测试的结 ...

测试了一下您的sed命令,请教一个问题。

处理对象文件内容
$cat target.txt
1F 123456 T qqqqq zzz              
2G 7测012 T qqqqq zzz
3V 1试456 T qqqqq zzz
4H 234567 T qqqqq zzz
90000000

实际执行结果
1F 123456 F qqqqq zzz              
2G 7测012 TG qqqqq zzz
3V 1试456 TV qqqqq zzz
4H 234567 H qqqqq zzz
90000000


想要的结果是
1F 123456 F qqqqq zzz            
2G 7测012 G qqqqq zzz
3V 1试456 V qqqqq zzz
4H 234567 H qqqqq zzz


----------------
我是这样实现的。
cut原文件的第2列，aaa.txt
然后再cut原文件的1到10列，bbb.txt
然后再cut原文件的12列以后，ccc.txt

然后取消aaa.txt bbb.txt 换行之后合并cat bbb.txt aaa.txt ccc.txt > output.txt

感觉这个办法有点儿饶，所以想请教有没有更好的办法。

sunzhiguolu

处理汉字的问题我也比较菜鸟, 恐怕让您失望了.
只有请高手替您解答这个问题了, 我也想知道如何完美解决这个问题的方法. 帮顶!

zhlong8

应为有 90000000 这种不需要替换的行，所以单纯的 substr 不行。

use bytes;  #他能保证匹配是按字节来的，无需考虑中文字符的问题。这里没必要加就是个保险
while (<>) {
    s/^(.(.) .{6} )./$1$2/; # 有两个空格，用来区分格式，避开 9000000 这样的行
    print $_;
}

MMMIX

回复 1# robinhappiness


    直接按域处理么，数什么字节。

#!/usr/bin/perl

use strict;
use warnings;

use v5.14;

while (<DATA>) {
  chomp;
  my @f = split;
  say and next unless @f > 1;

  $f[2] = (split //, $f[0])[1];
  say join " ", @f;
}

__DATA__
1F 123456 T qqqqq zzz
2G 7测012 T qqqqq zzz
3V 1试456 T qqqqq zzz
4H 234567 T qqqqq zzz
90000000

sunzhiguolu

回复 8# zhlong8
大神您好, 在 Linux 环境下如何确保中文字符按照 两 个字节进行处理.
测试环境:linux
测试文本:
1.> 编码方式: utf-8
2.> 使用桌面环境, 右键创建空文档的方式创建的测试文件 input.txt

本地语言环境:

1. LANG=zh_CN.UTF-8
   
2. LC_CTYPE="zh_CN.UTF-8"
   
3. LC_NUMERIC="zh_CN.UTF-8"
   
4. LC_TIME="zh_CN.UTF-8"
   
5. LC_COLLATE="zh_CN.UTF-8"
   
6. LC_MONETARY="zh_CN.UTF-8"
   
7. LC_MESSAGES="zh_CN.UTF-8"
   
8. LC_PAPER="zh_CN.UTF-8"
   
9. LC_NAME="zh_CN.UTF-8"
   
10. LC_ADDRESS="zh_CN.UTF-8"
    
11. LC_TELEPHONE="zh_CN.UTF-8"
    
12. LC_MEASUREMENT="zh_CN.UTF-8"
    
13. LC_IDENTIFICATION="zh_CN.UTF-8"
    
14. LC_ALL=
    

复制代码

测试代码如下: (只抓取前 10 个字符)

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use bytes;
   
5. 
   
6. while (<>){
   
7.    if (m{(.{10})}){
   
8.        my $leng = length ($1);
   
9.        printf "Length = %d, |%s|\n", $leng, $1;
   
10.        my @a_10c = split //, $1;
    
11.        foreach (@a_10c){
    
12.           printf "<%s>=%d ", $_, length ($_);
    
13.        }
    
14.        print "\n";
    
15.     }
    
16. }
    

复制代码

输出结果如下:

1. 
   
2. Length = 10, |1F 123456 |
   
3. <1>=1 <F>=1 < >=1 <1>=1 <2>=1 <3>=1 <4>=1 <5>=1 <6>=1 < >=1
   
4. Length = 10, |2G 7测012|
   
5. <2>=1 <G>=1 < >=1 <7>=1 <?>=1 <?>=1 <?>=1 <0>=1 <1>=1 <2>=1
   
6. Length = 10, |3V 1试456|
   
7. <3>=1 <V>=1 < >=1 <1>=1 <?>=1 <?>=1 <?>=1 <4>=1 <5>=1 <6>=1
   
8. Length = 10, |4H 234567 |
   
9. <4>=1 <H>=1 < >=1 <2>=1 <3>=1 <4>=1 <5>=1 <6>=1 <7>=1 < >=1
   

复制代码

输出结果中连续的 3 个 ? (问号字符) 表示一个汉字字符, 每个汉字部分占用 3 个字节长度.