Variable gegen Liste vergleichen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

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

2024-12-01 04:50:37
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
4 Gäste

[thread]18410[/thread]

submit to reddit

Variable gegen Liste vergleichen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+15 replies
rc27

2013-06-27 10:03
User since
2013-06-18
14 Artikel
BenutzerIn
Ich möchte eine Variable gegen eine Liste in einem Array vergleichen. Falls vorhanden gibts ein ok, ansonsten not ok.

An sich sollte dass doch ganz einfach sein, komme aber gerade auf keine ordentliche Lösung.

Das ok wird über if abgefragt und springt falls poitiv dann zurück. Das not ok habe ich einfach hinter die Abfrage gehängt, was jedesmal gesetzt wird solange die if Abfrage negativ ist. Es funktioniert glaube ich, kommt mir aber komisch vor.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

... my @record_types = qw(100 200 300 400 500); ... # Daten die reinkommen $record_type_found = substr($file_content,$position+12,3); foreach (@record_types) { if ($record_type_found == $_) { $record_type_status = "ok"; last; } $record_type_status = "not ok"; # } print $record_type_found, ": ", $record_type_status, "\n";
Last edited: 2013-06-27 10:17:41 +0200 (CEST)
- pq
  
  2013-06-27 10:22
  User since
  2003-08-04
  12208 Artikel
  Admin1
  typischerweise sieht sowas bei mir so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $found = 0; for my $item (@array) { if ($item eq 'something') { $found = 1; last; } }
  
  d.h. du kannst das "not ok" einmal vor der schleife setzen und musst es nicht in jedem durchlauf setzen. und ob du "ok", "not ok" nimmst oder 1 und 0, ist ja dir überlassen.
  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
- +3 replies
- payx
  
  2013-06-27 10:25
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo rc27,
  
  löse das mit einem Hash:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; my $record_type_status; my %record_types = ( 100 => 1 , 200 => 1 , 300 => 1 , 400 => 1 , 500 => 1 ); my $record_type_found = "101"; if ($record_types{$record_type_found}) { $record_type_status = "ok"; } else { $record_type_status = "not ok"; # } print $record_type_found, ": ", $record_type_status, "\n";
  
  HTH
  Grüße
  payx
  - +2 replies
  - pq
    
    2013-06-27 10:30
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    wobei man dazusagen sollte, wenn man ein array vorliegen hat und darin nur einmal etwas suchen muss, ist es zuviel aufwand, das ganze erst in einen hash zu konvertieren.
    
    wenn es um kurzen code geht, sollte man vielleicht eher List::Util::first verwenden.
    
    Code (perl): (dl )
    
    1 2
    
    use List::Util qw/ first /; my $item = first { $_ eq 'something' } @array;
    
    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
    - rc27
      
      2013-06-27 10:49
      
      User since
      2013-06-18
      14 Artikel
      BenutzerIn
      
      Das mit dem Hash und List::Util sieht interessant aus. Vielen Dank für beide Lösungen.
- +8 replies
- Muffi
  
  2013-06-27 13:18
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Wenn die Laufzeit nicht so wichtig ist geht auch:
  
  Code (perl): (dl )
  
  if (grep { $_ eq 'irgendwas' } @record_types)
  
  Läuft halt intern immer die komplette Liste durch und nicht nur bis zum ersten Treffer
  [EDIT] Und ein neues Array erzeugts wohl auch
  Last edited: 2013-06-27 13:22:55 +0200 (CEST)
  1 + 1 = 10
  - +7 replies
  - Linuxer
    
    2013-06-27 13:49
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    grep sollte im Listenkontext die Liste der Treffer liefern und im skalaren Kontext die Anzahl der Treffer.
    Als Bedingung des if() dürfte wohl der skalare (bzw. boolean) Kontext greifen...
    Wo befürchtest Du die "Erzeugung eines neuen Arrays" (edit: wenn man von den möglichen Interna des grep absieht)?
    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!
    - +6 replies
    - Muffi
      
      2013-06-27 14:46
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Naja, auch wenn es nicht zugewiesen wird erzeugt grep ja ein array
      1 + 1 = 10
      - +5 replies
      - murphy
        
        2013-06-28 16:30
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Perl ist eine kontextsensitive Sprache, wenn grep feststellt, dass es in skalarem Kontext aufgerufen wurde zählt es nur die Anzahl der Treffer und erzeugt keine Ausgabeliste.
        
        Wenn mich nicht alles täuscht gibt es in neueren Perlversionen sogar eine Optimierung für booleschen Kontext, in dem grep nach dem ersten Treffer abbricht und wahr zurückgibt anstatt die Eingabeliste komplett zu scannen.
        When C++ is your hammer, every problem looks like your thumb.
        
        Muffi
        
        2013-06-28 16:53
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ah, interessant
        1 + 1 = 10
        
        +3 replies
        
        ptk
        
        2013-06-29 09:14
        
        User since
        2003-11-28
        3645 Artikel
        ModeratorIn
        
        2013-06-28T14:30:55 murphy
        Wenn mich nicht alles täuscht gibt es in neueren Perlversionen sogar eine Optimierung für booleschen Kontext, in dem grep nach dem ersten Treffer abbricht und wahr zurückgibt anstatt die Eingabeliste komplett zu scannen.
        
        Zumindest wird dieses Verhalten in perldoc -f grep von perl 5.18.0 nicht dokumentiert. Aber wünschenswert wäre so was, dann könnte man auf List::Util::first verzichten.
        
        +2 replies
        
        Gast wer
        
        2013-06-29 12:18
        
        läst sich testen:
        
        Code (perl): (dl )
        
        print " => OK\n" if grep {print "$_, "} qw( a b c );
        
        Last edited: 2013-06-29 14:44:43 +0200 (CEST)
        
        murphy
        
        2013-06-29 16:36
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Ok, offensichtlich habe ich mir das mit der Optimierung für booleschen Kontext nur eingebildet.
        
        Oder Perl ist tatsächlich clever genug, nur dann zu optimieren, wenn das Callback für grep seiteneffektfrei ist, aber das bezweifle ich dann doch.
        When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- Raubtier
  
  2013-06-27 20:32
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Ich biete noch zwei weitere Lösungsmöglichkeiten:
  
  Code (perl): (dl )
  
  1 2
  
  use Quantum::Superpositions; say "drin" if any(1,2,3,4) == 5
  
  oder mit >= 5.10
  
  Code (perl): (dl )
  
  1 2
  
  use 5.010; say "drin" if 3 ~~ @{[1,5,3,4]}
  
  (die Zahlen musst du natürlich ersetzen)
  - lichtkind
    
    2013-06-29 19:02
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    es geht auch
    
    Code (perl): (dl )
    
    say "drin" if 3 ~~ [1,5,3,4];
    
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.

View all threads created 2013-06-27 10:03.