ueberpruefen ob commandline leer ist - #79015 (Allgemeines zu Perl)

RPerl

2007-07-28 12:44

User since
2006-11-26
384 Artikel
BenutzerIn

user image

Hallo,

also das ist eigentlich richtig seltsames Verhalten. Sieht so aus: Ich hab ein Script mit Getopt::Long das Parameter ueber argv nimmt.
So, nun wollte ich eine Hilfe augeben, wenn KEIN Parameter uebergeben wurde. Aber perl zeigt beides. Hilfe als auch Subfunktionsausgabe vom Parameter. Warum?!

Code (perl): (dl )

my $result = GetOptions ("change" => \&change,
            );


if(!@ARGV) {
print "Hallo!\n";
print "------------------------------------------------------\n";
print "-c / --change \t changes all files\n";
exit();
}

sub change {
print "foo";
}

Der soll entweder, wenn nix uebergeben wurde, die Hilfe zeigen, oder WENN was uebergeben worden ist, die Hilfe weglassen und stattdessen simpel die Subfunktion aufrufen.
Aber passiert nicht

Warum?!

Vielen Dank und Gruß

rPerl\n\n