How to combine files

[SNN]

Hi,

I have 4 files that I would like to combine side by side and the seperater is tab in these four files. I also would like to have the output file to be tab delimited. All 4 files have the same legnth.
I wrote the following script where I get an error message at the "k" loop. It does not understand "$#L$s" . what I would like is to print @L1 followed by @L2, @L3, and @L4 side by side with tab as a deliminator.

#!/usr/bin/perl _w
 
 
open(data1, "data1.txt") || die "Can not open the file\n";
open(data2, "data2.txt") || die "Can not open the file\n";
open(data3, "data3.txt") || die "Can not open the file\n";
open(data4, "data4.txt") || die "Can not open the file\n";
open(outdata, ">combine.txt") || die "Can not open the file\n";
 
 
@file1=<data1>;
@file2=<data2>;
@file3=<data3>;
@file4=<data4>;
 
 
for($i=0; $i<=$#file1; $i++){
 
 
## Printing the data ##
 
   $L1=$file1[$i]; 
   chomp $L1;
   @L1=split(/\t/, $L1);
 
    $L2=$file2[$i];
    chomp $L2;
    @L2=split(/\t/, $L2);
 
     $L3=$file3[$i];
     chomp $L3;
     @L3=split(/\t/, $L3);
 
      $L4=$file4[$i];
      chomp $L4;
      @L4=split(/\t/, $L4);
 
for ($s=1; $s<=4; $s++){
 
  for ($k=1; $k <= $#L$s ; $k++){
 
  print outdata "\t$L$s[$k]";
 
  } # end for k
}# end for s 
 
 
print outdata "\n";
 
} # end for i
 
close(data1);
close(data2);
close(data3);
close(data4);

[KevinADC]

Yea, this will not work:

$#L$s

L is the first character in the name of an array, like @L1, @L2, @L3, @L4. Perl will not interpret that as the name of an array: L$s, that is just the letter L followed by a number, it is not a pointer to the array @L1, @L2, @L3, @L4.

Is this school work ?

[ashrafi1348]

Hi Kevin,

Could you debug it and send it to us. your answer is not clear to me.

Thanks.

Hamid

[numberwhun]

Hi Kevin,

Could you debug it and send it to us. your answer is not clear to me.

Thanks.

Hamid

Define...."us"! Are you and the original poster working together on this? Kevin asked if this is school work and that question has not been answered as of yet.

It is against this sites policy to provide you with the answers to your school work, but we can guide you in the right direction.

Regards,

Jeff

[ashrafi1348]

Hi Jeff,

No it is not a school work. I am just learning Perl by myself because I needed for my new job. So it would be helpful if I can fix the bug of that script. I was diging into book whole day and I am just confused now.

Thanks for the help.

Hamid

Define...."us"! Are you and the original poster working together on this? Kevin asked if this is school work and that question has not been answered as of yet.

It is against this sites policy to provide you with the answers to your school work, but we can guide you in the right direction.

Regards,

Jeff

[ashrafi1348]

By Saying us I meant the whole pepole who have the same probelem.

Thanks

[KevinADC]

I can't really understand how you are trying to combine all the lines of the four files into one but maybe something like this will work (untested code):

#!/usr/bin/perl
use strict;
use warnings;
 
open(data1, "data1.txt") || die "Can not open the file\n";
open(data2, "data2.txt") || die "Can not open the file\n";
open(data3, "data3.txt") || die "Can not open the file\n";
open(data4, "data4.txt") || die "Can not open the file\n";
open(outdata, ">combine.txt") || die "Can not open the file\n";
 
while(<data1>){
    my @lines = ($_, scalar <data2> ,scalar <data3>, scalar <data4>);
    chomp (@lines)    
    print outdata @lines,"\n";
}    
close(data1);
close(data2);
close(data3);
close(data4);
close(outdata);
 

[hsn]

if it is c,c++, or java i would've helped you

good luck