At 13:24 06.07.2001 -0400, Aaron Petry wrote:
Oops.
>>>chomp(@f1fname = <STDIN>);
>>
>>I would do this:
>>my $line = <STDIN>;
>>chomp $line;
>>@f1fname = split(/,/, $line);
>>
>>and then some error checking:
>>
>>print "Field counts do not match!\n" if(scalar(@f1fname) != $f1fnum);
>
>Actually, if I had been thinking in these terms, it would be easier to
>make Perl count how many fields they entered, rather than having them
>count it. So...
>scalar(@f1fname)=$f1fnum;
>might be better...
Do you mean
$f1fnum = scalar(@f1fname);
?
Aaron Craig
Programming
iSoftitler.com
