Hex wert anzeigen (Allgemeines zu Perl)

[thread]14748[/thread]

Hex wert anzeigen

Leser: 23

Articles: hide open all | hide show old branches

+5 replies
willi

2010-03-02 00:16
User since
2010-02-14
7 Artikel
BenutzerIn
Hallo,

gibt es eine möglichkeit den hex-wert in Byte1 anzuzeigen?
so geht es bei mir nicht:
Code (perl): (dl )

1 2 3

$Byte1 ="\x22"; $test1 = sprintf('\\x%x', $Byte1); print "$test1";
da steht dann nur
Quote
\x0

ich hätte jedoch gerne am Bildschirm \x22
- +4 replies
- Linuxer
  
  2010-03-02 00:21
  User since
  2006-01-27
  3881 Artikel
  HausmeisterIn
  Du solltest use warnings; verwenden.
  Ich vermute mal, dass Du es nicht tust, denn sonst hättest Du eine Warnung für den Code bekommen müssen.
  
  Vorschlag (Test auf Konsole):
  
  Code: (dl )
  
  1 2
  
  $ perl -wle 'my $v="\x22"; printf "\\x%x\n", ord($v);' \x22
  
  edit: Variable im Code angepasst.
  Last edited: 2010-03-02 00:29:12 +0100 (CET)
  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!
  - Linuxer
    
    2010-03-02 00:28
    User since
    2006-01-27
    3881 Artikel
    HausmeisterIn
    
    Noch 'ne Alternative:
    
    Code: (dl )
    
    1 2
    
    $ perl -wle 'my $v ="\x22"; my $vv = "\\x" . unpack( "h*", $v ); print $vv;' \x22
    
    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
  - willi
    
    2010-03-02 02:02
    User since
    2010-02-14
    7 Artikel
    BenutzerIn
    
    das
    Quote
    use warnings;
    war nicht so gut habe ziemlich viele fehler wie z.B.:
    
    Quote
    Use of uninitialized value $len in string eq at /.../datei line 70.
    Use of uninitialized value $len in string eq at /.../datei line 70.
    Use of uninitialized value $len in string eq at /.../datei line 70.
    
    das sind folgende Zeilen
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $len = "0"; while ($len eq "0"){ $len = sysread(Serial, $buf, 1 ); }
    
    was passt da nicht????
    - Gast wer
      
      2010-03-02 04:36
      
      Das ist ein "Folgefehler" der eigentliche Fehler liegt weiter vorne im Code. Möglicherweise hast du irgendwo ein ";" vergessen oder eine Klammer nicht richtig geschossen.

View all threads created 2010-03-02 00:16.