Cy Kurtz wrote:
> Hi all. I have a little program here that generates a lottery play slip
> for the mega-millions game. It selects 50 of the 52 numbers exactly once
> over 10 tickets of 5 numbers each. It then selects 10 super ball
> numbers, one for each ticket. It then prints it all out(duh).
>
> I wonder if anyone would like to poke fun at my code. I'm kinda new at
> this so I'm sure there's a lot done wrong. For starters, the 'use
> strict;' and 'use warnings;' lines do not like my code at all(not sure
> why)
Then you should find uncomment them and find out why. One thing to bear in
mind--the Perl compiler, and the strict and warnings pragmas used by it, are
only software. They do not have the capacity for anthropomorphic sentiments,
such as liking or disliking.
I know that floods of warnings can be frustrating. What I do when my code
generates such a flood is to use a break [Ctl-C on Windows] to stop execution
right after the warnings start. Then I look at the first error or warning
message. learn what it means, and correct the situation causing it. Then I run
again. I may still have errors and warnings. So again, I look at and deal with
the first one:
while (my $first_message = shift @errors_or_warnings) {
learn_meaning($first_message);
correct_error($first_message);
run_or_compile_script();
}
I am sorry if this doesn't seem helpful. One thing you can do, if you are truly
at a loss trying to understand what is behind an error, is to post the error
message, the code surrounding the line inidcated in the message [with that line
marked], and any declarations or assignment statements affecting variables
involved in the indicated line, to this list. We then will have something solid
on which to base our suggestions.
It looks like James has gone the extra mile for you here, so I would suggest
that you read through his responses, and make sure that you understand the
issues that he is pointing out.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
