Eingabeproblem (gelöst) (Allgemeines zu Perl)

[thread]21220[/thread]

Eingabeproblem [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 7

Articles: hide open all | hide show old branches

+4 replies

qwe123qwe

2021-08-11 08:07

User since
2013-10-08
65 Artikel
BenutzerIn
[default_avatar]

Seit längerem bin ich mal wieder auf ein kleineres aber trotzdem nicht selbst lösbares Problem in einem sehr alten Skript gestoßen.
Die folgende Subroutine fragt den Benutzer nach den Nummern von den Indizes ab, die weiter benutzt werden sollen :

Code (perl): (dl )

sub indexnummer_abfragen {
        
        my ($nr, $startnr, $endnr);
        print "Die Nummern und Namen der wählbaren Indizes sind:\n";
        for ($nr = 0; $nr <= 10; $nr++) {
                print "$indexliste[$nr][0] = $indexliste[$nr][1]\n";
        }

        print "\nBitte NUMMER des 1. abzufragenden Index eingeben. Voreinstellung ist 0\n";
        chomp ($startnr = <STDIN>);
        unless ( $startnr ) {
                $startnr = 0;
        }
        print "$startnr\n";

        print "Bitte NUMMER des letzten abzufragenden Index eingeben. Voreinstellung ist 10\n";
        chomp ($endnr = <STDIN>);
        unless ( $endnr ) {
                $endnr = 10;
        }
        print "$endnr\n";

        if ( $startnr > $endnr ) {
                print "Angaben nicht akzeptabel. Skript neu starten\n";
                exit;
        } else {
                print "\ndie Schleife läuft über die Indizes $startnr bis $endnr\n";
        }
        @indexnummern = ($startnr, $endnr);
        return @indexnummern;
}

Das funktioniert im Allgemeinen auch so. Nur bei der Frage nach dem letzten Index erscheint bei Eingabe einer 0 trotzdem als Endnummer immer die 10 .... !? Bei allen anderen Eingaben kommt hingegen das erwünschte Ergebnis. Woran liegt das ?
Danke schön schon mal für eure Antwort.
Last edited: 2021-08-13 20:38:56 +0200 (CEST)

+3 replies
Linuxer

2021-08-11 08:34
User since
2006-01-27
3890 Artikel
HausmeisterIn
Im Boole'schen Kontext ist die Null (0) unwahr. Genauso wie undef oder der Leerstring "".

D.h. bei $endnr = 0 wird das hier triggern:
Code (perl): (dl )

1 2 3

unless ( $endnr ) { $endnr = 10; }
Vielleicht sollte hier eher auf Definiertheit geprüft werden?

PS: Das gleiche gilt für die Prüfung bei $startnr.

edit: Code-Beispiel korrigiert. Kleine Textanpassungen.
Last edited: 2021-08-11 08:40:49 +0200 (CEST)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- qwe123qwe
  
  2021-08-11 21:14
  
  User since
  2013-10-08
  65 Artikel
  BenutzerIn
  
  Danke für den Tipp ! Werde ich so umsetzen.
- qwe123qwe
  
  2021-08-13 20:36
  User since
  2013-10-08
  65 Artikel
  BenutzerIn
  ich hab's jetzt über eine Längenabfrage gemacht
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  print "\nBitte NUMMER des 1. abzufragenden Index eingeben. Voreinstellung ist 0\n"; chomp ($startnr = <STDIN>); ($startnr = 0) if ( length($startnr) == 0 ); print "$startnr\n"; print "Bitte NUMMER des letzten abzufragenden Index eingeben. Voreinstellung ist 10\n"; chomp ($endnr = <STDIN>); ($endnr = 10) if ( length($endnr) == 0 ); print "$endnr\n";

View all threads created 2021-08-11 08:07.