Große Integer in einzelne Bytes auflösen (gelöst) (Allgemeines zu Perl)

[thread]20588[/thread]

Große Integer in einzelne Bytes auflösen [gelöst]

Tags: perl5 integer bytes Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+14 replies
zuse1

2019-02-15 11:50
User since
2019-02-15
5 Artikel
BenutzerIn
Ich habe eine große Integerzahl, z.B.
Code: (dl )

1 2 3 4 5 6

#!/usr/bin/perl use strict; use warnings; my $number = 0x31fff;
und möchte diese in ein Array der einzelnen Bytes im little endian Format auflösen.

Am Ende möchte ich erhalten:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

my @array; ... <geheimnissvolle Perl-Magie> ... for (my $i = 0; $i < 8; $i++) { printf("byte $i: %02x\n", $array[$i]); } -------------------------------- $ perl script.pl byte 0: ff byte 1: 1f byte 2: 03 byte 3: 00 byte 4: 00 byte 5: 00 byte 6: 00 byte 7: 00
Die Frage ist also: Wie fülle ich das Array, damit dort drin die im Beispiel gezeigten Werte stehen?

Mein momentaner Ansatz ist eine umständliche modulo / integer-division Bastelei, die spätestens ab 8 Bytes ihre Grenzen hat:
Code: (dl )

1 2 3

for (my $i = 0; $i < 8; $i++) { $array[$i] = ( $number % ( 0x100 ** (1 + $i) ) / ( 0x100 ** $i ) ); }
oder per Bitshift ausgedrückt:
Code: (dl )

1 2 3

for (my $i = 0; $i < 8; $i++) { $array[$i] = ( $number % ( 0x100 << (8 * $i) ) / ( 0x1 << (8 * $i) ) ); }
In C würde müsste ich für sowas nur Pointer verschieben, wenn ich mich recht entsinne...
Gibt es in Perl z.B. irgendeine pack/unpack Zauberei oder noch einen komplett anderen Ansatz, der sowas bewerkstelligen kann?
Last edited: 2019-02-15 12:35:01 +0100 (CET)
- +12 replies
- rosti
  
  2019-02-15 13:20
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  pack/unpack natürlich, steht alles in der Doku.
  
  Quote
  Ich habe eine große Integerzahl, z.B.
  
  Die Bytelänge musst Du wissen! 0x31fff sind auf jeden Fall mehr als 16 Bit, also 32. LE heißt Vax-Schablone nehmen:
  
  Code (perl): (dl )
  
  1 2
  
  local $, = " "; print unpack "C*", pack "V", 0x31fff; # 255 31 3 0
  
  32 Bit sind 4 Bytes.
  
  MFG
  
  PS: In C: http://rolfrost.de/gcc.html
  
  .
  Last edited: 2019-02-15 13:25:14 +0100 (CET)
  - +2 replies
  - Muffi
    
    2019-02-15 14:02
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    rosti unser pack/unpack-Meister.
    Ich würde wetten du könntest komplette Programme nur mit pack und unpack schreiben ;)
    1 + 1 = 10
    - rosti
      
      2019-02-15 14:45
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      Ke Problem kannste alles selwer lernen ;)
      
      Es kommt immer darauf an die Idee zu begreifen. So steckt in UTF-8 auch nur ein Serialize-Algorithmus. Und der Sinn der Typisierung besteht nur darin, für einen bestimmten Datentyp eine bestimmte feste Länge zu definieren. Ohne Typisierung gäbe es keine Zeichenkodierung und in C dreht sich alles nur um Datentypen: Alles was man braucht ist die Speicheradresse und der Typ legt fest wieviele Bytes da stehen -- Das ist was C unter Random Access versteht.
      
      Wir Perler verstehen unter Random Access freilich was ganze Anderes ;)
      
      MFG
  - +9 replies
  - zuse1
    
    2019-02-15 17:55
    User since
    2019-02-15
    5 Artikel
    BenutzerIn
    
    Vielen Dank, da ich erst vor 2 Wochen angefangen habe, mich etwas mit Perl zu beschäftigen, ist sowas super hilfreich :)
    
    Da ich sogar 8 Bytes benötige, ersetze ich mal Vax durch Quad und erzwinge LE durch '<'.
    
    Code: (dl )
    
    1 2
    
    my @array = unpack( "C8", pack( "Q<", 0xf8f7f6f5f4f3f2f1 ) ); print( join( ", ", @array ), "\n" ); # 241, 242, 243, 244, 245, 246, 247, 248
    
    Soweit so gut, aber nur mal interessehalber:
    Was müsste ich tun, wenn ich z.B. genau 16 oder noch mehr Bytes auf gleiche Weise füllen müsste? Da gehen mir ja dann langsam die Datentypen aus.
    
    Wenn ich versuche, 2 Quads aneinander zu kleben, bleibt das zweite davon leer, während beim ersten die Werte durch die Decke zu schießen scheinen:
    
    Code: (dl )
    
    1 2 3
    
    use bigint; my @array = unpack( "C16", pack( "Q<2", 0xfffefdfcfbfaf9f8f7f6f5f4f3f2f1f0 ) ); print( join( ", ", @array ), "\n" ); # 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0
    - +8 replies
    - Linuxer
      
      2019-02-15 18:23
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Naja, du willst 2 Sachen zusammenpacken, aber lieferst nur eines ab...
      
      Wenn man die Integer Werte aufteilt, schaut es anders aus:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      #! /usr/bin/perl use strict; use warnings; use 5.024; use bigint; ### ACHTUNG: Wechsel von < nach > zur schöneren Darstellung des Ergebnis my @array = unpack( "C16", pack( "Q>2", 0xfffefdfcfbfaf9f8, 0xf7f6f5f4f3f2f1f0 ) ); print( join( ", ", @array ), "\n" ); # 255, 254, 253, 252, 251, 250, 249, 248, 247, 246, 245, 244, 243, 242, 241, 240
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +7 replies
      - zuse1
        
        2019-02-15 18:46
        
        User since
        2019-02-15
        5 Artikel
        BenutzerIn
        
        Ok... also wäre 'pack("Q2", ...)' und 'pack("Q" x 2, ...)' das gleiche - verstehe...
        
        In diesem Fall bräuchte man halt wieder einen Mechanismus, der eine 16-Byte-Integer in zwei 8-Byte-Integer teilt, was grundsätzlich wieder nach dem Ausgangsproblem aussieht.
        
        +6 replies
        
        Linuxer
        
        2019-02-15 19:53
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ich bin, was perlfunc pack und perlfunc unpack angeht, nicht so firm, vielleicht übersehe ich da auch was.
        
        Woher kommen denn die Integer-Werte? Sind die wirklich größer als die vorhandene Architektur hergibt? (wie in Deinem Beispiel 128bit auf 64bit-Architektur)
        
        Vielleicht kann man die schon beim Einlesen auf das notwendige Maß der vorhandenen Architektur einschränken und dann mit unpack(pack()) mit den entsprechenden Masken verarbeiten.
        
        perlfunc read, perlfunc sysread bieten Möglichkeiten, x Bytes auf einmal zu lesen...
        Auch mit <$fh> kann man aufs Byte genau lesen, wenn man die Variable $/ entsprechend setzt: perlvar $RS
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +5 replies
        
        zuse1
        
        2019-02-16 02:25
        
        User since
        2019-02-15
        5 Artikel
        BenutzerIn
        
        2019-02-15T18:53:47 Linuxer
        Woher kommen denn die Integer-Werte?
        
        Im konkreten Fall von
        
        Code: (dl )
        
        1 2 3
        
        open(DEVICE, "</dev/sda"); seek(DEVICE, 0, 2); my $number = tell(DEVICE);
        
        .
        Da ich ein bischen mit der gpt Partitionstabelle spiele, muss ich für diverse Einträge genau 8 Bytes belegen.
        Mit 8 Bytes Adressraum lassen sich immerhin 16 EiB adressieren. Wenn man nicht Bytes, sondern LBAs zu je 512 Bytes zählt, sind es sogar 8 ZiB. Das reicht zur Zeit für die meisten Anwendungsfälle.
        
        +3 replies
        
        Linuxer
        
        2019-02-16 13:26
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ein Anmerkung zum gezeigten Code:
        
        perlfunc open am Besten immer in der 3-Argument-Form aufrufen und lexikalische Variablen als Handle verwenden. Und Systemaufrufe wie open() auf Erfolg prüfen.
        
        Code (perl): (dl )
        
        1 2 3
        
        my $device = "/dev/sda"; open my $handle, '<', $device or die "open($device,ro) failed: $!";
        
        Ansonsten lässt sich damit ja eine der von mir genannten Leseweisen (read/sysread/<$fh> mit$/) anwenden.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        zuse1
        
        2019-02-16 13:57
        
        User since
        2019-02-15
        5 Artikel
        BenutzerIn
        
        Wenn ich das richtig verstanden habe, besteht der wesentliche Unterschied zwischen
        
        Code: (dl )
        
        open( HANDLE, ...
        
        und
        
        Code: (dl )
        
        open( my $handle ...
        
        darin, dass erstere Form ein globales Irgendwas anlegt, während letztere Form eine lokale Variable anlegt, die die Datei beim verlassen des Scopes automatisch wieder schließt?
        
        Linuxer
        
        2019-02-16 14:02
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Korrekt.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        rosti
        
        2019-02-17 11:32
        
        User since
        2011-03-19
        3470 Artikel
        BenutzerIn
        
        Wenn Du byteorientiert arbeitest, schau Dir mal IO::File an. Das nutzt sysopen und importiert hierzu die Konstanten O_BINARY usw. Also einfach mal als Beispiel
        
        Code (perl): (dl )
        
        1 2 3
        
        use IO::File; my $fh = IO::File->new; $fh->open($path, O_BINARY|O_RDONLY) or die $!;
        
        MFG
- Linuxer
  
  2019-02-15 14:03
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Nur der Vollständigkeit halber als Möglichkeit: Du könntest den Zahlenwert auch als Vector verwenden und diesen dann mit perlfunc vec verarbeiten.
  
  Aber ich würde hier auch eher zu perlfunc.unpack raten.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2019-02-15 11:50.