Comment puis-je fusionner deux fichiers?

 awk 'FNR==NR{a[$0];next}{ for(i in a) print i,$0 }' OFS="," file file1 

Et une fonction bash:

 function cross() { exec 3<$2 while read -u 3 a ; do exec 4<$1 while read -u 4 b ; do echo $b,$a done done 3<&- 4<&- } 

Je vais utiliser un script perl pour cela.

 #!/usr/bin/perl use ssortingct; my @file1 = loadf("file1.txt"); my @file2 = loadf("file2.txt"); foreach my $line2 (@file2) { $line2 =~ s/^\s+//; $line2 =~ s/\s+$//; for (my $i = 0; $i < @file1; $i++) { $file1[$i] =~ s/^\s+//; $file1[$i] =~ s/\s+$//; #do the output print $file1[$i] . "," . $line2 . "\n"; } } sub loadf($) { my @file = ( ); open(FILE, $_[0] . "\n") or die("[-] Couldn't Open " . $_[0] . "\n"); @file = ; close(FILE); return @file; } 

 cat file1 | (exec 3< file2; while read A && read B <&3; do echo "$A,$B"; done)