for loop (gelöst) - #180565 (Allgemeines zu Perl)

Gast nano

2015-04-03 23:46

n'abend zusammen,
ich soll für eine aufgabe aus einer while schleife eine for schleife machen.
die while schleife musste ich vorher auch selber schreiben und nun while durch for ersetzen. leider klappt das irgendwie nicht. kann mir da jemand vlt helfen, wo ich da den fehler habe?
also aufgabe konkret lautet:
user soll 2 ungerade zahlen eingeben. Array soll alle ungeraden zahlen die dazwischen liegen, einschliesslich den eingetippten enthalten. wenn die erste eingetippte zahl größer als die 2. ist soll das Programm die zahlen in der "richtigen" Reihenfolge ausgeben.

Code (perl): (dl )

use strict; use warnings;

print "please enter two odd numbers \n";
    print "enter first odd number:";
    my $odd1 = <STDIN>;
    chomp ($odd1);    
print "enter second odd number:";
    my $odd2 = <STDIN>;
    chomp ($odd2);

exit if (!($odd1 %2) or !($odd2 %2));
my @odds;
my $step;

if ($odd1 < $odd2) {
        $step= 2 ;
} else {
        $step =-2;
}
my $n=0;
for (my $i=$odd1; $i != $odd2;$i=$i+$step)  {
        $odds[$n] = $i;
        $n=$n+1;        
}
$odds[$n]=my $i;
print "numbers:@odds\n";

ich kann zwar 2 zahlen eingeben. aber er gibt mir immer nur die erste aus.
kann mir jemand vlt helfen?
Last edited: 2015-04-04 04:40:40 +0200 (CEST)