geht es noch einfacher II (Allgemeines zu Perl)

[thread]14489[/thread]

geht es noch einfacher II

Leser: 29

Articles: hide open all | hide show old branches

+15 replies
jan999

2010-01-13 19:13
User since
2009-04-02
109 Artikel
BenutzerIn
Hi !

nochmal die Frage, ob auch soetwas noch einfacher geht:
Code (perl): (dl )

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

sub checkIsTagValueInclude{ my $tagvalue = shift; my $search = shift; my $result = 0; if (";$tagvalue;" =~ /\;$search\;/i){ $result = 1; }else{ $result = 0; } return ($result); }# end-checkIsTagValueInclude
... als Lerneffekt !

Gruß Jan .-)
- +2 replies
- pq
  
  2010-01-13 19:27
  User since
  2003-08-04
  12208 Artikel
  Admin1
  klar
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub checkIsTagValueInclude { my ($tagvalue, $search) = @_; return ";$tagvalue;" =~ m/;$search;/i ? 1 : 0; }
  
  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
  - jan999
    
    2010-01-13 20:18
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    danke !
- +9 replies
- Gast wer
  
  2010-01-13 23:47
  Code (perl): (dl )
  
  1 2 3
  
  sub checkIsTagValueInclude{ return $_[0] =~ /\A$_[1]\Z/i; }
  - pq
    
    2010-01-13 23:51
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ist aber nicht ganz genau die aufgabenstellung und hat einen anderen rückgabewert für false.
    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
  - +7 replies
  - esskar
    
    2010-01-14 07:55
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    Code (perl): (dl )
    
    sub checkIsTagValueInclude{ 0 + $_[0] =~ /^$_[1]$/i }
    - +2 replies
    - renee
      
      2010-01-14 08:22
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ich persönlich würde ganz klar pq's Lösung bevorzugen. Stichwort Wartbarkeit... bei pq's Lösung weiß auch ein Perl-Einsteiger was gemacht und zurückgegeben wird.
      
      Kürze ist IMHO nicht das Wichtigste ;-)
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - esskar
        
        2010-01-14 11:44
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        lerneffekt & alternative! :-)
    - +4 replies
    - pq
      
      2010-01-14 12:56
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      auch das erledigt nicht die ursprüngliche aufgabe.
      stimmen sollte es schon.
      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
      - esskar
        
        2010-01-14 13:20
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        ich weiß, ich behaupte aber, dass die strichpunkte im op wohl aber eine notlösung sind, aber man weiß es nicht.
        
        Code (perl): (dl )
        
        sub checkIsTagValueInclude { 0 + ";$_[0];" =~ /\;$_[1]\;/i }
        
        +2 replies
        
        pq
        
        2010-01-14 13:24
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wieso macht ihr alle backslashes vor ein semikolon in der regex?
        
        wieso sollte das semikolon eine notlösung sein und wieso postest du dann einfach eine variante, die was komplett anderes macht?
        ich kriegs noch kürzer hin, wenn ich die aufgabenstellung auch verändern darf. das ist ja wohl keine kunst.
        
        jetzt mal butter bei die fische:
        beispiel-input:
        "foo;bar;baz", "foo"
        
        Das Ergebnis soll darstellen, ob in der Zeile in einem Feld der String "foo" steht.
        
        und jetzt sag mir mal, wie du das löst, ohne die "notlösung" zu benutzen.
        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
        
        sid burn
        
        2010-01-14 14:33
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Ich würde es so Lösen.
        
        Code (perl): (dl )
        
        1 2 3 4
        
        sub search { my ( $str, $search ) = @_; return grep { $_ eq $search } split /;/, $str; }
        
        Ein unterschied existiert aber noch. Ich mache explizit "eq" anstatt ein Regex match. Zumindest kommt es mir auch vor das man mit $search literalen Text suchen möchte und das dort keine regex angegeben werden soll.
        
        Ansonsten wenn wirklich eine Regex an der Funktion übergeben werden darf, und man möchte die suche auf die einzelnen Felder durch Semikolion getrennt matchen. Dann würde die Notlösung mit Semikolions um die variablen zu machen sowieso falsch sein und man müste dort erst recht splitten.
        
        Möchte man eine Regex haben die auf die einzelnen getrennten Felder matchen könnte man es so schreiben.
        
        Code (perl): (dl )
        
        1 2 3 4
        
        sub search { my ( $str, $search ) = @_; return grep $search, split(/;/, $str); }
        
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- +3 replies
- bloonix
  
  2010-01-14 13:26
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  sub checkIsTagValueInclude { my ($tagvalue, $search) = @_; if (";$tagvalue;" =~ /\;$search\;/i) { return 1; } return 0; }
  
  Ich persönlich bevorzuge Code, der lesbar und nicht zu kurz ist.
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.
  - +2 replies
  - pq
    
    2010-01-14 13:28
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    zu lesbarkeit gehört bei mir, dass ich nicht unnötig zeichen in einer regex escape, stichwort augenkrebs =)
    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
    - bloonix
      
      2010-01-14 13:33
      
      User since
      2005-12-17
      1615 Artikel
      HausmeisterIn
      
      An die Regex habe ich keinen Gedanken verschwendet, aber du hast natürlich
      recht.
      What is a good module? That's hard to say.
      What is good code? That's also hard to say.
      One man's Thing of Beauty is another's man's Evil Hack.

View all threads created 2010-01-13 19:13.