0x und Bitshift ohne eval? (gelöst) (Allgemeines zu Perl)

[thread]18409[/thread]

0x und Bitshift ohne eval? [gelöst]

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
thecoder2012

2013-06-27 08:46
User since
2013-02-04
64 Artikel
BenutzerIn
Hi,

habe ein kleines Problem mit der Deklaration.
Eval finde ich unschön und sollte man ja auch vermeiden.

Wie deklariere ich folgenden Quellcode ohne eval?
Code: (dl )

1 2 3 4 5 6 7 8

my $hex = 'E1B4FF'; my $evalcode = '$hex = 0x'.$hex; eval $evalcode; #print $hex . "\n";#14791935 my $x1 = (($hex >> 16) & 0xFF); my $x2 = (($hex >> 8) & 0xFF); my $x3 = ($hex & 0xFF); print $x1 . $x2 . $x3 . "\n";
Den Wert $hex bekomme ich an die Subroutine/Funktion übergeben daher kann ich nicht 0xE1B4FF als statische Variable schreiben und "0x".E1B4FF (oder 0x.$hex) führt zu einem anderen Ergebnis.

Auch aus einem ähnlichen Thema bei Perlmonks unter http://www.perlmonks.org/?node_id=695205 wurde ich nicht richtig schlau um mein gewünschtes Ergebnis ohne Eval zu erhalten.

Danke!
- +2 replies
- pq
  
  2013-06-27 10:03
  User since
  2003-08-04
  12209 Artikel
  Admin1
  es geht einfacher =)
  
  Code (perl): (dl )
  
  1 2 3
  
  my $hex = hex('E1B4FF'); # oder my $hex = hex('0xE1B4FF');
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - thecoder2012
    
    2013-06-27 11:08
    User since
    2013-02-04
    64 Artikel
    BenutzerIn
    
    2013-06-27T08:03:36 pq
    es geht einfacher =)
    
    Code (perl): (dl )
    
    1 2 3
    
    my $hex = hex('E1B4FF'); # oder my $hex = hex('0xE1B4FF');
    
    Vielen Dank. Funktioniert einwandfrei. Manchmal sieht man den Wald wirklich vor lauter Bäumen nicht mehr.
- topeg
  
  2013-06-30 11:42
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Es gibt mehrere Möglichkeiten das Problem zu lösen. Und gerade das unübersichtliche Bit-Shift ist unter Perl nicht nötig. Es gibt einfachere Möglichkeiten:
  
  Diese erste Variante wandelt den Hex-String in einen Binärstring und entpackt ihn wider als als eine Reihe von 8-Bitigen Werten.
  
  Code (perl): (dl )
  
  1 2 3
  
  my $hex = 'E1B4FF'; my ($x1,$x2,$x3)=unpack('C3', pack( 'H6', $hex ) ); print $x1 . $x2 . $x3 . "\n";
  
  Hier wird unpack benutzt um den String in immer zwei Zeichen zu zu erlegen, die dann mit hex in Werte umgewandelt werden:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $hex = 'E1B4FF'; my ($x1,$x2,$x3)=map{ hex }unpack('(A2)*',$hex ); print $x1 . $x2 . $x3 . "\n";
  
  Das splitten lässt sich auch mit einer Regexp machen. Beachte dabei die Klammer um die Regexp. Das erzwingt einen Listenkontext und die gefundenen Werte werden zurück gegeben anstatt die Anzahl.
  
  Code (perl): (dl )
  
  1 2 3
  
  my $hex = 'E1B4FF'; my ($x1,$x2,$x3)=map{ hex }( $hex=~/(..)/g ); print $x1 . $x2 . $x3 . "\n";

View all threads created 2013-06-27 08:46.