Thread Probleme mit GetOpt::Long (19 answers)
Opened by YAPD at 2019-06-23 15:58

YAPD
 2019-06-23 15:58
#190125 #190125
User since
2015-09-20
146 Artikel
BenutzerIn

user image
Hallo Perl - Freunde,

ich habe heute mal etwas anderes als den üblichen Moose Mist. :)
Und zwar geht es um die Verwendung von GetOpt::Long.

Ich habe schon einiges ausprobiert, komme aber nicht auf das gewünschte Ergebnis :

Meine Bedingungen :

1. Folgende Schalter : "-Debug" , "-Verify" , "-Module" & "-Help"
2. Der Schalter "-Module" ist unbedingt notwendig für die Verwendung des Schalters "-Verify"
( Verifizierung des Moduls )
3. KEINE Ausgabe der Meldung : "Unknown option : XXX" bei falschem Parameter, sondern Ausgabe
der Meldung "Parameter - Fehler".
4. Eine eigene Meldung, wenn der Parameter fehlt, anstatt "Option verify requires an argument"
5. Außerdem erkennt er, wenn man den Parameter -v eingibt, die Eingabe als -Verify und meldet :
Code: (dl )
1
2
3
4
   C:\Scripts\Aktuell>Schalter.pl -v
Option verify requires an argument
Falsche Verwendung !


Der Code :

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
use Getopt::Long qw( GetOptions );
Getopt::Long::Configure( );

my $Debug = 'Bob';
my $Module = 26;
my $Verify = 0;
my $Help = 0;

GetOptions('Debug=s' => \$Debug ,
'Module=s' => \$Module ,
'Verify=s' => \$Verify ,
'Help' => \$Help ,

) or die "Falsche Verwendung !" , "\n";

if( $Help )
{
Verwendung( );

} else {

print "Debug : $Debug" , "\n";
print "Module : $Module" , "\n";
print "Verfiy : $Verify" , "\n";
}

sub Verwendung {

print "Common on, it's really not that hard.\n";
}


Wie gesagt, ich bin am Verzweifeln hier, weil es nie das tut was ich möchte.

Ich hoffe ihr könnt mir helfen.

Vielen Dank !

YAPD
Yet Another Perl Developer

View full thread Probleme mit GetOpt::Long