Gibt es für Zeile x einer Matrix andere Zeilen die ein Subset dieser Zeile sind? - #142078 (Allgemeines zu Perl)

topeg

2010-10-20 11:00

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

War gestern doch schon etwas spät. Ich habe nicht mehr daran gedacht, dass Es mit "L" ins Intel Format mit den vertauschen Low-/Hight-Bytes konvertiert wird. Es wird das Format gebraucht bei dem die Byteorder nicht vertauscht ist.

also das funktioniert wie erwartet:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

sub bin2num($)
{
  my $bin=shift;
  # gültige 32 Bit Zahl daraus machen.
  $bin=( '0'x( 32-length $bin ) ).$bin;
  return unpack("N", pack("B*",$bin));
}

sub num2bin($)
{ unpack("B*",pack("N",shift)); }

my $bin=num2bin(22);
print $bin."->".bin2num($bin)."\n";