From mboxrd@z Thu Jan  1 00:00:00 1970
From: "A. R. Vener" <salt@aero-vision.com>
Subject: Re: Stupid programming question
Date: Wed, 19 May 2004 12:45:38 -0400
Sender: linux-admin-owner@vger.kernel.org
Message-ID: <20040519124538.B15801@cougar.aero-vision.com>
References: <A91AB3D20F6C4C4A96BBBF79212823431179A2@misout7msgusr05.itservices.sbc.com>
Mime-Version: 1.0
Return-path: <linux-admin-owner@vger.kernel.org>
Content-Disposition: inline
In-Reply-To: <A91AB3D20F6C4C4A96BBBF79212823431179A2@misout7msgusr05.itservices.sbc.com>; from jj2195@sbc.com on Wed, May 19, 2004 at 01:22:04PM -0400
List-Id: <linux-admin.vger.kernel.org>
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
To: linux-admin@vger.kernel.org

#!/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