das Array @ARGV

[GordonB]

Hi,

ich habe ein kleines Script geschrieben, welches unter der Kommandozeile Argumente annehmen soll. Es soll, falls kein Argument angegeben wird eine Meldung angeben (USAGE).
Jedenfalls komme ich nicht mit meinem Konstruckt zu potte. Ich sitzte jetzt bereits 2.5 h an diesem Ding.
Hier ist erst mal das Script. Wäre nett, wenn Ihr mir helfen könntet...

Gordon

<pre>

#!/usr/bin/perl


use Getopt::Long;

$result = &GetOptions("version", \$version_p,
"f=s" => \$fname_p);

print "Version 0.01\n" if $version_p;
print ("Filename: ", $fname_p, "\n") if $fname_p;


&usage() if @ARGV ne "";


sub usage
{
print <<"EOUSAGE";
usage: $0 [options] arg1 [arg2 ...]
where options may be:
--version
-f name

EOUSAGE
exit 1;
}
</pre>

[robert]

Versuch es mal mit folgendem:




usage() if (@ARGV < 1);

# oder nach deiner Version

usage() if ($ARGV[0] eq "");



Gruß

Robert


[Diese Nachricht wurde von robert am 03. November 1999 editiert.]

[GordonB]

Hat funktioniert, danke...


Gordon