文件讀取

jason680

data1：
name        a        b        c
aa        3099.577        7130.509        4137.123
ab        17707.86        19294.97        19370.71
ac        6548.954        10295 ...
lengxue1982 發(fā)表于 2011-07-05 14:37

# cat data1_2.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sFile1= "data1";
   
6. my $sFile2= "data2";
   
7. 
   
8. my @aMultiple;
   
9. open(FH2, $sFile2) or die "can't open $sFile2!!!\n";
   
10. while(<FH2>){
    
11.   chomp;
    
12.   push @aMultiple, $_;
    
13. }
    
14. 
    
15. open(FHdata, $sFile1) or die "can't open $sFile1!!!\n";
    
16. print scalar <FHdata>;
    
17. while(<FHdata>){
    
18.   my @aData = split;
    
19.   print shift @aData;
    
20.   foreach(@aMultiple){
    
21.     print "\t" . $_ * shift(@aData);
    
22.   }
    
23.   print "\n";
    
24. }
    

復(fù)制代碼

yinyuemi

寫(xiě)的很爛：

1. #!/bin/perl
   
2. use strict;
   
3. 
   
4. 
   
5. open(FH1,"data1")||die "Can not open:$!";
   
6. open(FH2,"data2")||die "Can not open:$!";
   
7. 
   
8. my %c;
   
9. my @s;
   
10. my $ss;
    
11. my $p;
    
12. 
    
13. 
    
14. while (<FH2>){
    
15.         chomp;
    
16.         $c{++$p}=$_;
    
17. }
    
18. 
    
19. while (<FH1>){
    
20.         chomp;
    
21.         if($.>1) {
    
22.                 @s=(split /\s+/);
    
23.                 $ss=join "\t",$s[0],map {$s[$_]*$c{$_}} 1..$#s;;
    
24.                 print $ss,"\n";
    
25.         }
    
26.         print $_,"\n" if($.==1);
    
27. }

復(fù)制代碼

lengxue1982

用 Text::CSV 或 Text::CSV::Slurp 讀文件然后用循環(huán)什么的處理，每條數(shù)據(jù)都是個(gè) hash 很方便


我看了下那個(gè)模塊，好像主要用于格式轉(zhuǎn)化啊

lengxue1982

用 Text::CSV 或 Text::CSV::Slurp 讀文件然后用循環(huán)什么的處理，每條數(shù)據(jù)都是個(gè) hash 很方便


我看了下那個(gè)模塊，好像主要用于格式轉(zhuǎn)化啊

lengxue1982

#!/usr/bin/perl -w
my $sig;
my @newsig;
open ORISINAL, "signal";
while (<ORISINAL>){
        $sig=<ORISINAL>
};
push (@newsig, $sig);
print $newsig;




報(bào)錯(cuò)信息：[img][/img]

lengxue1982

可以看見(jiàn)附件么。附件中是我報(bào)錯(cuò)的截圖

zhlong8

#!/usr/bin/perl -w
my $sig;
my @newsig;
open ORISINAL, "signal";
while (){
        $sig=
};
push (@n ...
lengxue1982 發(fā)表于 2011-07-05 15:48

    每次<> 都會(huì)讀一行，想想。最后一行 while 那里已經(jīng) eof 了再讀就是那個(gè)錯(cuò)誤，你這里剛好有奇數(shù)行要不你都不知道怎么錯(cuò)的。還有 $newsig 哪里來(lái)的

1. while (<ORISINAL>){
   
2.         $sig=<ORISINAL>
   
3. };

復(fù)制代碼

lengxue1982

哦，是這樣啊