$expr .= " && (";
my $i;
for ($i; $i < @freq; $i += 2) {
- $expr .= "(\$f0 >= $freq[0] && \$f0 <= $freq[1]) ||";
+ $expr .= "(\$f0 >= $freq[$i] && \$f0 <= $freq[$i+1]) ||";
}
chop $expr;
chop $expr;
my @dx;
foreach $ref (@res) {
@dx = @$ref;
- my $t = ztime($dx[2]);
- my $d = cldate($dx[2]);
- push @out, sprintf "%9s %-12s %s %s %-28s <%s>", $dx[0], $dx[1], $d, $t, $dx[3], $dx[4];
+ push @out, Spot::formatl(@dx);
}
} else {
- @out = DXM::msg('e4');
+ @out = $self->msg('e4');
}
return (1, @out);