請(qǐng)教一個(gè)替換文本文件中指定位置的值的perl的寫(xiě)法！

zhlong8

回復(fù) 10# sunzhiguolu


    你最好按9樓寫(xiě)的那樣換種思路，utf8 中文常用字都是3個(gè)字節(jié)的，但是后來(lái)陸續(xù)添加了不少生僻字長(zhǎng)度就沒(méi)法保證了。你還要把他們轉(zhuǎn)換成兩字節(jié)的，明顯誤入歧途了

sunzhiguolu

回復(fù) 11# zhlong8
謝謝您的提醒, 在 Windows 環(huán)境的確是按照每個(gè)漢字占用 2 字節(jié)進(jìn)行處理的. 非常感謝您的幫助, 謝謝...

   

robinhappiness

非常感謝各位高人的回復(fù)！

我之前做的測(cè)試數(shù)據(jù)比較規(guī)范，實(shí)際上要處理的對(duì)象文件里面包含有全角和半角的空格、漢字、數(shù)字、符號(hào)等都有，
而且每個(gè)字段的劃分也沒(méi)規(guī)律，打個(gè)比方我要把第2byte的數(shù)值插入到第25byte的位置（zz0和yyy之間），
第1和第2byte位置的值肯定只占一個(gè)字節(jié)，還有第25byte的位置肯定為只站一個(gè)字節(jié)的半角空格。
字段的布局沒(méi)有規(guī)律！

想要做的事情就是把文件中的第2byte位置的列值（只占1個(gè)字節(jié)的字母）
賦值到文件中第25byte空格（只占一個(gè)字節(jié)的半角空格）的位置。

對(duì)象文件
$cat input.txt
1000000
1F 123456 ー  qqq　q zz0 yyy  
2G 7測(cè)012 --  q　qq  zz0 yyy
3V 1試456     qq  qq zz0 yyy
4H 234567   　qqq  q zz0 yyy
09000000

想要的輸出結(jié)果
$cat output.txt
1000000
1F 123456 ー  qqq　q zz0Fyyy  
2G 7測(cè)012 --  q　qq  zz0Gyyy
3V 1試456     qq  qq zz0Vyyy
4H 234567   　qqq  q zz0Hyyy
09000000

sunzhiguolu

回復(fù) 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測(cè)012 T qqqqq zzz
3V 1試456 T qqqqq zzz
4H 234567 T qqqqq zzz
90000000

請(qǐng)問(wèn)大神, and 在 say 函數(shù)和 next unless @f > 1 語(yǔ)句塊之間起到一個(gè)什么作用? (不知道劃分的是否正確?)


   

MMMIX

回復(fù) 14# sunzhiguolu


    say and next unless @f > 1;

等價(jià)于

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

第二種寫(xiě)法更好。

MMMIX

回復(fù) 13# robinhappiness


    這個(gè)就更簡(jiǎn)單了，用 split + join 就可以了：

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

sunzhiguolu

回復(fù) 15# MMMIX

say and next unless @f > 1;

大神, 您這句不是針對(duì) 90000...行 寫(xiě)的判斷條件嗎?
如果上面的這個(gè)語(yǔ)句與您下面的這句等價(jià), 那么最后一行不就多余了嗎?
if (@f > 1){
   say;
   next;
}
   

MMMIX

回復(fù) 17# sunzhiguolu


    把我改寫(xiě)的替換進(jìn)去，然后再按你的理解把覺(jué)得多余的語(yǔ)句刪除看看效果。

robinhappiness

MMMIX 發(fā)表于 2015-10-23 20:49
回復(fù) 13# robinhappiness

我上傳一個(gè)input文件和一個(gè)output文件圖片來(lái)說(shuō)明一下。
文件內(nèi)容中,每條記錄的長(zhǎng)度都占50byte,在每行的第51byte位置開(kāi)始換行。
除了第一行和最后一行之外的第2byte位置的值需要設(shè)定到第25byte位置。
處理前后的文件大小不能夠有差異。文件中含有半角，全角的字符，數(shù)字，空格等。

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測(cè)012 T qqqqq zzz
    
16. 3V 1試456 T qqqqq zzz
    
17. 4H 234567 T qqqqq zzz
    
18. 90000000

復(fù)制代碼