Was bedeutet ~~ (Allgemeines zu Perl) - Perl-Community.de

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

2025-07-08 06:29:53
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
2 guests

[thread]13492[/thread]

submit to reddit

Was bedeutet ~~

Readers: 35

Articles: hide open all | hide show old branches

+16 replies
guest tseug

2009-05-09 11:39
Hi!

Im Netz habe ich dieses Beispiel gefunden:
Code (perl): (dl )

perl -le "print ~~localtime(1046880000)"
Was machen diese zwei "~" hier?

----
Modedit Gwendragon: Titel ergänzt
----
Last edited: 2009-05-09 11:44:00 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2009-05-09 12:00
  
  User since
  2005-01-17
  14850 articles
  Admin1
  
  Das ~ ist ein Operator für bitbezogene (komme gerade nicht auf korrekten Ausdruck) Negation.
  http://www.perl.com/doc/manual/html/pod/perlop.htm...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - LanX-
    
    2009-05-09 12:55
    
    User since
    2008-07-15
    1000 articles
    BenutzerIn
    
    2009-05-09T10:00:49 GwenDragon
    Das ~ ist ein Operator für bitbezogene (komme gerade nicht auf korrekten Ausdruck) Negation.
    
    Invertierung !(?)
    
    Doppelte Negation mit !!$var ist ein gängiges Idiom um auf Perls "boolesche Werte" zu normieren. AFAIR ist $var wahr ergibts 1, unwahr den Leerstring.
    
    Doppelte Invertierung macht jetzt nur Sinn, wenn es andere Repräsentationen für 0 und 1 gäbe ...!?!
    
    Das Einzige was ich mir hier evtl. denken könnte, wäre sowas wie Leerstellen mit Nullen aufzufüllen, dazu müsste man auch wissen mit wievielen Bitstellen ~ arbeitet.
    (EDIT: Aber das ist IMHO nicht wirklich Sinnvoll, aber das "Internet" ist ja geduldig)
    
    Last edited: 2009-05-09 13:04:23 +0200 (CEST)
    me and my writeups
    - GwenDragon
      
      2009-05-09 14:39
      
      User since
      2005-01-17
      14850 articles
      Admin1
      
      2009-05-09T10:55:24 LanX-
      dazu müsste man auch wissen mit wievielen Bitstellen ~ arbeitet.
      
      Soviel wie das System bzw. die Perl-Binary zulässt.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - betterworld
      
      2009-05-09 14:39
      
      User since
      2003-08-21
      2614 articles
      ModeratorIn
      
      2009-05-09T10:55:24 LanX-
      Doppelte Negation mit !!$var ist ein gängiges Idiom um auf Perls "boolesche Werte" zu normieren. AFAIR ist $var wahr ergibts 1, unwahr den Leerstring.
      
      Doppelte Invertierung macht jetzt nur Sinn, wenn es andere Repräsentationen für 0 und 1 gäbe ...!?!
      
      Hier unterscheidet sich doppelte Negation von doppelter bitweiser Negation. Boolsche Operatoren ergeben immer "1" oder "". Die Bits in einer Zahl oder einem String sind aber generell immer 1 oder 0, daher wird damit nichts normiert. (Du wolltest wohl genau dasselbe sagen.)
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - LanX-
        
        2009-05-09 14:59
        
        User since
        2008-07-15
        1000 articles
        BenutzerIn
        
        2009-05-09T12:39:38 betterworld
        (Du wolltest wohl genau dasselbe sagen.)
        
        Ja, eben!
        
        Und um ~~ als Ersatz für scalar() nutzen zu können ist wiederum entscheidend das keine irgendwie geartete Normierung stattfinden kann! *
        
        So wir hatten schon 3 "Operator-Tricks" in diesem Thread:
        ~~
        !!
        +
        
        Gibts noch was um die Liste abzurunden? ;-)
        
        UPDATE: (*) mit deinem Hinweis msg #121388, dass entweder auf einen String oder eine Ganzzahl normiert wird, geht die Analogie zu scalar() flöten :-)
        Last edited: 2009-05-09 15:12:05 +0200 (CEST)
        me and my writeups
- +7 replies
- guest Spieler
  
  2009-05-09 13:01
  
  Die ~~ erzeugen hier einen scalaren Kontext.
  
  Christoph
  - +5 replies
  - LanX-
    
    2009-05-09 13:06
    
    User since
    2008-07-15
    1000 articles
    BenutzerIn
    
    Könnte sein, aber da könnte man auch einfach + statt ~~ schreiben, oder?
    me and my writeups
    - +4 replies
    - Linuxer
      
      2009-05-09 13:25
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Nö, meine Tests liefern jedenfalls mit '+' unterschiedliche Ergebnisse als mit '~~'.
      
      Ich persönlich bevorzuge 'scalar', um skalaren Kontext zu erzwingen.
      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!
      - +3 replies
      - LanX-
        
        2009-05-09 14:37
        
        User since
        2008-07-15
        1000 articles
        BenutzerIn
        
        tja das kommt davon wenn man ohne Testmöglichkeit postet, weiß jemand noch wo man den + Trick einsetzt?
        me and my writeups
        
        +2 replies
        
        Linuxer
        
        2009-05-09 14:39
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Der + Trick kann zum Einsatz kommen, wenn man verhindern will, dass () als Klammerung einer Funktion gewertet wird.
        Vergleiche:
        
        Code: (dl )
        
        1 2 3 4 5
        
        > perl -le 'print (1+2)/3' 3 > perl -le 'print +(1+2)/3' 1 >
        
        edit: Kann, glaube ich, auch bei {} verwendet werden (z.B. beim Einsatz von map; Block vs. anonymous hash reference); da habe ich aber grad kein Beispiel zur Hand.
        Last edited: 2009-05-09 14:42:20 +0200 (CEST)
        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!
        
        betterworld
        
        2009-05-09 14:43
        
        User since
        2003-08-21
        2614 articles
        ModeratorIn
        
        2009-05-09T12:39:58 Linuxer
        Kann, glaube ich, auch bei {} verwendet werden (z.B. beim Einsatz von map; Block vs. anonymous hash reference); da habe ich aber grad kein Beispiel zur Hand.
        
        Kein besonders sinnvolles Beispiel, aber hier macht es zum Beispiel einen Unterschied:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        % perl -lwe 'print for map {1, $_} 3..4' syntax error at -e line 1, near "} 3" Execution of -e aborted due to compilation errors. % perl -lwe 'print for map {+1, $_} 3..4' 1 3 1 4
        
        Edit: Der "+"-Operator ist die Identität, d.h. er gibt genau das zurück, was er als Argument bekommt. Der Kontext wird dabei nicht verändert. Edit2: Ich glaube, in Perl6 erzwingt es dann tatsächlich skalaren Kontext, oder?
        Last edited: 2009-05-09 14:58:44 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class
  - betterworld
    
    2009-05-09 14:58
    User since
    2003-08-21
    2614 articles
    ModeratorIn
    
    Guest Spieler
    Die ~~ erzeugen hier einen scalaren Kontext.
    
    Christoph
    
    "~~" wird tatsächlich oft von Programmierern benutzt, die zu faul sind, scalar() zu schreiben ;)
    Genau gesagt erzwingt es noch mehr als einen skalaren Kontext, nämlich einen String-Kontext oder einen Ganzzahl-Kontext. D.h. das Argument wird in einen String oder in eine Ganzahl umgewandelt, falls es noch keins von den beiden ist. Die bitweisen Operatoren in Perl arbeiten entweder auf Strings oder auf Ganzzahlen und verhalten sich hier oft subtil unterschiedlich, was gelegentlich für Verwirrung sorgt.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    % perl -lwe 'print ~~4' 4 # Fließkommazahlen gehen kaputt % perl -lwe 'print ~~4.5' 4 % perl -lwe 'print ~~ "4.5"' 4.5 # Referenzen gehen kaputt % perl -MData::Dumper -we 'print Dumper(~~{})' $VAR1 = 'HASH(0x9827180)'; # Spaß mit Dualvars % perl -lwe '$! = 1; print $!; print ~~$!' Operation not permitted 1
    
    Daher würde ich davon abraten, dass jetzt alle Leute nur noch ~~ statt scalar() benutzen, um leet zu sein.
    
    Edit: Bei Perl-Golf bietet es sich auch manchmal an, stattdessen $x^0 oder $x|0 zu schreiben ("xor" oder "or" mit 0). So funktioniert es aber nur noch mit Ganzzahlen, und nicht mehr mit Strings.
    Last edited: 2009-05-09 15:07:20 +0200 (CEST)
    Lieblingsmodule: IPC::System::Simple, Path::Class
- neniro
  
  2009-05-09 14:20
  User since
  2008-12-14
  79 articles
  BenutzerIn
  Wie von GwenDragon bereits angegeben, bitweise Negation:
  
  Code: (dl )
  
  1 2 3 4
  
  C:\Users\neniro>perl -e "printf '%#b', ~1" 0b1111111111111111111111111111111111111111111111111111111111111110 C:\Users\neniro>perl -e "printf '%#b', ~~1" 0b1
  
  -- yet another amateur perl hacker
- +2 replies
- lichtkind
  
  2009-05-09 14:55
  
  User since
  2004-03-22
  5709 articles
  ModeratorIn + EditorIn
  
  ab 5.10 ist es auch wie in perl 6 der smartmatch
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - moritz
    
    2009-05-09 17:58
    User since
    2007-05-11
    923 articles
    HausmeisterIn
    
    2009-05-09T12:55:13 lichtkind
    ab 5.10 ist es auch wie in perl 6 der smartmatch
    
    Im Prinzip ja, aber hier nicht:
    
    Code: (dl )
    
    1 2
    
    perl -lE "print ~~localtime(1046880000)" Wed Mar 5 17:00:00 2003
    
    Das ist ein Perl-5.10, und trotzdem macht das ~~ nur einen skalaren Kontext (wird vermutlich als prefix statt infix geparst).
    Perl 6 - Perls Zukunft

View all threads created 2009-05-09 11:39.