珀尔 |退出脚本

exit()函数计算传递给它的表达式并从 Perl 解释器中退出，同时将值作为退出值返回。 exit()函数并不总是立即退出，而是在终止程序之前调用结束例程。如果没有表达式传递给退出函数，则返回默认值 0。 exit()函数的使用受到限制，不应用于退出子程序。要退出子程序，使用 die 或 return。

Syntax: exit(value)

Parameter: value which is to be returned on function call

Returns: the value passed to it or 0 if function is called without an argument

例子：

# Getting the user's bid for
# an online auction
print "Enter your bid";
$bid = ;
  
# Exit function returns $bid
# if bid is less than 1000
if ($bid < 1000)
{
    exit $bid;
}
  
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;

以下是上述程序的工作原理：-
第 1 步：以读取模式打开文件。
步骤 2：当无法打开文件时，如果块执行，则调用退出函数并将错误代码值 56 传递给系统。
第三步：如果打开文件成功则返回1。

为了查看 Linux/Unix 上的退出函数返回的值$?用来。命令echo $?在终端上执行以查看退出函数返回的值。