#!/usr/bin/perl
open(FILE1, "file1") or die "cannot open file 1\n";
open(FILE2, "file2") or die "cannot open file 2\n";
while ($n1 = <FILE1> and $n2 = <FILE2>)
{
chomp $n1;
chomp $n2;
$product = $n1 * $n2;
print "$product\n";
}
}
--
Rudy
-
: send the line "unsubscribe linux-admin" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
