HI Bernard,
Quick and Dirty is one thing. Unreadable is another. Perl allows spaces to be used
freely. The programmer who ishes to keep track of what his or her code is doing will
use them.
use strict;
open (FONE, $ARGV[0]);
open (FTWO, $ARGV[1]);
open (FOUT, ">$ARGV[2]");
my @f1;
my @f2;
my $c = 0;
chomp (@f1 = <FONE>);
chomp (@f2 = <FTWO>);
close(FONE);
close(FTWO);
for($c = 0; $c < scalar(@f1); $c++) {
print(FOUT $f1[$c] . " " . $f2[$c] . "\n");
}
close(FOUT);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
