Не могу напечатать начальный номер в Perl

Question

Мой Perl-код не выполняется с начального номера.

#!/usr/bin/perl -w

print "SrepAring inpCKut filYes\n";

$incr=0.25;
$dist=3.0;
$inti=3.0;

my $filename = 'job-1.sh';

open (my $BATCHFILE, '>', "$filename");

while ($dist < 15) {
    $dist += $incr;
    $inti = $dist - 0.25;
    print $BATCHFILE
"
YOYO -O -i min_mdin.$dist -o min_mdout.$dist -p TATA -c prod.rst.$inti -r min.rst.$dist
"
}

close ($BATCHFILE);

YOYO -O -i min_mdin.3 -o min_mdout.3 -p TATA -c prod.rst.2.75 -r min.rst.3

YOYO -O -i min_mdin.3.25 -o min_mdout.3.25 -p TATA -c prod.rst.3 -r min.rst.3.25

YOYO -O -i min_mdin.3.5 -o min_mdout.3.5 -p TATA -c prod.rst.3.25 -r min.rst.3.5

Answer 1

Если вы хотите напечатать значение до его изменения, поставьте print перед присвоением.

while ($dist < 15) {
    print $BATCHFILE "\nYOYO -O -i min_mdin.$dist -o min_mdout.$dist -p TATA -c prod.rst.$inti -r min.rst.$dist\n";
    $dist += $incr;
    $inti = $dist - 0.25;
}