getOptions - Problem: getOptions (Allgemeines zu Perl)

[thread]8379[/thread]

getOptions - Problem: getOptions

Leser: 1

rupe

2006-10-02 13:33

User since
2006-10-02
4 Artikel
BenutzerIn
[default_avatar]

Hallo, Leute!

Ich hab da ein kleines Problem mit GetOptions!
Wenn ich diese Funktion nutze um bestimmte werte zu übergeben,
dann werden dabei keine Unterschiede gemacht!

Möglichkeiten:
meineFunktion
meineFunktion -w
oder:
meineFunktion -w test

Dafür hab ich nun >>"k:s" => \$kill,<< verwendet!

Nun wird aber kein Unterschied zwischen möglichkeit 1 u. 2 erkannt!

Um diese Problem zu lösen! Hab ich die Variable $kill schon vorher mit einen Wert definiert, also: my $kill = -1;

Wird jetzt "meineFunktion -w" aufgerufen wird die Variable $kill wieder mit "" überschrieben.

Es funktioniert aber damit bin ich überhaupt nicht Zufrieden!

Nun meine eigentliche Frage:
Gibt es eine schöner Möglichkeit um diese drei Möglichkeiten abzufragen?

Hier noch ein Beispiel:

Code: (dl )

#!/usr/bin/perl

use Getopt::Long;

GetOptions("k:s"    => \$kill);


if (!$kill) {
        print "\$kill existiert nicht\!\n";
}
elsif ($kill eq "") {
        print "\$kill existiert und ist NULL\!\n";
}
elsif ($kill) {
        print "\$kill existiert und ist $kill\!\n";
}
else {
        print "ist else!\n";
}

exit;

MFG
Rupe

renee

2006-10-02 14:00

User since
2003-08-04
14371 Artikel
ModeratorIn

Besser kann man es eigentlich nicht machen - was das Abfragen angeht. Du solltest aber Wiki:

use strict verwenden.

Dann sollte Dein Code ungefähr so aussehen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $kill;
GetOptions('k:s' => \$kill,);

if(! defined $kill){
    print '$kill is not defined';
}
elsif($kill eq ''){
    print '$kill is ""';
}
elsif(defined $kill){
    print '$kill is defined and is not ""';
}
else{
    print "else";
}

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/

rupe

2006-10-02 14:23

User since
2006-10-02
4 Artikel
BenutzerIn
[default_avatar]

Hey, danke das funktioniert ja!
Is ja cool!

Danke! :)

Thorium

2006-10-03 12:53

User since
2003-08-04
232 Artikel
BenutzerIn

Fällt irgendwem eine Situation für "else" ein?
Also für mich schliesst;

Code: (dl )

1
2
3

if (! a) {
} elsif (a) {
}

ein else irgendwie aus... (gilt natürlich nicht in SQL in Verbindung mit NULL)\n\n

Per|li|nist der; -en, -en <zu â...ist>: a) AnhÃ¤nger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.

renee

2006-10-03 13:08

User since
2003-08-04
14371 Artikel
ModeratorIn

Nein, aber man sollte trotzdem immer ein else einbauen. Wer weiß, was es in Zukunft bei Perl alles gibt. Und das Skript soll ja auch noch in 3-4 Jahren laufen. Es gehört zu einem guten Design, alle Dinge auch abzuschließen. Und ein if-elsif ist irgendwie nur halbherzig...

Strat

2006-10-03 16:18

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

if( ! a) {
  ...
}
elsif( a ) {
  ...
}

finde ich nicht besonders gut, weil ein Programmierer automatisch einen else-Block erwartet, und dann jede Bedingung nochmal explizit pruefen muss. Ich wuerde es folgendermaszen schreiben:

Code: (dl )

unless( a ) { # oder meinetwegen: if( not a )
 ...
}
else {
 ...
}

Ich stimme Renee zu\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2006-10-02 13:33.