Thread Aufgabe für die Funktionen pack / unpack gesucht (14 answers)
Opened by gast at 2009-11-27 17:09

Gast Gast
 2009-11-28 09:07
#128706 #128706
Ich stell mir pack als schreibend und unpack als lesend vor:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#!/usr/bin/perl
use strict;
use 5.010;
use warnings;
binmode STDOUT, ':encoding(utf8)';

my $var = 223;
my ( $pack, @unpack );


$pack = pack 'A*', $var;
@unpack = unpack '(B8)*', $pack;        # schreibe $var interpretiert als Zeichen:
say "@unpack";                          # 00110010 00110010 00110011 ( 2 2 3 )

$pack = pack 'I*', $var;
@unpack = unpack '(B8)*', $pack;        # schreibe $var interpretiert als Zahl:
say "@unpack";                          # 11011111 00000000 00000000 00000000 (dezimal 223)

say "\n------------------------------------------------------\n";


# $pack im Speicher: 11011111 00000000 00000000 00000000

@unpack = unpack '(B8)*', $pack; # interpretiere den Wert im Speicher als eine Zahl, gib mir die Zahl in binärer Form
say "@unpack";                  # 11011111 00000000 00000000 00000000

@unpack = unpack 'I', $pack;  # interpretiere den Wert im Speicher als eine Zahl (Integer), gib mir die Zahl in dezimaler Form
say "@unpack";                  # 223

@unpack = unpack 'A', $pack; # interpretiere das erste Byte im Speicher als Zeichen
say "@unpack";                  # ß

View full thread Aufgabe für die Funktionen pack / unpack gesucht