使用if with loop

Enr*_*que -2 perl

如果文件$grib不存在,我想重复以下命令,直到它存在.引入循环以重复检查文件是否存在的最佳方法是什么.

$grib = "model.grb";

if ( -e $grib ) {
    print "File $grib exists";
}
else {
    print "without file $grib";
}
Run Code Online (Sandbox Code Playgroud)

sim*_*que 5

你需要一个while循环.

while (!-e $grin) {
    # do stuff...
}

print "file $grib exists\n";
Run Code Online (Sandbox Code Playgroud)

请参阅perlsyn中的复合语句.

  • 除非你真的不应该这样做,因为你要狠狠地捶打CPU,只需每隔几微秒就重复检查一次.在那里"睡1"会有很大的改进. (4认同)