PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : das Array @ARGV



GordonB
02-11-1999, 14:00
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
03-11-1999, 05:16
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
03-11-1999, 08:01
Hat funktioniert, danke...


Gordon