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

zhlong8

回复 10# sunzhiguolu


    你最好按9楼写的那样换种思路，utf8 中文常用字都是3个字节的，但是后来陆续添加了不少生僻字长度就没法保证了。你还要把他们转换成两字节的，明显误入歧途了

sunzhiguolu

回复 11# zhlong8
谢谢您的提醒, 在 Windows 环境的确是按照每个汉字占用 2 字节进行处理的. 非常感谢您的帮助, 谢谢...

   

robinhappiness

非常感谢各位高人的回复！

我之前做的测试数据比较规范，实际上要处理的对象文件里面包含有全角和半角的空格、汉字、数字、符号等都有，
而且每个字段的划分也没规律，打个比方我要把第2byte的数值插入到第25byte的位置（zz0和yyy之间），
第1和第2byte位置的值肯定只占一个字节，还有第25byte的位置肯定为只站一个字节的半角空格。
字段的布局没有规律！

想要做的事情就是把文件中的第2byte位置的列值（只占1个字节的字母）
赋值到文件中第25byte空格（只占一个字节的半角空格）的位置。

对象文件
$cat input.txt
1000000
1F 123456 ー  qqq　q zz0 yyy  
2G 7测012 --  q　qq  zz0 yyy
3V 1试456     qq  qq zz0 yyy
4H 234567   　qqq  q zz0 yyy
09000000

想要的输出结果
$cat output.txt
1000000
1F 123456 ー  qqq　q zz0Fyyy  
2G 7测012 --  q　qq  zz0Gyyy
3V 1试456     qq  qq zz0Vyyy
4H 234567   　qqq  q zz0Hyyy
09000000

sunzhiguolu

回复 9# MMMIX

#!/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

请问大神, and 在 say 函数和 next unless @f > 1 语句块之间起到一个什么作用? (不知道划分的是否正确?)


   

MMMIX

回复 14# sunzhiguolu


    say and next unless @f > 1;

等价于

   if (@f > 1) {
       say;
       next;
   }

第二种写法更好。

MMMIX

回复 13# robinhappiness


    这个就更简单了，用 split + join 就可以了：

while (<DATA>) {
  my @f = split //;
  $f[24] = $f[1] if @f > 24;
  print join '', @f;
}

sunzhiguolu

回复 15# MMMIX

say and next unless @f > 1;

大神, 您这句不是针对 90000...行 写的判断条件吗?
如果上面的这个语句与您下面的这句等价, 那么最后一行不就多余了吗?
if (@f > 1){
   say;
   next;
}
   

MMMIX

回复 17# sunzhiguolu


    把我改写的替换进去，然后再按你的理解把觉得多余的语句删除看看效果。

robinhappiness

MMMIX 发表于 2015-10-23 20:49
回复 13# robinhappiness

我上传一个input文件和一个output文件图片来说明一下。
文件内容中,每条记录的长度都占50byte,在每行的第51byte位置开始换行。
除了第一行和最后一行之外的第2byte位置的值需要设定到第25byte位置。
处理前后的文件大小不能够有差异。文件中含有半角，全角的字符，数字，空格等。

input.txt：

1sadw2we21                                       
1F 123456  ー-  qqq　 00      00000000            
2G 7漢012 - 　-  qq　 00      00000000            
3V 1字456   ／  q　q  00      00000000            
4H 234567 １ ２ ３  q 00      00000000            
0900000000                                       


output.txt：

1sadw2we21                                       
1F 123456  ー-  qqq　 00F     00000000            
2G 7漢012 - 　-  qq　 00G     00000000            
3V 1字456   ／  q　q  00V     00000000            
4H 234567 １ ２ ３  q 00H     00000000            
0900000000                                       

xie3ks

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. while(<DATA>)
   
6. {
   
7.     my @bytes_value=split //;
   
8. 
   
9.     $bytes_value[10]=$bytes_value[1] if defined $bytes_value[10];
   
10.     print join "",@bytes_value;
    
11. }
    
12. 
    
13. __DATA__
    
14. 1F 123456  T qqqqq zzz              
    
15. 2G 7测012 T qqqqq zzz
    
16. 3V 1试456 T qqqqq zzz
    
17. 4H 234567 T qqqqq zzz
    
18. 90000000

复制代码