Adding one and incrementing are different. You're adding 1. Did you try
incrementing the character?
Instead of this:
$code[$y]=$code[$y]+1;
try
($code[$y])++;
<code>
#!/usr/bin/perl
@code = qw( A B C D );
$y = 0;
if( $code[$y] ne "F" ){
print "$code[$y]\n";
($code[$y])++;
print "$code[$y]\n";
}
</code>
prints A then B...
-----Original Message-----
From: Allison Ogle [mailto:[EMAIL PROTECTED]]
Sent: Thursday, April 18, 2002 10:58 AM
To: a a
Subject: Incrementing the letters in an array
Maybe it is because I am assigning my array to a line from another document
and not assigning letters dirtectly to the array because it still doesn't
work. It could be there is something wrong with my code too.
$word=<DATA>; #where <DATA> is the filehandle and therefore $word gets the
string from the inputfile. Something like ABCD for example
chomp $word;
@code = split //,$word; #this assigns thestring to the array @code. The
values stored in @code are now A B C D
$y=0;
if($code[$y] ne "F"){
print "$code[$y]\n";
$code[$y]=$code[$y]+1;
print "$code[$y]\n";}
This prints A and then 1. I can't figure out why. Is there something wrong
with my coding? Thanks for the help so far.
Allison
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
