Aus 2 Bytes ein Integer (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-01-09 03:17:00
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]14758[/thread]

submit to reddit

Aus 2 Bytes ein Integer

Leser: 16

Articles: hide open all | hide show old branches

+3 replies
willi

2010-03-02 22:51
User since
2010-02-14
7 Artikel
BenutzerIn
Hallo ich habe von euch folgende Funktion die ein Integer auf 2 Bytes aufteilt:
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub SplitIntIn2Byte { my $int = shift; $hi = $int >> 8; $lo = $int & 0b0000000011111111; return (chr($hi),chr($lo)); }
Jetzt bräuchte ich genau die umgekehrte Funktion also 2 Bytes in ein Integer
Folgendes habe ich schon:
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub Add2ByteInInt { my $byte1 = shift; my $byte2 = shift; # Da fehlt das zusammenzählen return (chr($int)); }
Könntet ihr mir noch einmal helfen?
- lichtkind
  
  2010-03-03 00:11
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  $int = $hi << 8 | $lo ;
  
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- betterworld
  
  2010-03-03 01:01
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  chr() kehrst du mit ord() um, nicht durch nochmaligen Gebrauch von chr(). Steht ja auch in perldoc -f chr.
  
  Der Rest der Loesung kommt von lichtkind. Wie Du seine und meine Antwort zu einem funktionierenden Stueck Code kombinierst, solltest Du selbst ausprobieren, damit Du dabei auch etwas lernst :)
  Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2010-03-02 22:51.