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

thomas38
 2019-06-23 18:20
#190129 #190129
User since
2012-11-04
30 articles
BenutzerIn
[default_avatar]
Mmmh,
k├Ânnte als "HERE-Document" leserlicher sein, damit erspart man sich auch die ganzen "prints":
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
if ( defined $Identifier_Options_Hilfe )
{
 print <<EOD_HELP
Parameter fuer die Ausfuehrung des Servers in der Konsole :
-Help              Einblendung dieses Hilfe - Oberflaeche
-NoSSL             Aktivierung der SSL - Verschluesselung fuer die Verbindung
                   Moegliche Schalter : 0 ( AUS ) oder 1 ( EIN )
                   WARNUNG : Keine Empfehlung fuer unsichere Verbindung

-SQL               Re - Initialisierung der SQL - DB
-Verify            Uebepruefung aller notw. Module ( ohne Ausfuehrung )

                   Moegliche Schalter : o Interfaces
                                        o Paths
                                        o SQL
                                        o SSL
EOD_HELP
;
}


Folgendes ist vermutlich nicht das, was Du erwartest:
Code (perl): (dl )
1
2
3
4
5
6
7
if ( defined $Identifier_Options_Hilfe )
{
 (...)
} elsif ( defined $Identifier_Options_Hilfe ) 
  {
                print "Fehler bei der Erkennung der Parameter : Fehler - Code 1002" , "\n";
  }

Sowohl bei if als auch bei elsif wird defined $Identifier_Options_Hilfe getestet.

View full thread Probleme mit GetOpt::Long