1 oder 3 oder 12 der 44 (Allgemeines zu Perl)

[thread]14522[/thread]

1 oder 3 oder 12 der 44

Leser: 26

Articles: hide open all | hide show old branches

+17 replies
chmod777

2010-01-20 21:21

User since
2009-09-14
82 Artikel
BenutzerIn

Hi!

Lässt sich ein variable auf einfache weise mit den angeführten Werten vergleichen?
Also nicht
if $a == 1 || $a == 4 || $a == 23 || $a == 44
sondern das ganze verkürzt

greets
- Gast wer
  
  2010-01-20 21:34
  so ginge es:
  
  Code (perl): (dl )
  
  if(grep{$a==$_}(1,4,23,44))
- +4 replies
- LanX-
  
  2010-01-20 22:14
  User since
  2008-07-15
  1000 Artikel
  BenutzerIn
  wenn du's öfters brauchst nimm ein hash und prüfe auf $hash{$a}.
  
  (hashes brauchen i.Allg. weniger platz als arrays)
  
  wenns ums golfen geht:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  DB<87> print "jo" if ( @a[1,2,3,44]=(),exists $a[1]) jo DB<88> print "jo" if ( @a[1,2,3,44]=(1)x4, $a[1]) jo
  
  (nicht allzu ernst gemeinte spielerei)
  Last edited: 2010-01-20 22:15:39 +0100 (CET)
  me and my writeups
  - +3 replies
  - Escape
    
    2010-01-20 23:25
    
    User since
    2008-07-24
    312 Artikel
    BenutzerIn
    
    2010-01-20T21:14:23 LanX-
    hashes brauchen i.Allg. weniger platz als arrays
    
    Wahrscheinlich weil die 'nur' keys und values gespeichert werden müssen - nehme ich mal an.
    Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
    - Gast wer
      
      2010-01-21 01:11
      
      nicht ganz eine dünn besetztes Array Position:1,2,3,44 ist größer als ein Hash mit den Werten, da die Zwischenwerte auch auch existieren.
      Also Ein Array hätte in dem Fall 44 Einträge ein Hash nur 4.
    - bianca
      
      2010-01-21 08:25
      
      User since
      2009-09-13
      6991 Artikel
      BenutzerIn
      
      2010-01-20T22:25:29 Escape
      Wahrscheinlich weil die 'nur' keys und values gespeichert werden müssen - nehme ich mal an.
      
      Und weil bei einem Hash kein Platz für Zwischenwerte reserviert wird.
      
      Wenn Du $a[44] = 'test' belegst, werden alle Plätze von 0 bis 43 intern ebenfalls reserviert.
      Bei $a{44} = 'test' ist das nicht der Fall.
      10 print "Hallo"
      20 goto 10
- +10 replies
- sid burn
  
  2010-01-20 22:30
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Wenn du Perl6::Junction oder Quantum::Superpositions nutzt könntest du z.B. soetwas schreiben.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use Perl6::Junction qw(any); ... if ( $a == any(1, 4, 23, 44) ) { ... }
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - +9 replies
  - LanX-
    
    2010-01-20 22:41
    
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    oder List::MoreUtils
    
    Quote
    Returns a true value if any item in LIST meets the criterion given through BLOCK. Sets $_ for each item in LIST in turn:
    
    print "At least one value undefined"
    if any { !defined($_) } @list;
    
    Returns false otherwise, or undef if LIST is empty.
    all BLOCK LIST
    
    me and my writeups
    - +8 replies
    - Gast anon
      
      2010-01-20 23:28
      
      ... sonst auch per Regex:
      
      Code: (dl )
      
      1 2 3 4 5
      
      if ($a =~ m/^(1|3|12|44)$/xms) { print "matches\n"; } Performance gegenüber den anderen Lösungen müsste man dann noch kurz benchmarken.
      - +7 replies
      - sid burn
        
        2010-01-21 00:52
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Das hat nur das Problem das durch eine Regex der Linke wert auch wie ein String behandelt wird und nicht wie eine Zahl.
        
        Code: (dl )
        
        1 2 3 4
        
        sidburn@sid:~$ perl -MPerl6::Junction=any -wle 'print "1.00" == any(1,2,3) ? "yes" : "no"' yes sidburn@sid:~$ perl -wle 'print "1.00" =~ m/^(1|2|3)$/ ? "yes" : "no"' no
        
        Ansonsten bedeutet "$" in einer Regex "Stringende oder \n vor Stringende". Damit würde auch der String "1\n" gültig sein. Besser wäre \z. Ist alles nur eine Definition wie genau man es haben möchte. Ich bevorzuge bei soetwas dann lieber Sachen der den Wert in einer Zahl forciert wenn das auch das gewünscht verhalten sein soll. Da sich dadurch schnell mal ein Bug einschleichen kann den man nicht so schnell sieht.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +6 replies
        
        LanX-
        
        2010-01-21 13:49
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        naja ... man muss halt sicherstellen dass die Variable auch einen ~~Zahl~~ Integer enthält...
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        DB<1> print "1.00" =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein String"; Nein String DB<2> print 1.00 =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein String"; JA Zahl DB<3> $a="1.00"; print $a =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein String"; Nein String DB<4> $a=1.00; print $a =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein String"; JA Zahl DB<5> $a="1.00"; $a+=0; print $a =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein String"; JA Zahl
        
        Die Gefahr dass ein Integer nach einer Rechnung auf einmal zum String wird ist auch nicht größer, als dass es auf einmal einen Float-Rundungsfehler hat, den müsste man in den anderen Lösungen auch abfangen.
        
        Sprich aufpassen muss man so oder so!
        
        Da ist Perl übrigens viel robuster als JS
        Last edited: 2010-01-21 13:52:27 +0100 (CET)
        me and my writeups
        
        +5 replies
        
        sid burn
        
        2010-01-21 14:00
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Quote
        naja ... man muss halt sicherstellen dass die Variable auch einen Zahl Integer enthält...
        
        Für mich ist "1.00" eine Zahl. Und ich spreche jetzt von Logisch nicht Technisch. Das es ein String ist, ist mir klar. Aber dafür hat mann ja eben die Zahlen Operatoren und String Operatoren getrennt. Damit die Zahlen Operatoren eben den Inhalt wie eine Zahl behandeln. Eine Regex wäre eben ein String Operator und somit kommt dort eben etwas anderes heraus.
        
        Mit meinen Code wollte ich das zeigen und nochmals darauf hinweisen und zeigen das die Regex eben nicht das gleiche macht wie die anderen Beispiele und warum ich die anderen Beispiele auch bevorzugen würde.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +4 replies
        
        LanX-
        
        2010-01-21 14:04
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        du hast ja recht dass man aufpassen muss, aber "1.00" ist zwar eine Zahl in Stringdarstellung aber kein Integer! (... hatte mich ja dahingehend präzisiert).
        
        naja egal...
        me and my writeups
        
        +3 replies
        
        sid burn
        
        2010-01-21 14:39
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Ist korrekt, aber es wurde auch gar nicht nach einem Integer gefragt, sondern es wurde einfach gefragt ob diese einem Wert übereinstimmen. Und Wert zählt für mich als Zahl.
        
        Den Punkt erwähne ich deswegen da man in der Regel ja oft Benutzereingaben abfragt. Und wenn diese in der Shell oder in einer Webapplikation z.B. "1.00" eingeben sieht Perl wegen eingabe es als String an. Und die Regex würde fehlschlagen. Und auch wenn man vorher überprüft ob wirklich eine Zahl eingegeben wurde zum Beispiel mit Scalar::Util::looks_like_number oder einer Regex aus Regexp::Common (was man machen sollte) so kann die Validierung erfolgreich sein aber das verhalten trotzdem noch anders sein.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
        
        #!/usr/bin/env perl use strict; use warnings; use Scalar::Util; use Perl6::Junction qw(any); *is_num = \&Scalar::Util::looks_like_number; # Eingabe print "Bitte eine Zahl eingeben: "; chomp( my $input = <STDIN> ); # Prüfen auf Zahl if ( !is_num($input) ) { die "Eingabe ist keine Zahl\n"; } if ( $input =~ m/\Ainf\z/ixms ) { die "Eingabe ist keine Zahl\n"; } # any() test if ( $input == any(1,2,3) ) { print "Benutzer hat 1,2 oder 3 eingegeben.\n"; } else { print "Benutzer hat etwas anderes als 1,2,3 eingegeben.\n"; } # Regex Test if ( $input =~ m/\A(1|2|3)\z/xms ) { print "Benutzer hat 1,2 oder 3 eingegeben.\n"; } else { print "Benutzer hat etwas anderes als 1,2,3 eingegeben.\n"; }
        
        Wenn ein Benutzer in der Shell "1.00" eingibt ist die Validierung ob es eine Zahl ist okay. Beim Regexp Match würde er aber ausgeben das es nicht okay war.
        
        Wenn natürlich explizit gefordert wird vom Nutzer das nur "Integer" ohne Kommastellen eingegeben werden dürfte müsste die Validierung natürlich anders sein. Bzw. dann wäre die Regexp meinetwegen auch wieder okay. Ich würde aber die Validierung anpassen und den Match mit der Zahl lassen.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +2 replies
        
        LanX-
        
        2010-01-21 14:44
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        hast du gesehen dass ich einfach
        
        Code: (dl )
        
        $a+=0
        
        gemacht habe?
        
        damit bekommst du jede ganzzahlige Darstellung auf Integer normiert...
        
        edit:stil
        Last edited: 2010-01-21 14:45:49 +0100 (CET)
        me and my writeups
        
        sid burn
        
        2010-01-21 15:01
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Habe ich übersehen, aber generell weiß ich das ja. Damit machst du manuell nochmal das was Perl praktisch automatisch machen würde wenn du "==" nutzt.
        
        Ansonsten ersetzt das auch keine Validierung wenn das ebenfalls dein Zweck war. Auser du bist zufrieden wenn dein Perl Code warnings ausgiebt wenn ein Benutzer etwas eingiebt was du nicht wolltest.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- lichtkind
  
  2010-01-21 00:07
  User since
  2004-03-22
  5681 Artikel
  ModeratorIn + EditorIn
  in perl 5.10 geht
  
  Code (perl): (dl )
  
  1 2
  
  if ($a ~~ (1,4,23,44)) { ...
  
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.

View all threads created 2010-01-20 21:21.