Probleme mit GetOpt::Long - #190129 (Allgemeines zu Perl)

thomas38

2019-06-23 18:20

User since
2012-11-04
30 Artikel
BenutzerIn
[default_avatar]

Mmmh,
könnte als "HERE-Document" leserlicher sein, damit erspart man sich auch die ganzen "prints":

Code (perl): (dl )

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 )

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.