Perl Last Command (Break) 1

[zincyo]

I am trying to run a loop which ends after it satisfies the If for the first time. I read that you are supposed to use the last command, similar to Break in C#. Can someone perhaps explain why the last is being ignored in this code, and where it should go. THanks!

for (my $i=0; $i < $#UndlyPx; $i++) {

if ($TheoPrice < $UndlyPx[$i]) {
print $UndlyPx[$i - 1] . "\n";
print $UndlyPx[$i] . "\n";

last;
}

}

}
close(FILE);

 

[feherke]

Hi

In the code fragment you posted there are two opening braces ( { ) and three closing braces ( } ). Because your code fragment looks correct, I suppose the error depends on the statement which opens the first brace, which you did not posted. If the missing statement is another [tt]for[/tt] you may want to use a label to tell to [tt]last[/tt] where to exit.

Feherke.

http://rootshell.be/~feherke/

 

[zincyo]

Not quite sure what you mean by that-- here is the entire section:

while (<FILE>) {
$csv->parse($_) or die "parse() failed: " . $csv->error_input();
my @data = $csv->fields();

if ($searchkey <= $#data && $data[$searchkey] =~ m/\Q$searchField\E/) {
print "\n\n";
print "Key: " . $data[$searchkey] . "\n";
print "mSym: " . $data[$field1key] . "\n" if $field1key <= $#data;
print "UndlyPx: " . $data[$field2key] . "\n" if $field2key <= $#data;
print "TheoPx: " . $data[$field3key] . "\n" if $field3key <= $#data;
print "\n\n";
}

my @UndlyPx= split(',', $data[$field2key]);
my @Underlying= split(',', $data[$field3key]);



for (my $i=0; $i < $#UndlyPx; $i++) {

#if ($TheoPrice > $UndlyPx[$i - 1] && $TheoPrice < $UndlyPx[$i] )
if ($TheoPrice < $UndlyPx[$i])
{
print $UndlyPx[$i - 1] . "\n";
print $UndlyPx[$i] . "\n";
last;

}

}
}

close(FILE);

 

[feherke]

Hi

Please post your code between [tt][ignore]

[/ignore][/tt] and [tt][ignore]

[/ignore][/tt] tags. And do a favor to yourself too and indent your code.

You have to do just as the documentation shows for the [tt]last[/tt] :

[red]OUTERLOOP:[/red] while (<FILE>) {
[small]    $csv->parse($_) or die "parse() failed: " . $csv->error_input();
    my @data = $csv->fields();

    if ($searchkey <= $#data && $data[$searchkey] =~ m/\Q$searchField\E/) {
        print "\n\n";
        print "Key: " .     $data[$searchkey] . "\n";
        print "mSym: "    . $data[$field1key] . "\n" if $field1key <= $#data;
        print "UndlyPx: " . $data[$field2key] . "\n" if $field2key <= $#data;
        print "TheoPx: "  . $data[$field3key] . "\n" if $field3key <= $#data;
        print "\n\n";
    }

my @UndlyPx= split(',', $data[$field2key]);
my @Underlying= split(',', $data[$field3key]);



for (my $i=0; $i < $#UndlyPx; $i++) {

#if ($TheoPrice > $UndlyPx[$i - 1] && $TheoPrice < $UndlyPx[$i] )
if ($TheoPrice < $UndlyPx[$i])
 {
print $UndlyPx[$i - 1] . "\n";
print $UndlyPx[$i] . "\n";[/small]
last [red]OUTERLOOP[/red];
[small]
}

}
}

close(FILE);[/small]

Feherke.

http://rootshell.be/~feherke/

 

[zincyo]

thankyou