zahl in variabler? (Allgemeines zu Perl)

[thread]17782[/thread]

zahl in variabler?

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+7 replies
chmod777

2012-09-26 19:35
User since
2009-09-14
82 Artikel
BenutzerIn
wie kann ich mir einem kurzen Befehl eine Variable auf das vorhandensein einer Zahl überprüfen?

etwa so
Code: (dl )

1 2 3

$vergleich = 4; wenn $vergleich == 3,4,14,43 dann "plan A", ansonsten "plan B"
ich hab das bisher mit if's gelöst, also in diesem Fall mit vier Vergleichen.
Das sollte aber einfacher und effizienter funktionieren, denke ich
- murphy
  
  2012-09-26 20:18
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Hier würde sich zum Beispiel der Smartmatchoperator (ab Perl 5.10) anbieten:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  if ($vergleich ~~ [3,4,14,43]) { planA(); } else { planB(); }
  
  When C++ is your hammer, every problem looks like your thumb.
- Linuxer
  
  2012-09-26 21:59
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  oder auf die alte Art mit einem Regex:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  for my $x ( 1,2,3,4,6,8,12,13,14,42,43,134,143 ) { if ( $x =~ m{\A (?: 4?3 | 1?4 ) \z}x ) { print "$x: Plan A"; } else { print "$x: Plan B"; } }
  
  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!
- +2 replies
- hlubenow
  
  2012-09-26 22:28
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Oder so mit Standardmitteln:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my $vergleich = 4; my @a = (3,4,14,43); my $isin = 0; foreach my $elem (@a) { if ($vergleich == $elem) { $isin = 1; last; } } if ($isin) { ... mache planA ... } else { ... mache planB ... }
  
  Da man sowas öfter braucht, hab' ich das für mich in einer Funktion "isin()" gekapselt.
  - Linuxer
    
    2012-09-26 22:33
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Hi,
    
    oder mit grep() oder List::Utils first()?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my $vergleich = 4; my @a = (3,4,14,43); #if ( grep { $vergleich == $_ } @a ) { if ( first { $vergleich == $_ } @a ) { # ... plan A } else { # ... plan B }
    
    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!
- Raubtier
  
  2012-09-26 22:34
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Andere Lösung:
  
  Code: (dl )
  
  1 2 3
  
  use Quantum::Superpositions; $vergleich = 4; if ($vergleich == any(3,4,14,43)) { ist drin }
  
  Allerdings habe ich das Modul nur mal aus Zufall gefunden...
- bianca
  
  2012-09-27 06:06
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Und ganz kurz geht es, indem du einen dieser Vorschläge in eine sub verpackst und an den Stellen nur die sub mit Parametern aufrufst und den Rückgabewert vergleichst.
  10 print "Hallo"
  20 goto 10

View all threads created 2012-09-26 19:35.