binäre Daten: binäre Daten zeitoptimal einlesen - #85052 (Allgemeines zu Perl)

Dubu

2004-07-29 01:30

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=rookie,28.07.2004, 15:19]

Code: (dl )

1
2

    until (substr($botschaft_hex,0,10) =~ m/f{10,}/ && $botschaft_hex !~ /f{32,}/)
   {

[/quote]
Die Regex fuer die Hexdarstellung kommt mir etwas umstaendlich vor. Schliesslich kann Perl genauso mit Binaerdaten vergleichen, und Regexen braucht man hier auch nicht.

Code: (dl )

    my $botschaft_bin = "\x00" x 16;
    until (substr($botschaft_bin,0,10) eq "\xFF" x 10 && $botschaft_bin ne "\xFF" x 16)
   {
   ...

Die Hexdarstellung scheinst du ja wohl im Hauptprogramm zu brauchen, sonst wuerde ich die Umwandlung ganz herauswerfen. ;)