文件内插问题

DexterL

我要修改一个文件，这个文件内容是一长行（没有换行符），由固定长度的字符串组成（5万个左右）
比如：

1. 111AAA$$222BBB%%%333CCC&&&&

复制代码

我需要把这个文件的格式改为：

1. 111,AAA,$$
   
2. 222,BBB,%%%%
   
3. 333,CCC,&&&&

复制代码

我目前的思路是将文件先按段加上回车输出到新文件上
再用正则取出对应数据段
然后join加分隔符

请问我这种操作可否在源文件上直接修改？效率会比写入新文件高吗？

只是一个红薯

lz的数据没什么规律吗？

DexterL

只有每段固定长度的约束回复 2# 只是一个红薯


   

jiang870320

use strict;
use warnings;
my $str='111AAA$$222BBB%%%333CCC&&&&';
my @arr=split /(?=\d{3})/,$str;
foreach my $num (0..$#arr){
my $string=$arr[$num];
$string=~/(\d{3})(\w{3})(.*)/;
my $result=join(",","$1","$2","$3");
print "$result\n";
}

jiang870320

楼主，看一下我的行不行。回复 1# DexterL

[root@bogon perl]# vim test_split1.pl 
[root@bogon perl]# ./test_split1.pl   
111,AAA,$$
222,BBB,%%%
333,CCC,&&&&


code：
#!/usr/bin/perl
use strict;
use warnings;
my $str='111AAA$$222BBB%%%333CCC&&&&';
my @arr=split /(?=\d{3})/,$str;
foreach my $num (0..$#arr){
#print "$arr[$num]\n";
my $string=$arr[$num];
$string=~/(\d{3})(\w{3})(.*)/;
#print "$1\n";
#print "$2\n";
#print "$3\n";
my $result=join(",","$1","$2","$3");     
print "$result\n";
}

mcshell

回复 1# DexterL
我猜。。。。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my $count;
   
5. my @arr;
   
6. my $str = '111AAA$222BBB%%%333CCC&&&&';
   
7. while($str =~ /((.)\2+)(?{$count++;})/g){
   
8.     push @arr,$1;
   
9.         print join(",",@arr),"\n" and undef @arr if($count % 3 ==0);  
   
10. }

复制代码

rubyish

行不?

1. #!/usr/bin/perl
   
2. s/((.)\2+)((.)\4+)((.)\6+)/$1,$3,$5\n/g and print while <DATA>;
   
3. __DATA__
   
4. 111AAA$222BBB%%%333CCC&&&&

复制代码

只是一个红薯

试了下，ls几位输出都不对啊， jiang870320  的代码在给定数据可行，lz说的“只有每段固定长度的约束”，数据格式不确定

DexterL

回复 4# jiang870320

回复 6# mcshell

回复 7# rubyish

诸位的指导我都仔细看过了 得到不少启发 自叹基本功太差 日后一定要重读小羊驼书
我觉得是我提问的方式太笼统了 我在详细描述一遍我的需求吧
我有一行长数据，每个数据段的格式为：
8个数字6个数字40个任意字符（包含数字和空格）：
781010030004281哈哈567                                 78171001000105呵呵456                                 
我想要得到的结果是

1. 78101003，000567，1哈哈567                                 
   
2. 78171001，000456，呵呵456                                 
   

复制代码

我根据楼上朋友的提示写出了如下代码

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Copy;
   
5. 
   
6. open (DATA_FILE ,"testfile") or die "Cannot open data file:$!";
   
7. 
   
8. while (<DATA_FILE>){
   
9.        my @arr=split /(\d{14}.{40})/;
   
10.        foreach (@arr){
    
11.              my @tmp=unpack("A8A6A40",$_);   
    
12.              print join(",",@tmp),"\n";
    
13.        }   
    
14. }

复制代码

但是结果为：

1. ,,
   
2. 78101003,000567,1哈哈567                                 
   
3. ,,
   
4. 78171001,000456,呵呵456                                 
   
5. ,,

复制代码

中间的空项是怎么产生的呀。。？

DexterL

回复 8# 只是一个红薯

确实是我自己没说清楚 劳烦您再看一下我的回复