|
Revision 42, 386 bytes
(checked in by pernet, 1 year ago)
|
|
Introduce the benchmark directory, by Pascal Giorgi.
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | $fichier1 = $ARGV[0]; |
|---|
| 4 | $fichier2 = $ARGV[1]; |
|---|
| 5 | open(FIC1, $fichier1) or die "Impossible d'ouvrir $fichier...\n"; |
|---|
| 6 | open(FIC2, $fichier2) or die "Impossible d'ouvrir $fichier...\n"; |
|---|
| 7 | |
|---|
| 8 | while(($l1 = <FIC1>) && ($l2 = <FIC2>)) { |
|---|
| 9 | @t1 = split(/\s+/, $l1); $v1 = $t1[5]; $v0 = $t1[1]; |
|---|
| 10 | @t2 = split(/\s+/, $l2); $v2 = $t2[5]; |
|---|
| 11 | print "$v0 $v1 $v2\n"; |
|---|
| 12 | } |
|---|
| 13 | |
|---|
| 14 | close(FIC1); |
|---|
| 15 | close(FIC2); |
|---|
