#!/usr/bin/perl
#Texte fichier1, heures fichier 2
my $fichier1 = $ARGV[0]; my $fichier2 = $ARGV[1];
my $num=1; my $date1; my $blabla1;
open ($F,"<",$fichier1);
while (my $in=<$F>){chop($in);
	if ($in=~m/^\d+$/){$num=$in;next;};
	if ($in=~m/\d --> \d/){$date1[$num]=$in; $blabla1[$num]="";next;};
	if ($blabla1[$num]){$blabla1[$num]=$blabla1[$num]."\n".$in;} else {$blabla1[$num]=$in;};
	};
close($F);
$num=1; my $date2; my $blabla2;
open ($F,"<",$fichier2);
while (my $in=<$F>){chop($in);
	if ($in=~m/^\d+$/){$num=$in;next;};
	if ($in=~m/\d --> \d/){$date2[$num]=$in; $blabla2[$num]="";next;};
	if ($blabla2[$num]){$blabla2[$num]=$blabla2[$num]."\n".$in;} else {$blabla2[$num]=$in;};
	};
close($F);
for my $i (1..$num) {print("$i\n$date2[$i]\n$blabla1[$i]\n");};