On Thursday 26 July 2001 02:30, you wrote:
First, do use strict and make the changes necessary to satisfy it. It's a
good habit to get into and would be a good learning experience to work it
into this code. This is not so much code that it would take all that long.
> open (ADDSRC, "data.csv"
> -Original Message-
> From: Michael Carmody [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, July 26, 2001 2:30 AM
> To: [EMAIL PROTECTED]
> Subject: Tear me to shreds please...
> ...
Regarding this section of the code:
> $c = ($data[4][$i] =~ s/\//\//g);
> if ($c eq "")
First, this is a beginners list, so there will be no tearing to shreds.
Secondly:
The Great Truth of Perl: "There is always more than one way to do it" .
suggestion:
replace this:$j = scalar(@array);
$j--;
for $d (0 .. $j)
with this:
