0 als Parameter prüfen (Allgemeines zu Perl)

[thread]14404[/thread]

0 als Parameter prüfen

Leser: 20

Articles: hide open all | hide show old branches

+11 replies
pktm

2009-12-21 21:12
User since
2003-08-07
2921 Artikel
BenutzerIn
Hallo!

Ich prüfe in meinen Subs gerne direkt beim shiften, ob eine Variable vorhanden ist oder nicht. Da es sich dabei so ziemlich nie um Wert ehandelt, die 0 sein können, sieht das so aus:
Code: (dl )

1 2 3 4 5 6 7

=head2 test( $i ) =cut sub test { my $i = shift or die("Missing argument i."); } # /test
Aber, wenn das Argument 0 sein kann, funktioniert das nicht mehr, weil 0 als false evaluiert wird (so stelle ich mir das gerne vor).

Entsprechend muss der obige Code angepasst werden:
Code: (dl )

1 2 3 4 5 6 7

=head2 test( $i ) =cut sub test { my $i = (defined $_[0] ? shift : die("Missing argument i.")); } # /test
Das ist zwar in der Hinsicht schön, als dass die Fehlerbehandlung in der Zeile des shifts ist, aber es ist doch - um es mal sehr positiv auszudrücken - gewöhnungsbedürftig.

Natürlich kann man auch einfach drauf los shiften und hinterher den Wert prüfen:
Code: (dl )

1 2 3 4 5 6 7 8

=head2 test( $i ) =cut sub test { my $i = shift; die("Missing argument i.") unless defined $i; } # /test
Aber dann braucht man ja 2 Zeilen :)
Außerdem sieht das noch unschöner aus, wenn es irgendwo zwischen 5 eingelesenen Argumenten verteilt ist.

Daher die Frage, ob man das noch irgendwie anders lösen kann. Perl ist ja dafür bekannt, mehrere Wege anzubieten.

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +5 replies
- MatthiasW
  
  2009-12-21 21:57
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Ab 5.10 kannst du defined-or (//) verwenden:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub test { my $i = shift // die("Missing argument i."); } # test
  
  Ansonsten kannst du auch die Länge von @_ prüfen:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub test { my $i = @_ ? shift : die("Missing argument i."); } # test
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +4 replies
  - pktm
    
    2009-12-21 22:13
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Quote
    This is perl, v5.10.1 built for MSWin32-x64-multi-thread
    
    *ausgezeichnet*
    
    Wie muss ich das schreiben, damit Perl 5.10 Voraussetzung für mein Skript ist?
    http://www.intergastro-service.de (mein erstes CMS :) )
    - +3 replies
    - lichtkind
      
      2009-12-21 22:17
      
      User since
      2004-03-22
      5680 Artikel
      ModeratorIn + EditorIn
      
      Code (perl): (dl )
      
      use 5.10;
      
      oder wenn Modern::Perl benutzt die die neues sahcen gleich aktiviert ist ja 5.10 auhc vorraussetzung, sonst compile error.
      
      alternativ gibt es schon ewig den befehl defined, der auch wahr angibt wenn bloss eine null in einer variable ist.
      Last edited: 2009-12-21 22:19:28 +0100 (CET)
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - +2 replies
      - MatthiasW
        
        2009-12-21 22:34
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        2009-12-21T21:17:03 lichtkind
        
        Code (perl): (dl )
        
        use 5.10;
        
        So wird aber 5.100 erwartet. Das passiert mir ständig ;-) daher weiß ich mittlerweile, dass es entweder 5.10.0, oder aber 5.010 heißen muss.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        lichtkind
        
        2009-12-21 23:16
        
        User since
        2004-03-22
        5680 Artikel
        ModeratorIn + EditorIn
        
        tatsächlich, sogar unter win :-)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
- +4 replies
- Gast anon
  
  2009-12-21 23:36
  Positionale Parameter sind ja grauenhaft. Komm, überspringe ein paar Generationen Schmerz und Wehleid durch Selbstfindung und Erfahrung und benutze gleich Hashes und modulbasierte Validierung.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use 5.010; use Moose; use MooseX::Params::Validate; sub test { my ($self, %params) = validated_hash(\@_, i => {isa => 'Defined',}, ); return "$params{i} ist immer ein definierter Wert"; } my $obj = __PACKAGE__->new; say $obj->test(i => 'abc'); # ok say $obj->test(i => 0); # ok say $obj->test(i => undef); # nok say $obj->test; # nok
  - +2 replies
  - lichtkind
    
    2009-12-22 00:00
    
    User since
    2004-03-22
    5680 Artikel
    ModeratorIn + EditorIn
    
    TIMTOWTDI, auch positionale parameter können vorteile haben, bist dir wirklich sicher er wählte seine mittel aus unkenntnis der alternative?
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
    - sid burn
      
      2009-12-22 16:42
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      Bei MooseX::Params::Validate gibt es auch eine Funktion womit man Positionale Parameter testen kann.
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - sid burn
    
    2009-12-22 16:46
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Wobei MooseX::Declare gleich noch schöner wäre:
    
    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
    
    use MooseX::Declare; class Test { sub test (Defined $i) { return "$i ist immer ein definierter Wert"; } sub test2 (Int $i) { return "$i ist immer ein Integer\n"; } } my $obj = Test->new; say $obj->test('abc'); # ok say $obj->test(0); # ok say $obj->test(undef); # nok say $obj->test; # nok say $obj->test2('abc'); # nok say $obj->test2(0); # ok say $obj->test2(undef); # nok say $obj->test2; # nok
    
    Und mit MooseX::MultiMethods wird Perl dann langsam sogar wieder eine halbwegs Moderne Sprache.
    Last edited: 2009-12-22 16:51:38 +0100 (CET)
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- Dubu
  
  2009-12-22 01:02
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  2009-12-21T20:12:59 pktm
  Aber dann braucht man ja 2 Zeilen :)
  Außerdem sieht das noch unschöner aus, wenn es irgendwo zwischen 5 eingelesenen Argumenten verteilt ist.
  
  Ich mache ohnehin das Einlesen und das Validieren nacheinander:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use Carp; ... sub foosub { my ($i, $x, $foo) = @_; croak "first argument must be positive" unless $i > 0; croak "too few arguments" unless defined $foo; # now start doing something ... }
  
  Quote
  Daher die Frage, ob man das noch irgendwie anders lösen kann. Perl ist ja dafür bekannt, mehrere Wege anzubieten.
  
  TIMTOWTDI, so ist es.

View all threads created 2009-12-21 21:12.