Sziasztok,
A gondom a következő:
Adott egy ANSI C függvény, ami stringekkel buherál. Egész pontosan ascii kódokat változtat egy karakter tömbben. Ezt a függvényt akarom én átírni Perl-re. A gond ott van h. "nagyjából" jól viselkedik, de néha-néha egyáltalán nem működik. Szerintem a chr() és ord() függvények szívathatnak meg, mert nem ugyanaz a visszatérési értékük mint ansi C-ben a karakterkódok.
A kód vhogy így néz ki C-ben:
munka[i]=val1[i]+val2[i];
Szerintem ez így kell kinézzen Perl-ben:
$munka[$i]=chr(ord($val1[$i])+ord($val2[$i]));
Valakinek volt esetleg hasonlóval tapasztalata? (természetesen a $munka egy karakter tömb perlben vhogy így: @munka = split //,$param; )
Köszi,
Zoli
- 1124 megtekintés
Hozzászólások
chr((ord(x)+ord(y))%256)
?
- A hozzászóláshoz be kell jelentkezni
Bocsanat, ez is benne van a kodban, csak kifelejtettem a postbol, kisee faradt voltam.
Szerintem a chr es ord fuggvenyekkel van valami gond, de ma fogom magam es letesztelem h. Mit ad vissza a C kod, ill a perl kod.
- A hozzászóláshoz be kell jelentkezni