Funktion von pack() (Allgemeines zu Perl)

[thread]7157[/thread]

Funktion von pack()

Leser: 2

pearl-man

2005-07-25 20:22

User since
2005-07-25
65 Artikel
BenutzerIn
[default_avatar]

Kann mir jemand einfach erklären, wie ich mit pack() diverse Strings und Integer-Werte zu nem bin. Ausdruck umforme?

a´la:
$vari=pack("nnnCCnCCCCCCNnN",2054,1,2048,6,4,1,@hwmac,$myip,0,0);

(packen eines ARP-Frames, z.B.)

mfg

[E|B]

2005-07-25 22:43

User since
2003-08-08
2561 Artikel
HausmeisterIn

Integer kannst du mit sprintf("%b", 123) binär darstellen.
Oder du versuchst es so:

Code: (dl )

print unpack("B*", pack("n", 123));

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

pearl-man

2005-07-26 21:43

User since
2005-07-25
65 Artikel
BenutzerIn
[default_avatar]

[E|B
,25.07.2005, 20:43]Integer kannst du mit sprintf("%b", 123) binär darstellen.
Oder du versuchst es so:
Code: (dl )
print unpack("B*", pack("n", 123));

Vielen Dank für d info, aber ich möchte doch schon gerne wissen was mein Beispiel im Einzelnen bedeutet. Warum wird z.B. nicht ein 'n' (für Integer), sondern gleich 3 davon verwendet?

mfg\n\n

Strat

2005-07-27 12:42

User since
2003-08-04
5246 Artikel
ModeratorIn

hast du dir schonmal

Code: (dl )

perldoc -f pack

durchgelesen?

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2005-07-25 20:22.