if (defined $aircraft_id_1){
  open(INFILE_2,"<${file_2}") or die "Can't open ${file_2} : $!";
  while (my $line_2 = <INFILE_2>){
    chomp($line_2);
    my @Elements_2 = split(/;/, $line_2);
    my $aircraft_id_2 = shift @Elements_2;
    if ($aircraft_id_1 eq $aircraft_id_2){
      print OUTFILE join(';',@Elements_2), "\n";
    }
  }
  close INFILE_2;
} else { print OUTFILE (";" x (40-$meter)), "\n" }
[download]

my %file1_row_for;
while (my $input = <THAT_FILE>){
    # only grab column 2
    my ( undef, $id ) = split /;/, $input;
    my $file1_row_for{$id} = $input;
}
[download]

while ( my $input = <THAT_OTHER_FILE> ){
    my ( $id2 ) = split /;/, $input;
    print OUTFILE $input
    print OUTFILE ';' . $file1_row_for{$id2} if defined $file1_row_for
+{$id2}
    print OUTFILE "\n";
}
[download]

perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'
[download]

Dear agianni,

Thanks a lot for your reply

Concerning your latest remark, in cases of several matches, I intend to write the other matches next to the first match, on the same line

If that's the case, you'll need to make the hash storing the contents of the first file a hash of arrays (or, rather, a hash of arrayrefs) rather than a simple hash, so you can store each line that matches the id:

my %file1_row_for;
while (my $input = <THAT_FILE>){
    # only grab column 2
    my ( undef, $id ) = split /;/, $input;
    # add this line to the array of data for this key
    push @{ $file1_row_for{$id} } = $input;
}
[download]

Then when you want to output it at the end of the line you can:

print join ';', @{ $file_row_for{$id} } if scalar @{ $file_row_for{$id
+} };
[download]

Note that you'll just want to check for the length of the arrayref rather than definedness as in my original code.

perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'
[download]

Thanks a lot dogz007

I have understood what you explained and I think your code is very good Thanks

However, I have a problem

the result of the code with the files posted in the beginning is this

Slot_time;Aircraft_Id;EOBT;ETOT;CTOT;ATOT;ETO;CTO;ATO;Last_DLA;EOBT_DL
+A;Anticip_DLA_min;Flag_EOBT_DLA;Last_FPL;EOBT_FPL;Anticip_FPL_min;Fla
+g_EOBT_FPL;ETOT_First;Delta_ETOTs_min;ATFM_Delay;;;;;;;;
08:40:00;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:40:58;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:41:56;BMA2CW;08:00;08:20;08:33;08:33;08:31;;08:41;07:52:00;08:00;-8
+;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:42:55;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:43:53;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:44:51;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:45:50;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:46:48;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:47:46;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:48:45;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:49:43;DAL11;08:10;08:30;08:30;08:39;08:47;08:47;08:50;;;;;05:03:00;
+08:10;-187;;08:30;0;0;;;;;;;;
DAL12;DAL;B772;KATL;EGKK;22:05;1325;05:39;339
08:50:41;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:51:40;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:52:38;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;
08:53:36;ACA879;07:30;07:42;07:42;07:52;08:51;08:51;08:53;;;;;05:06:00
+;07:30;-144;;07:42;0;0;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[download]

I cannot understand why the data added are not on the same line as the data of the first file

DAL12 should have been on the same line as DAL11 and I cannot understand because there is chomp in the code

Well, I am going to make a post on this particular point

Thanks a lot for your explanations

So I wrote my own generalized command-line tool to do this, and have been adding features every now and then. It's posted here: cmpcol (and I've just updated that node to include stuff I've added to the script since the original posting).

Given your two data files (call them t1 and t2), I can generate the output you specified with this command line:

cmpcol -i -lb -d \; t1:2 t2
[download]

• "-i" means "output the intersection"
• "-lb" means "list full contents of matching lines from both files" (concatenate with no separator string)
• "-d \;" means the input field delimiter is semi-colon (have to use "\;" so the shell won't interpret ";" as a command separator)
• "t1:2" means "match on the second field of file t1"
• "t2" implies "match on the first field of file t2"

I haven't looked through your code so I don't know if it completely solves your problem, especially with the requirements of adding airplanes with the same id onto the same line. join - join two files according to a common key is based on the idea of loading one file completely into memory and using a hash to find the corresponding airplane id.

Thanks starX for your quick reply

My output would be:

If the aircraft_identity of the first file (2nd column )correspond to an aircraft_identity of the second file (first column), I would like to have this :

08:49:43;DAL11;08:10;08:30;08:30;08:39;08:47;08:47;08:50;;;;;05:03:00;
+08:10;-187;;08:30;0;0;;;;;;;;DAL11;DAL12;DAL;B772;KATL;EGKK;22:05;132
+5;05:39;339
[download]

But if there's no correspondance, then write only the lines of the first file

I've toyed around with this a little bit and propose using the following format (starting around line 66 in your code)

 if ($aircraft_id_1 eq $aircraft_id_2){
    #print "$aircraft_id_1 eq $aircraft_id_2\n";
    print OUTFILE "$line_1;$line_2\n";
      }

      else { print OUTFILE "$line_1\n"; }
[download]

and removing the earlier (line 45ish) print statement that only prints the line from the first file. This way you're figuring out all in one place whether or not you are printing just one line or several.

As best as I can tell your matching logic is fine. Or am I missing something?