如果在Perl中找不到所需的参数，则退出脚本
在Perl中，如果找不到所需的参数，可以使用die函数来退出脚本。die函数用于打印错误消息并终止程序的执行。
以下是一个示例代码：
# 检查参数是否存在
if (!$ARGV[0]) {
die "缺少所需的参数！";
}
# 继续执行脚本的其他部分
# ...在上述示例中，$ARGV[0]表示脚本的第一个参数。如果该参数不存在（即未提供），则会打印错误消息"缺少所需的参数！"并终止脚本的执行。
推荐的腾讯云相关产品：腾讯云函数（云函数是一种无服务器的事件驱动计算服务，可帮助您构建和运行云端应用程序，无需关心服务器管理和运维），产品介绍链接地址：https://cloud.tencent.com/product/scf
相关·内容
当我使用system运行我的perl程序时，我得到了以下错误。
> system("perl txt2xlsx.pl", intern=TRUE, wait=TRUE)
character(0)
attr(,"status")
[1] 2
Warning message:
running command 'perl txt2xlsx.pl' had status 2
但是，当我从终端/控制台运行该脚本时，它工作得非常好。出于测试目的，我将另一个仅将"Output“输出到屏幕的perl脚本放在相同的目录中，并使用以下命令运行它：
&
浏览 0提问于2012-07-30得票数 0
我在Windows中编译或运行Perl脚本时遇到了一些问题。我已经在我的视窗中安装了MinGW，以便使用包编译C代码。现在，我可以使用MinGW编译Perl脚本/代码吗？
浏览 0提问于2011-04-17得票数 1
回答已采纳
我在Perl脚本中使用Term::ANSIColor对终端输出进行着色，并使用colorstrip函数，根据changelog，该函数是在Term::ANSIColor版本2.01中添加的。那么，如果我脚本找不到至少是Term::ANSIcolor版本，有没有办法让它自动die并显示相应的错误消息
浏览 0提问于2011-01-23得票数 7
回答已采纳
我的简单脚本是这样的：
#!/bin/sh
DEF=.file_name_with_a_leading_dot.sh
. ${DEF}
注意顶部一行的/bin/sh。当我运行这个简单的脚本时，我会得到一个文件找不到的错误。但是，如果我将顶部行更改为#!/bin/bash，脚本就会在当前目录中找到该文件。
但是，在我的Ubuntu笔记本电脑上，我看到/bin/sh是到/bin/bash的一个符号链接。那么，为什么我的脚本表现不同呢？
此外，我还可以像这样运行脚本：
/bin/bash ./script.sh
这也没什么。
那我错过了什么？
浏览 4提问于2015-09-25得票数 12
回答已采纳
这是很基本的，但我找不到答案。安装程序设置my path，以便输入命令：
吴服务
在命令提示符和脚本运行。我不想等待这个程序完成(毕竟它是一个服务器)。如何在Powershell中启动相同的脚本(据我所知，它是一个CMD脚本)，而无需等待它完成(并且不必为脚本找到源目录)？
浏览 3提问于2021-02-23得票数 2
回答已采纳
我想使用perl脚本弹出一个警告框。当出现错误时，我使用exit 0成功终止shell脚本，使用exit 1终止shell脚本。我想在perl脚本中捕获这个退出代码。根据值0或1，我想弹出一个警告框，分别显示成功或失败消息。
浏览 5提问于2013-08-26得票数 6
有人能解释一下这个小型Perl脚本的功能吗？谢谢。
#!/usr/bin/perl
my ($file, $from, $to) = @ARGV;
my $fh;
my $matching = 0;
open($fh, $file) or die $!;
while(<$fh>)
{
if(/\Q$from\E/) { $matching = 1; }
if($matching) { print $_; }
if($matching && /\Q$to\E/) { last; }
}
close($fh);
浏览 5提问于2013-11-29得票数 0
回答已采纳
我在python脚本中到处返回0，但我更喜欢更语义、更易读的东西。我不喜欢那个神奇的数字。在python中是否有类似于在C中返回EXIT_SUCCESS而不是仅返回0的想法？
我在这里找不到它：
浏览 8提问于2016-03-05得票数 8
1回答
如果我正在编写一个用STDOUT的副本覆盖STDERR的Perl脚本，但是我从来没有恢复文件句柄，那么在脚本执行结束时会发生什么？我找不到任何对实际发生或没有发生的事情发出警告的东西。
我可能得到了错误的信息，但感谢您的耐心。
浏览 1提问于2013-01-03得票数 9
回答已采纳
1回答
如果在shell脚本中。有两个带循环的函数，我在脚本中运行这两个函数，并将这两个函数放在后台。
例如：
#!/bin/bash
function a {
for 1 in 2; do
if 3.sh; then
echo 'done'
else
exit 1
fi
done
}
function b {
for a in b; do
if c.sh; then
echo 'done'
else
exit 1
fi
done
}
a &am
浏览 0提问于2018-11-20得票数 0
回答已采纳
我需要从Windows中的Perl脚本内部运行以下命令。代码不能比这更简单了：
#! C:\Perl\bin\perl
perl -e "print qq(Hello)";
我将此文件另存为test.pl。我在Windows中打开一个命令提示符，并从c:\Per\bin目录运行以下命令。当我以perl test.pl身份运行它时，我得到以下结果：
C:\Perl\bin>perl test.pl
syntax error at test.pl line 3, near ""perl -e "print"
Execution of test
浏览 2提问于2010-08-16得票数 3
2回答
我正在尝试从Tcl执行一个Perl脚本。
我在Tcl中使用eval，它执行Perl脚本，但不执行Tcl文件中的其他命令。
Tcl：
eval perl perl_script
puts "Command executed"
结果:将执行Perl脚本，但不执行puts命令。为什么会这样呢？
浏览 1提问于2014-07-16得票数 1
回答已采纳
我有一个使用system()调用外壳脚本(intercp.sh)的perl脚本(verifyCopy.pl)。
在shell脚本内部，我已经设置了几个带有特定退出代码的退出，我希望能够根据返回的退出代码执行不同的操作。
我尝试过使用$?，我尝试将system("./intercp.sh")的值赋给一个变量，然后检查该变量的值，但错误消息始终为0。
这是因为即使shell脚本中的某些东西失败了，实际的脚本也可以成功运行吗？
我尝试在shell脚本中添加一个陷阱(即trap testexit EXIT和testexit() { exit 222; } )，但也不起作用。
浏览 0提问于2011-09-28得票数 1
我想在shell脚本中这样做：
#!/usr/bin/ksh
PERL_PATH=/usr/local/bin/perl
RET1=$(${PERL_PATH} missing_months_wrap.pl)
echo $RET1
我该怎么做？
如前所述调用perl脚本会给我一个错误：
> shell.sh
Can't return outside a subroutine at missing_months_wrap.pl line 269.
编辑:在perl脚本中，语句是:
unless (@pm1_CS_missing_months)
{
$SETFLAG=1;
}
浏览 3提问于2010-05-10得票数 3
回答已采纳
我在Windows命令解释器中遇到了一个非常奇怪的问题。它发生在XP和Windows 7上。下面的描述适用于Perl脚本，但这个问题适用于在带有命令行参数的命令行上运行任何类型的程序。
对于一个测试，我使用Perl脚本check-params.pl，它只输出它所看到的参数-
use strict;
use warnings;
while (my $param = shift @ARGV) {
print "Param: [$param]\n";
}
所以如果我跑-
perl check-params.pl "a b|<>" c^|^<^
浏览 3提问于2011-10-29得票数 7
回答已采纳
我的任务是将包含shell脚本、Perl代码的Shell脚本转换为Python。
我设法将Perl代码转换为Python。
但是有一个shell脚本语句，我不明白。
#! /usr/bin/sh
exec ${PERL-perl} -Sx $0 ${1+"$@"}
#! /opt/tools/perl5/bin/perl
Some Perl code which I converted to Python
这第二行是什么意思？
我知道$0将被计算为脚本名。
我假设${PERL-perl}会对机器上安装的任何Perl解释器进行评估(如果我错了，请纠正我，还请告诉我如何提到类似的)
浏览 0提问于2018-10-12得票数 0
回答已采纳
有两个选项可以运行shell脚本：
$ ./some/script.sh
$。./some/script.sh
据我所知，第一个脚本基于给定的shebang行和脚本启动了一个新的shell环境。而第二个在相同的shell环境中执行这些语句。
还有更多不同之处吗？
我在哪里可以找到关于第二个的更多文档？
.是真正的命令吗？我找不到它的手册页。
浏览 2提问于2012-08-14得票数 1
我有一个非常奇怪的错误。
我运行一个perl脚本，该脚本执行linux命令。它们的执行方式如下：
my $err = `cp -r $HTML /tssobe/www/tstweb/$subpath/$HTMLDIR1`;
myLog("$err");
并且$err为空，这意味着命令没有返回错误。(对吧？)
我尝试使用exec "“或system ()执行linux命令，但没有成功。我试着改变路径。一样的。
另外，我尝试在一个新的perl脚本中只运行cp命令。它起作用了。但不是在我的完整perl脚本中。
在这个perl脚本中，有些命令可以工作，有些命令不能工作。
脚本昨
浏览 1提问于2012-02-28得票数 0
回答已采纳
从info coreutils 'nohup invocation'中的nohup文档中可以看出：
Exit status:
125 if `nohup' itself fails, and `POSIXLY_CORRECT' is not set
126 if COMMAND is found but cannot be invoked
127 if COMMAND cannot be found
the exit status of COMMAND otherwise
然而，我从nohup得到的唯一的出口代码是1和0。我有一个nohup命令，它在脚
浏览 5提问于2013-03-27得票数 6
回答已采纳
1回答
据我所知，我们可以使用$?获得我们执行的命令的结果，如果程序员遵守约定，它将返回错误的非零结果和成功的结果。
但是当我们运行perl脚本时呢？
我在perl中是新手，但我认为perl脚本如果是模块的一部分，就会返回1，否则就不会返回任何内容。
那么，我如何知道我运行的perl脚本发生了什么呢？
浏览 2提问于2013-07-16得票数 2
我有一个bash脚本，其中有一个用Perl脚本编写的函数，该函数在bash脚本中被调用。但是，当我尝试在cron中运行脚本时，cron无法获取脚本，因为它显示需要root用户访问权限。当我执行脚本时，我切换到数据管理员角色来执行。我怎么做才能让cron也能执行这个脚本呢？ 很少有人建议将bash脚本转换为csh脚本，还要求我添加 source /central/confg/global.cshrc 这在脚本中，但我不擅长shell脚本，所以我在将bash脚本转换为csh脚本时遇到了问题。如果任何人有任何想法可以在这里做，请分享。
浏览 35提问于2021-08-25得票数 0
我有一个一行Perl搜索和替换，大致如下所示：
perl -p -i -e 's/foo/bar/' non-existent-file.txt
由于文件不存在(这不是有意的，但这是自动构建脚本的一部分，因此我想防止这种情况)，所以Perl退出时会出现以下错误：
Can't open non-existent-file.txt: No such file or directory.
然而，退出代码仍然是零：
echo $?
0
我做错了什么吗？我应该修改我的脚本，还是修改我调用Perl的方式？我天真地假设，因为Perl找不到文件，所以它会用非零代码退出。
浏览 1提问于2014-03-05得票数 5
回答已采纳
1回答
我有一个脚本，它循环通过几个服务器，如果发现一个特定的用户，它将输出他们的名字。我想修改单独的语句，这样如果找不到用户，就会输出'NO USER IDENTIFIED‘。
下面是一个单独的代码片段：
echo "environment1" sshpass -p $ldappw ssh $ldapuser@12.34.567.65 'mysql -h website.com -u topuser -ppassword dbname-e "select concat(FIRST,LAST) from users;"' | grep -i ${
浏览 0提问于2015-01-30得票数 0
2回答
我看到了脚本(见下文)，但找不到有关"-n“的更多信息。
my $numeric =0;
my $input = shift;
if ($input eq "-n") {
$numeric =1;
$input = shift;
}
my $output = shift;
open INPUT, $input or die $!;
open OUTPUT, ">$output" or die $!;
my @file = <INPUT>;
if ($numeric) {
@file = sort { $a <
浏览 1提问于2013-04-08得票数 0
回答已采纳
可能重复：
我正在尝试运行将SCXML转换为Graphviz DOT。我将脚本的第一行修改为：
#!/usr/bin/env perl
并对文件执行chmod +x操作。当我通过./scmxl2dot.pl运行它时，我看到以下错误输出：
在@INC中找不到LWP/Simple.pm (@INC包含: /opt/local/lib/perl5/site_perl/5.12.3/darwin-multi-2level /opt/local/lib/perl5/site_perl/5.12.3 /opt/local/lib/perl5/vendor_perl/5.12.3/darwin-mul
浏览 132提问于2012-05-10得票数 23
回答已采纳
1回答
在我的一次采访中，我遇到了一个关于shell脚本的非常基本的问题，但我找不到答案。问题是:如果脚本的第一行是"#!/bin/ksh“，我可以在bash上执行它吗？
我的回答是不。将指令作为脚本的第一行的原因是告诉需要使用哪个解释器。但面试官对这个问题的回答是肯定的。有人能解释一下原因吗？
浏览 4提问于2013-09-07得票数 1
我正在运行一个perl脚本，它反过来调用一个批处理脚本。我需要向批处理脚本传递3个参数。我之所以传递参数，是因为在perl脚本中读取文件和捕获所需的值更容易。但是，我的脚本出现错误--“系统找不到指定的路径。”
我使用了下面的代码--
while (<FILE>)
{
($file, $rcc, $loc) = split(',');
my @lines = qx/"D:\\SiebelAdmin\\Commands\\WinFile_Move.bat $file $rcc $loc" /;
}
浏览 1提问于2015-08-31得票数 0
我在Perl程序中生成一个node.js脚本，并希望通过node.js作为JavaScript解释器运行该脚本。canO如何在$script中运行节点，而不将其写入磁盘，然后调用节点，然后捕获输出。
我使用的是system命令，我认为这个命令很适合这个目的。
浏览 0提问于2012-06-01得票数 2
回答已采纳
我正在使用hp-ux box，并希望使用wget来测试url是向上还是向下。我得到一个错误wget找不到，同样的事情发生在curl命令上。请建议我可以用什么来代替wget和curl。
浏览 0提问于2017-01-06得票数 1
我需要使用JMeter获取后台进程的id。
我要找的是：
ps -ef | grep [b]ackend.js | awk '{ print $2 }'
我不能使用shell脚本，因为我不希望脚本是依赖项；是否有一种方法可以通过OS进程采样器或其他插件在JMeter中执行上述命令？
浏览 3提问于2017-01-25得票数 0
回答已采纳
我正在浏览一个(家庭编写的) Perl代码库，我看到：
# BEGIN blocks :
BEGIN {
... #do stuff
return 1;
}
#INIT blocks :
INIT {
... #do stuff
return 1;
}
我找不到BEGIN或INIT块中返回值的效果(或缺少)的任何信息。
我的问题是：
BEGIN或INIT块的返回值对模块的编译或执行有影响吗？
浏览 6提问于2014-12-03得票数 1
回答已采纳
2回答
我编写了以下shell脚本：
#!/bin/bash
counter=0
while [ $counter -lt 250 ]; do
perl Cumulative_Percentage.pl TP53.lst T1_endo.maf >> OutFile
perl Optimize_Panel.pl TP53.LST T1_endo.maf >> TP53.lst
let counter=counter+1
done
而且效果很好。问题是，它的循环次数往往比它所需要的要多得多。Perl脚本Optimize_Pa
浏览 2提问于2015-01-29得票数 1
回答已采纳
3回答
在GNU sed中，我可以显示成功替换搜索模式的结果。简单示例如下：
echo -e "nginx.service\nmariadb.service\nphp-fpm.service" > something.conf;
sed -ri 's|(mariadb)(\.service)|postgresql-9.4\2|w sed-output.log' something.conf;
[[ -s sed-output.log ]] && echo "Pattern found and modified. $(cat sed-outp
浏览 5提问于2015-12-29得票数 6
回答已采纳
我有一个shell脚本，它调用Perl脚本来执行一些文件处理。Perl脚本以零或一个值退出。如果Perl脚本的值为1，则在脚本开头有Unix set -e命令来中止该脚本。我只是在想，如果Perl脚本以一个值退出，那么在脚本中止之前是否可以使用Unix中的任何命令来执行一个命令？本质上，我希望脚本向我发送一封电子邮件，说明Perl脚本是否成功运行。我的代码现在看起来是这样的：
#!/bin/bash
set -e
function email_success {
#Some code for the email
}
function email_fail {
#Some code fo
浏览 0提问于2015-07-16得票数 1
回答已采纳
我想用sed修改一堆类似脚本中的一行。其中一些脚本实际上并不包含我想要更改的行。但是，sed并没有告诉我它没有更改行，因为它不在那里。有什么办法让sed发出警告吗？比方说，我有一个脚本
log export ALBET=0.155
log export ALBEG=0.218
log export RADGHGCOEF=1.0
和脚本二
log export ALBET=0.168
log export ALBEG=0.201
然后
sed -i 's/RADGHGCOEF=.*/RADGHGCOEF=2.0/' script
在
浏览 3提问于2020-09-11得票数 3
1回答
我有一个shell脚本，它有一个qsub命令，后面跟着其他依赖于qsub命令输出的命令。我有一个shell脚本，它看起来像
qsub <my_jobs>
cat <some_files>
grep <some_pattern>
我希望在脚本转到cat命令之前，qsub完成运行。我把"wait“放在qsub后面，但没有起作用。
浏览 1提问于2015-10-31得票数 1
假设我有一个Perl脚本，即mytest.pl。我可以像cat mytest.pl | perl -e这样运行它吗？
我之所以这样做，是因为我有一个加密的perl脚本，我可以在c程序中解密它，我想在c程序中运行它。出于安全性考虑，我不想将解密后的脚本写回硬盘，所以我需要在内存中动态运行这个perl脚本。
这个问题与cat命令无关，我只想知道如何将perl脚本提供给标准输入，并让perl解释器运行它。
浏览 2提问于2009-10-14得票数 7
回答已采纳
2回答
在我的Perl脚本中，如果我使用exit(-1)，脚本就会退出。但是如果我使用exit(-433)或exit(-233)，它就不会退出。为什么？下面是一个示例。
if ($result1[0] eq "Error") {
print "Error occurred while updating https route\n";
print "Error returned from the script:\n";
print $result1[1];
exit(-377);
}
浏览 0提问于2013-01-29得票数 0
回答已采纳
1回答
在bash中用于变量：
#!/bin/bash
set -o nounset
my_var=aaa
unset var
echo "$var"
由于set命令被定义为在未设置变量的情况下返回错误，所以最后一行返回错误：
第6行: var:未绑定变量
好吧，这就是我想要的。
现在，数组也是如此：
#!/bin/bash
set -o nounset
my_array=(aaa bbb)
unset my_array
echo "${my_array[@]}"
但令我惊讶的是，最后一行没有返回错误。我希望bash脚本在数组未定义时返回错误。
浏览 3提问于2022-03-03得票数 2
回答已采纳
2回答
我有一个perl脚本，用于在打开ssh shell之后执行第二层身份验证。它要求输入密码，在n次无效尝试之后，脚本应该注销用户。它在Debian系统上运行。
现在，问题是通常使用命令exit交互关闭ssh shell。
当从反引号或从perl脚本中的system()运行时，exit不能被识别为有效的命令。那么，如何从perl脚本中注销ssh会话中的用户呢？该脚本不负责ssh会话。它在遥控器上运行，并从.bashrc启动。
下面是相关的代码片段：
while ($actualpass ne $password) {
++$attempts;
if ( $attempts >
浏览 2提问于2014-06-01得票数 1
2回答
我有一个简单的脚本来检查今天的日期文件。在下面的示例中，如果找不到文件，则忽略below条件。为什么会这样呢？
if filedir=$(find . -type f -name "*.sql.gz" -mtime -1 -printf "%f\n"); then
echo $filedir
else
echo "oops"
fi
浏览 17提问于2022-07-22得票数 1
回答已采纳
1回答
我对perl脚本很陌生，我想知道在perl脚本的hashbang中"-w“的用法是什么。
#!/usr/bin/perl -w
my $userid = $ENV{USER};
print "$userid\n";
我知道这个部分#!/usr/bin/perl用于通知shell它是一个perl脚本，所以在运行脚本之前不需要使用perl。但是我找不到-w的确切含义，我看到的大多数脚本都有这个选项。请让我知道这是否有任何意义，因为我找不到任何区别。
编辑:下面的文档非常有用(由@Toto推荐)
浏览 0提问于2020-07-21得票数 1
回答已采纳
#!/bin/sh
date;
perl aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.pl
date;
脚本不存在，应该失败。
浏览 3提问于2013-11-25得票数 3
回答已采纳
如果cat someFile | ssh someHost不是bash脚本，我如何使someFile工作？我想远程执行一个perl脚本，但是当我尝试cat \ ssh命令时，会从bash中得到一堆语法错误。
浏览 0提问于2017-03-22得票数 6
回答已采纳
Basy手册说，对于命令bash：
如果存在此选项，或者在选项处理之后不保留参数，则从标准输入中读取命令。此选项允许在调用交互式shell时设置位置参数。
我想知道如何理解“如果在选项处理之后没有任何争论”？
例如，bash -c "echo hello"不从标准输入读取命令，而“在选项处理之后没有参数”，因为"echo hello"是选项-c的参数，而选项处理同时处理选项和它们的参数。
谢谢。
浏览 0提问于2018-04-05得票数 -1
我有一个bash脚本，它有一个while循环，可以遍历目录列表。每次传递时，它都会调用一个perl脚本来完成一些工作。
但是在第一次测试中，不管perl脚本是否成功退出，还是存在错误，外部shell脚本也会退出。
我玩过bash陷阱命令，并寻找答案，但尚未找到解决方案。谢谢你的建议..。
浏览 0提问于2016-06-14得票数 0
由于我的项目，我今天开始学习Perl脚本。
让我先给你定义一下我的项目，这样你就能清晰地看到我想要做的事情。
我正在为应用程序的测试运行编写脚本。当我的脚本执行时，它将接受用户的3个参数，然后它将为应用程序提供*.ini文件。在获取该文件之后，该脚本将从另一个位置执行另一个perl脚本，而这个第二个perl脚本将在(比方说) folder1中为我提供两个文本文件。在此之后，文件将是test.date1.txt和test.date11.txt，我的脚本将为同一应用程序从不同位置调用另一个perl脚本，第三个perl脚本还将在不同的文件夹中为我提供两个不同的文本文件(test.date2.txt和
浏览 5提问于2014-01-20得票数 0
回答已采纳
我正在尝试从Excel运行一些Perl代码。如果我尝试使用shell命令将某些内容传递给脚本，则无法返回值。我认为，如果我能够将脚本作为com模块或类似的东西运行，我可能能够从脚本中取回值、数组或哈希。有没有人知道这是否可能？如果是这样，又是如何做到的呢？任何帮助都将不胜感激。
浏览 3提问于2011-03-03得票数 0
1回答
Perl命令行解释器在出口崩溃
、、、、
我有一个问题，就是退出Perl Tkx脚本会导致Perl命令行解释器崩溃。
例如：
use strict;
use warnings;
use Tkx;
my $mw = Tkx::widget->new('.');
my $button = $mw->new_ttk__button(-text => "Hello", -command => \&main);
Tkx::pack($button);
Tkx::MainLoop;
sub main {
print "TESTING\n";
浏览 5提问于2015-06-08得票数 1
回答已采纳
2回答
我已经创建了一个简单的HTML，其中包含以下表单：
<form action="WEB-INF/cgi/run.pl" method="post">
<table border="0" cellspacing="0">
<tbody>
<tr><th align="center" bgcolor="F7F5F2"> <p class="normal">Submission
浏览 2提问于2012-08-05得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
