Was bedeutet << (Allgemeines zu Perl)

[thread]16078[/thread]

Was bedeutet <<

Leser: 25

Articles: hide open all | hide show old branches

+7 replies
Gast Marc

2011-03-16 21:41
Hallo,
ich habe in einem Skript die Zeilen
Code: (dl )

1 2

$status == 1 <<8 and $status = 0
Code: (dl )

print "blabla", $status >> 8,"...";
was macht << bzw >> in dieser Situation?

Besten Dank, Marc
- +5 replies
- lichtkind
  
  2011-03-16 23:27
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  es ist shift siehe http://perldoc.perl.org/perlop.html#Shift-Operator...
  
  es verschiebt die bits in der binärdarstellung des wertes um die rechts angegebenen stellen in die richtung die der pfeil zeigt.
  
  1 entspricht 0000001
  
  1 << 2 wäre dann 0000100
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +4 replies
  - Gast MartinR
    
    2011-03-17 12:20
    
    2011-03-16T22:27:41 lichtkind
    ... es verschiebt die bits in der binärdarstellung des wertes um die rechts angegebenen stellen in die richtung die der pfeil zeigt...
    
    Für was braucht man denn sowas?
    Last edited: 2011-03-17 12:28:07 +0100 (CET)
    - pktm
      
      2011-03-17 12:43
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Kommt drauf an, was drin ist. Man kann mittels shoft sehr effizient rechnen.
      Auf Wikipedia habe ich folgendes dazu gefunden:
      
      Quote
      Logical shifts can be useful as efficient ways of performing multiplication or division of unsigned integers by powers of two. Shifting left by n bits on a signed or unsigned binary number has the effect of multiplying it by 2n. Shifting right by n bits on an unsigned binary number has the effect of dividing it by 2n (rounding towards 0).
      
      http://www.intergastro-service.de (mein erstes CMS :) )
    - +2 replies
    - clms
      
      2011-03-17 14:01
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      Guest MartinR
      Für was braucht man denn sowas?
      
      Neben der schon genannten Multiplikation/Division mit Potenzen von 2
      verwende ich es viel, wenn ich Bitslices oder Bitmasken brauche, z.B. zusammen mit den bitwise-Operatoren | & ^.
      
      Code (perl): (dl )
      
      my $bm = (1<<($i+1)) - (1<<$j);
      
      liefert für $i >= $j z.B. eine Maske, bei der die Bits $i bis $j gesetzt sind.
      
      Mag sein, dass ich es besonders häufig verwende, weil ich aus der Hardwareentwicklubng komme und daher mit der Denkweise vertraut bin.
      - Taulmarill
        
        2011-03-17 15:19
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Für die Berechnung von Subnetzmasken ist das hilfreich. Hab ich schon mal für die Arbeit gebraucht um Netzwerktraffic zuzuordnen.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- lichtkind
  
  2011-03-17 12:13
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  die officielle perldoc wird dazu grad ausgebaut, siehe https://github.com/cowens/perlopquick/raw/master/p...
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.

View all threads created 2011-03-16 21:41.