Opened by YAPD at 2019-06-23 15:58
User since
2015-09-20
146 Artikel
BenutzerIn
2015-09-20
146 Artikel
BenutzerIn
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 :
Der Code :
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
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