Newbie: Problem mit Variablen-Scope - #60867 (Allgemeines zu Perl)

jokey

2005-12-13 14:31

User since
2005-12-13
8 Artikel
BenutzerIn
[default_avatar]

Danke für die Antwort. Ich habe es ausprobiert, leider hatte es nicht die erwünschte Wirkung. Ich habe das Array auf Dateiebene mit

Code: (dl )

our @CRC16Tab = ( ... hier die Werte ... ); # Array mit 256 initialisierten Werten

deklariert. Die aufrufende Funktion sieht so aus:

Code: (dl )

sub CalculateCRC16    # Bytewert, Initwert
{
  # The CCITT-polynomial is: 0x1021
  # X^16+X^12+X^5+1

  return $CRC16Tab[(($_[1] >> 8) ^ $_[0]) & 0xFF] ^ (($_[1] << 8) & 0xFFFF);
}

Beim Zugriff auf das Array in der Funktion sagt Perl mir:

Quote
Use of uninitialized value in bitwise xor (^) at setchecksum.pl line 536

Die monierte Zeile ist die return-Zeile in der obigen Funktion.
Wo liegt der Fehler?