如何在 perl 中将系统日期附加到文件名?
由于我对 perl 编程非常陌生,您能给我一个上述查询的简单示例吗?
如何进入无限输入循环,直到他退出Perl,因为即使进入退出或q后我也无法正确退出代码.非常感谢您的帮助.
do
{
&ipdiscover;
print "enter q or quit to exit";
my $input=<>;
chomp($input);
if($input=="quit")
exit;
}until(($input eq "quit")||($input eq "q"));
Run Code Online (Sandbox Code Playgroud)