unpack für checksum (gelöst) (Allgemeines zu Perl)

[thread]20455[/thread]

unpack für checksum [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+7 replies
bianca

2018-05-04 13:46

User since
2009-09-13
7016 Artikel
BenutzerIn

Für eine Viererblockung einer IBAN benutze ich '(A4)*'

Wie schreibt man das für eine Hex checksum einer Datei, also auch mit Buchstaben?
10 print "Hallo"
20 goto 10
- +2 replies
- haj
  
  2018-05-04 14:01
  User since
  2015-01-07
  558 Artikel
  BenutzerIn
  Ganz genauso? 'A' ist 'ASCII', das enthält auch A-F!
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  use warnings; use strict; use Data::Dump qw(dump); my $checksum = '0815AADEBADBADBADBAD'; my @parts = unpack('(A4)*',$checksum); dump @parts; # ("0815", "AADE", "BADB", "ADBA", "DBAD")
  - rosti
    
    2018-05-04 16:16
    User since
    2011-03-19
    3499 Artikel
    BenutzerIn
    
    A steht zwar für ASCII aber funktionieren tut das sogar mit utf8:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    use utf8; my $checksum = 'ÄÖÜß0815AADEBADBADBADBAD'; my @parts = unpack('(A4)*',$checksum); print "@parts"; ÄÖÜß 0815 AADE BADB ADBA DBAD
- +4 replies
- bianca
  
  2018-05-04 17:33
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Danke euch beiden. Mein Fehler war, es nicht als Array zu behandeln.
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - rosti
    
    2018-05-04 18:54
    
    User since
    2011-03-19
    3499 Artikel
    BenutzerIn
    
    2018-05-04T15:33:41 bianca
    Danke euch beiden. Mein Fehler war, es nicht als Array zu behandeln.
    
    Eselsbrücke: unpack() packt aus, also wirds mehr. pack() packt ein, also wirds weniger ;)
    
    .
    - bianca
      
      2018-05-04 19:53
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Sehr gut!
      10 print "Hallo"
      20 goto 10
    - GwenDragon
      
      2018-05-04 20:48
      
      User since
      2005-01-17
      14773 Artikel
      Admin1
      
      Gute Merkhilfe :)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2018-05-04 13:46.