Perl 从脚本中退出

exit()函数对传递给它的表达式进行评估，并从Perl解释器中退出，同时返回该值作为退出值。exit()函数并不总是立即退出，而是在终止程序之前调用结束程序。如果没有向exit函数传递表达式，那么将返回一个默认值0。exit()函数的使用是有限的，不应该用来退出子程序。要从子程序中退出，应使用 die 或 return。

语法：exit(value)

参数：函数调用时要返回的值

返回：传递给它的值，如果调用函数时没有参数，则返回0。

例子

# Getting the user's bid for
# an online auction
print "Enter your bid";
bid = <STDIN>;
  
# Exit function returnsbid
# if bid is less than 1000
if (bid<1000)
{
    exitbid;
}
  
else
{
    # Prints this message if bid is 
    # greater than or equal to 1000
    print "\nThanks for Participating";
}

以下是上述代码的工作原理
第1步： 从用户那里获得一个出价值。
第2步： 如果出价小于1000，则退出返回出价值，并终止程序。
第3步： 如果出价大于或等于1000，则打印此信息。

传递参数给退出函数
可以传递一个参数给退出函数，该参数会被储存在系统的变量中。

注意： 传递给退出函数的值可以是任何随机的值，不需要是任何特定的值。
下面的例子显示了如何传递一个值给退出函数：

例子

# Opening a file
if(!open(fh,"<","Filename.txt"))
{
    # This block passing an error code 56 
    # to exit function indicating file 
    # could not be opened.
    print "Could not open file";
    exit 56;
}
  
# Passing a success code 1 to 
# the exit function
exit 1;