eine Frage zu objektorientertem Perl - #75874 (Allgemeines zu Perl)

renee

2007-04-17 17:23

User since
2003-08-04
14371 Artikel
ModeratorIn

Aus

Code: (dl )

            if ( $eingabe =~ /^\D*$/)
            {
            print "Ungültige Eingabe, bitte geben sie nur Zahlen ein \n";
              chomp($eingabe);
           push @liste1,$eingabe;
           }

Solltest Du

Code: (dl )

            if ( $eingabe =~ /^\D*$/)
            {
            print "Ungültige Eingabe, bitte geben sie nur Zahlen ein \n";
            redo;
           }
           else{
                chomp($eingabe);
                push @liste1,$eingabe;
           }

machen (wurde schon gesagt).

Es wäre auch ganz praktisch wenn Du Dir einen konsistenten Einrückstil angewöhnen würdest. Das würde uns das Lesen des Codes ziemlich erleichtern!\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/