if che non funziona

[Francis87]

ciao

sto avendo dei problemi con un'istruzione if.
Il codice incriminato è questo:

if (@cn[$length-$k]!=substr($voc,-1,1)) {

e con un print di quei valori ottengo che il primo (@cn[$length-$k]) è una 'a' e l'ultimo (substr($voc,-1,1)) è 'z'.
dato ke non credo una A sia uguale ad una Z, come mai mi finisce SEMPRE nell'else??

[Kintaro]

Beh intanto se @cn[$length-$k] è un elemento dell'array e non l'array stesso dovrebbe essere scritto: $cn[$length-$k] poi se sono stringhe l'operatore da usare non è "!=" ma "ne".

Comicerei col provare a fare queste variazioni, in particolare il ne, poi se ancora non funge vediamo...

[Francis87]

grazie
va già meglio..
ma come fare x sovrascrivere il valore di un elemento dell'array?

[shishii]

$array[numero indice] = 'altro';

[Francis87]

così dovrebbe andare bene lo stesso?

$cn[$length-$k]=substr($xxx,$vn[$length-$k],1);

perchè quello che ottengo è un raddoppio dei valori.. un esempio semplificato può essere:
1 valore iniziale e al posto di 2 mette 12

[shishii]

fai la prova di stampare:

print $cn[$length-$k],"\n";
print substr($xxx,$vn[$length-$k],1),"\n";
if(...)...

in modo da capire i valori prima della modifica. In base al risultato vediamo.

[Francis87]

viene come avevo detto:

i valori sono A e B
ma invece che passare

AAA
AAB
AAC

mi fa
AAA
AAAAAB
AAAAABAAC

[shishii]

allora per farmi capire meglio prova:

print "cn: ",$cn[$length-$k]," k: $k len: $length\n";
print "sub: ",substr($xxx,$vn[$length-$k],1)," xxx: $xxx vn: ",$vn[$length-$k],"\n";
if(...)...

[Francis87]

stringa aaaa
cn: a k: 1 len: 4

sub: b xxx: abcde vn: 1
stringa aaaaaaab
cn: b k: 1 len: 4

sub: c xxx: abcde vn: 2
stringa aaaaaaabaaac
cn: c k: 1 len: 4

[shishii]

mahh...

direi che si tratta di qualcosa che accade all'esterno della riga indicata. Posta il blocco di codice in cui è inserita la riga indicata.