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;
}

无法在Perl中打印初始编号

1 个答案: