Select Code to Download

sub is_big_endian {
    my ($a,$b,$c,$d) = unpack("C4",pack("L",0x01020304));
    ($a==0x01) && ($b==0x02) && return 1; #big endian
    ($a==0x04) && ($b==0x03) && return 0; #little endian
}

sub is_big_endian {
    $num=0x01020304;
...
    ($a==0x01) && ($b==0x02) && return 1; #big endian
    ($a==0x04) && ($b==0x03) && return 0; #little endian
}

  DB<1> c 242
main::is_big_endian(test-dns.pl:242):
...

  DB<11> print join(" ", map { sprintf "%#02x", $_ } unpack("C*",0x123
+45678)), "\n";          
0x33 0x30 0x35 0x34 0x31 0x39 0x38 0x39 0x36

  DB<15> print join(" ", map { sprintf "%#02x", $_ } unpack("C*",pack(
+"D",$a))), "\n";
...

  DB<18> print join(" ", map { sprintf "%#02x", $_ } unpack("C*",pack(
+"d",$a))), "\n"; 
0x41 0xb2 0x34 0x56 0x78 00 00 00