求助~关于数组的问题

驴小兔

有一个这样的文件

我想把其中的数据提取出来形成只有两列的文件，第一列是序号，第二列是数据，像这样

但是我这样编程为什么不对呢

b114213903

我觉得应该是文件句柄打开有问题

zhlong8

你的代码思路混乱把数据切了又和和了又切炒菜呢

把怎么处理一步一步想清楚了再开始写代码，顺便再熟悉下小骆驼。你这 select、 对 @_ 赋值、bareword句柄都是领先世界-20年的用法

1. use strict;
   
2. use warnings;
   
3. 
   
4. open my $cg, '<', 'G:/CG_rate.txt';
   
5. open my $gcrate, '>>', 'G:/GCrate.txt';
   
6. 
   
7. my $index = 0;
   
8. 
   
9. while (<$cg>) {
   
10.     chomp $_;
    
11.     if ($_ =~ /^\d/) {
    
12.         for my $rate (split /\t/, $_) {
    
13.             print $gcrate "$index\t$rate\n";
    
14.             $index ++;
    
15.         }
    
16.     }
    
17. }

复制代码

驴小兔

回复 3# zhlong8

但是形成的是这样的

我想输出的是没一行只有一个序号和一个数据的那样，请问怎么做呢？

   

wand65

回复 4# 驴小兔

1. while (<DATA>) {
   
2.     chomp $_;
   
3.     if ($_ =~ /^\d/) {
   
4.     my @rate=split (/ /, $_) ;
   
5.             print  "$index\t$rate[0]\n";
   
6.             $index ++;
   
7.         }
   
8.     }

复制代码