我有一些从命令行获取的字符串作为参数,如果特定参数已被传递,我需要运行该块,否则它会显示打印语句并退出。
我正在使用两个块,其中在第一个块中我使用ne运算符来检查字符串是否不等于所需的字符串,然后退出程序并eq运算符来检查传递的字符串是否相等,然后执行代码。
下面是我的代码片段:
my $number_args = $ #ARGV + 1;
if ($number_args ne 2) {
print "Usage: perl testAutomation.pl <ExcelSheetName.xlsx> <Production/Development/All>.\n";
exit;
}
my $tstRunSheet = $ARGV[0];
my $tstRunType = $ARGV[1];
if ($tstRunType ne 'Development' || $tstRunType ne 'Production' || $tstRunType ne 'All') {
print "Usage: perl testAutomation.pl <ExcelSheetName.xlsx> <Production/Development/All>.\n";
exit;
}
elsif($tstRunType eq 'Development' || $tstRunType eq 'Production') {
($result1, $result2, $result3, $result4, $result5, $result6, $result7, $result8) = & getXlxsDetails($tstRunSheet, $tstRunType);
}
Run Code Online (Sandbox Code Playgroud)
当我根据elsif块中的要求提供正确的字符串时,它仍然在运行该 …