請教一個替換文本文件中指定位置的值的perl的寫法！

robinhappiness

請教一個perl的寫法！謝謝！
將input.txt文件中的第2byte的值設定到第11byte，輸出output.txt

處理對象文件內(nèi)容
$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.> 主機環(huán)境是什么? (Linux | Windows)
2.> 您的文本中漢字占用幾個字節(jié)? (1 | 2 | 3 | 4)

robinhappiness

sunzhiguolu 發(fā)表于 2015-10-22 15:20
有幾點不太明白, 還請樓主解釋一下:
1.> 主機環(huán)境是什么? (Linux | Windows)
2.> 您的文本中漢字占用幾個 ...

你好！
1.主機環(huán)境是Linux
2.文本中漢字占用兩個字節(jié)

815138698

這樣就可以搞定吧~~~

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

sunzhiguolu

回復 3# robinhappiness
確定漢字在文本中占用兩個字節(jié)? 您測試過了嗎? (編碼方式是什么)
能否將測試的結果貼出來?

   

robinhappiness

sunzhiguolu 發(fā)表于 2015-10-22 15:38
回復 3# robinhappiness
確定漢字在文本中占用兩個字節(jié)? 您測試過了嗎? (編碼方式是什么)
能否將測試的結 ...

測試了一下您的sed命令,請教一個問題。

處理對象文件內(nèi)容
$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

實際執(zhí)行結果
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


----------------
我是這樣實現(xiàn)的。
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;  #他能保證匹配是按字節(jié)來的，無需考慮中文字符的問題。這里沒必要加就是個保險
while (<>) {
    s/^(.(.) .{6} )./$1$2/; # 有兩個空格，用來區(qū)分格式，避開 9000000 這樣的行
    print $_;
}

MMMIX

回復 1# robinhappiness


    直接按域處理么，數(shù)什么字節(jié)。

#!/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 環(huán)境下如何確保中文字符按照 兩 個字節(jié)進行處理.
測試環(huán)境:linux
測試文本:
1.> 編碼方式: utf-8
2.> 使用桌面環(huán)境, 右鍵創(chuàng)建空文檔的方式創(chuàng)建的測試文件 input.txt

本地語言環(huán)境:

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
   

復制代碼

輸出結果中連續(xù)的 3 個 ? (問號字符) 表示一個漢字字符, 每個漢字部分占用 3 個字節(jié)長度.