[nr-pm] Umwandlung in Bin?rdaten

[Michael Lamertz]

On Mon, Oct 14, 2002 at 03:42:52PM +0200, Arne Kloecker wrote:
> Hallo,
> 
> ich muss einen Haufen verschiedener Daten in einen Bytestrom packen. Solange 
> dabei mit Daten in solchen Breiten gearbeitet wird, f?r die pack sch?ne 
> defaults hat habe ich damit auch kein Problem.
> 
> Jetzt muss ich aber die 4 Bytes einer IP in den Bytestrom schreiben (Und zwar 
> als exakt 1 Byte pro Byte). Wenn ich die einfach als Variablen ?bergebe (so 
> wie ich es bei Strings mache) frisst Perl mir die als Strings.

Falsches Template...

> Wie also kriege ich die Bytes da rein ?

    ---------- bla.pl ----------
    #!/usr/bin/perl
    
    use strict;
    use warnings;
    
    $|++;
    my $ip = "127.0.0.1";
    my @bytes = split /\./, $ip;
    my $bin = pack("C4", @bytes);
    print $bin;
    ---------- bla.pl ----------

und:

    ---------- snip ----------
    nijushiho:~$ perl bla.pl >bin.dat
    nijushiho:~$ hexdump -C bin.dat 
    00000000  7f 00 00 01                                       |....|
    00000004
    nijushiho:~$ 
    ---------- snip ----------

Sieht doch korrekt aus.  Alternativ kannst Du ja noch ein 'reverse'
'drauf los lassen.

-- 
	    Well, then let's give that Java-Wussie a beating... (me)

Michael Lamertz                        |     +49 2234 204947 / +49 171 6900 310
Sandstr. 122                           |                       mike at lamertz.net
50226 Frechen                          |                 http://www.lamertz.net
Germany                                |               http://www.perl-ronin.de 
___________________________
Abmelden:
Mail an majordomo at hfb.pm.org mit dem Text:
unsubscribe niederrhein-pm