Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Code won't proceed after input.

by toolic (Chancellor)
on Jan 23, 2013 at 15:51 UTC ( #1014936=note: print w/ replies, xml ) Need Help??


in reply to Code won't proceed after input.

Your while loop is an infinite loop because you never increment the $counter variable inside the loop.

See also Basic debugging checklist

UPDATE:

I would appreciate ALL the help you have.
You can use qw to cut down on some typing:
my @AAMatrix = qw( A C D E F G H I K L M N P Q R S T V W Y );

You can use map and Range Operators to cut down on some more typing:

my @AAOcc = map { 0 } 1 .. 20;


Comment on Re: Code won't proceed after input.
Select or Download Code
Re^2: Code won't proceed after input.
by Athanasius (Monsignor) on Jan 23, 2013 at 16:06 UTC

      Or better yet IMHO:

      >perl -wMstrict -le "my @AAMatrix = qw( A C D E F G H I K L M N P Q R S T V W Y ); ;; my @AAOcc = (0) x @AAMatrix; print qq{@AAOcc}; " 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
        I ran out of votes before getting to your comment, but I definitely approve as it solves a common mistake where manual sizing of multiple arrays is involved
        A Monk aims to give answers to those who have none, and to learn from those who know more.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014936]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (7)
As of 2014-08-22 23:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (168 votes), past polls