如何在Perl中检查几个变量是否为空
在Perl中，可以使用条件语句和逻辑运算符来检查多个变量是否为空。以下是一个示例代码：
# 定义变量
my $var1 = "Hello";
my $var2 = "";
my $var3 = undef;
# 检查变量是否为空
if ($var1 eq "" || !defined $var1) {
print "变量 var1 为空\n";
} else {
print "变量 var1 不为空\n";
}
if ($var2 eq "" || !defined $var2) {
print "变量 var2 为空\n";
} else {
print "变量 var2 不为空\n";
}
if ($var3 eq "" || !defined $var3) {
print "变量 var3 为空\n";
} else {
print "变量 var3 不为空\n";
}在上述代码中，使用了条件语句和逻辑运算符来检查变量是否为空。eq运算符用于比较字符串是否相等，!defined用于检查变量是否已定义。如果变量为空或未定义，则输出相应的提示信息。
在Perl中，还可以使用其他方法来检查变量是否为空，例如使用length函数检查字符串长度是否为0，使用exists函数检查哈希表中的键是否存在等。具体方法可以根据实际需求选择。
腾讯云相关产品和产品介绍链接地址：
相关·内容
所以我对Perl很陌生。我知道下面的代码应该生成完整的二叉树。但是如果($n)是什么意思呢？它是否检查变量$n是否为空？
sub tree {
my ($n) = @_;
my @result = ();
if ( $n ) {
for $right_count ( 0 .. $n-1 ) {
for $right ( tree( $right_count ) ) {
for $left ( tree( ($n-1) - $right_count ) ) {
push @result, "1$left$right
浏览 0提问于2018-10-21得票数 0
回答已采纳
我在以前的帖子中搜索过，也看到过类似的讨论，但这个问题从未得到满意的回答。本质上，我在PHP中寻找一种快速、优雅和简单的方法来问这样一个问题：“这是否存在，如果存在，它是否有一个非零的非空值？”不会在“非对象属性”场景或未定义变量中抛出通知。
下面是我测试过的场景和几个版本：
// Setting up
$a = ['key' => 'value', 'otherKey' => 'otherValue', 'sub' => ['key' => 'value']
浏览 1提问于2018-01-18得票数 2
回答已采纳
2回答
我有，并删除了msysperl5.6。
现在，perl将调用Strawberry (由于PATH env)，但是如何将perl命令映射到具有#!/bin/perl或#!/usr/bin/perl谢邦行的.pl或其他Perl脚本文件中？
我正在考虑在msys/bin中创建一个指向perl.exe的硬链接，或者将整个草莓合并到msys目录中，但我不确定。
浏览 5提问于2009-12-04得票数 8
我在make文件中声明了一个变量，如下所示
var_COVERAGE_FLAGS?=
我为名为coverage的目标中的变量赋值
coverage:var_COVERAGE_FLAGS = -MDevel::Cover=-silent,on,+select,/home/scratch.ataur_gpu/run_steps/client/dev1/dev/inf/run/mainline/lib,+ignore,^\\w+
coverage:var_COVERAGE_POST=2>&1 | grep -v "Can't";
coverage:var_
浏览 3提问于2015-08-10得票数 0
在写这个问题之前，我花了一些时间试图找出答案：
我的nginx文件中有几个location块，如下所示：
location ~ ^/(doc|img|bla|foo)/metadata/$ { ... }
location ~ ^/(doc|img|bla|foo)/deleted/$ { ... }
location ~ ^/(doc|img|bla|foo)/something/$ { ... }
因此，我认为将重复的正则表达式重构为我在server部分中设置的变量(也因为我知道将来必须添加)是个好主意，如下所示：
server {
set $my_regex doc|img
浏览 0提问于2018-02-20得票数 4
1回答
我认为这是一个非常基本的perl问题，但我不能通过它。
我正在使用LWP::UserAgent包在perl脚本中构建post请求。代码如下：
my $urlStr = "http://localhost/testproj/AServlet";
my $postDataStr = "{name => \'ankur434\'}";
my $response = $ua->post($urlStr, $postDataStr);
上面的代码不起作用，并给出以下错误-
<Dec 6, 2010 3:15:54 PM IST> &
浏览 1提问于2010-12-06得票数 0
回答已采纳
4回答
给定以下代码
#!/usr/bin/perl
use Data::Dumper;
my %hash;
my @colos = qw(ac4 ch1 ir2 ird kr3);
foreach my $colo (@colos) {
if(exists $hash{output}{$colo}) {
print "$colo is in the hash\n";
}
}
print Dumper(\%hash);
我创建了一个空的散列。我有一个数组，里面有几个缩写。如果我在数组中循环查看这些人是否在散列中，则不会向STDOUT显示任何内容，
浏览 0提问于2012-03-20得票数 7
回答已采纳
2回答
搜索与特殊字符相似的字符
、、、、
我有几个旧的文本文件，这些文件是在90年代用一个旧的DOS时代的文字处理器生成的。由于当时存在的限制，在数据输入过程中有许多“简化”的条目。
例如，"Náufragos“一词被输入为"Naufragos”。
现在，当在上述数据文件中搜索"Náufragos“时，我使用grep查找"Náufragos”，搜索结果为空(应该是空的)，但我确实需要搜索才能找到并输出"Naufragos“。
我已经梳理了grep文档，并搜索了大量的内容，但结果却是空的。
任何解决方案都需要处理涉及大多数(如果不是全部)基于拉丁字母的“变体”(即在所述旧数据文件中没有中文、西里尔
浏览 3提问于2016-04-10得票数 0
回答已采纳
所以，我有几个变量，我需要检查空值，如果我能以某种方式做这件事，而不是像这样比较每一个人，那会更好，也更容易。
if ($var1 ne "" && $var2 ne "" && $var3 ne"")
有更好的方法吗？
PS:如果有人打算把它们放在散列中并循环它们，那么它们已经在散列中了，但它们并不是唯一存在的，我有很多其他的值(代码后面需要所有这些值，所以分裂起来并不容易)。
浏览 8提问于2015-07-15得票数 4
回答已采纳
2回答
我所做的工作如下：
$ ./input ""
输出：
argc 2
argv[1][0] 0
但是，如果我想以基于程序的方式传递(几个)空引号：
$ python -c 'print "\"\""'
""
./input $(python -c 'print "\"\""')
给予：
argc 2
argv[1][0] 22 - (22 hex value for ")
那么，我如何生成这样的东西：
$ ./input "" "
浏览 0提问于2019-01-26得票数 7
回答已采纳
我有一个url，可以是www.website.com/order/?pg3=2或www.website.com/orderstatus/?pg2=
最后可能有几个组合和数字，我真正想做的就是检查pg2或pg3是否为空？
我不确定如何实际访问url中的post变量，有时url可能根本没有这些变量？
$(document).ready(function () {
if(pg2 != ''){
//Does a click
$("#add2").click();
}
if(p3 != ''){
$("#ad
浏览 0提问于2012-03-28得票数 0
回答已采纳
1回答
我为一个包含大约80个函数的C库编写了一个Perl XS包装器。现在，我的一般策略是用PL_sv_undef替换来自C函数的错误，并且调用Perl的代码必须显式地检查返回是否不是undef。(对于一些C函数，由于我将它们的输出转换为HV/AV并使用空列表报告错误，因此要复杂得多。)
现在，当我使用这个库编写更大的Perl脚本时，我想简化错误处理，并使用常见的eval {}/die类异常机制来处理错误。
目前，我的XS中的一个简单的XSUB看起来像这样：
SV *
simple_function( param1, param2 = 0, param3 = 0)
int
浏览 3提问于2010-09-03得票数 5
回答已采纳
我对Perl还比较陌生，在重新分配非核心模块方面需要一些帮助。这是整个故事。
Perl脚本中使用了两个非核心模块：XML::Simple和SOAP::Lite。我使用的版本(目前在Windows上)是Strawberry Perl，因此已经包含了这两个模块。但是，我们不知道最终用户(Unix/Linux系统)是否有这两个模块，因为它们可能只有标准版本，因此只有核心模块。我的目标是让最终用户做尽可能少的配置/安装。
首先，我试图了解是否有类似于XML::Simple和SOAP::Lite的核心模块。不幸的是，我没有找到(如果我错了请纠正我)。
所以我想现在唯一的选择就是重新分配这两个模块。我检查
浏览 3提问于2012-07-05得票数 4
回答已采纳
2回答
假设我有一个没有数据的类：
struct Empty {
/*some methods here*/
};
和一个派生类
struct Derived: Empty {
int a;
int b;
char c;
....
}__attribute__((packed));`
空类的对象的大小为1，派生类的空部分通常为0。正如我所理解的，编译器看到基类空类没有数据，所以如果它是“内部”派生的，那么它可以优化空类的大小，但是标准不要求它这样做。
所以问题是：
我是否可以在编译时确定派生类的空部分并不真正占用内存。
我知道我可以像sizeof(Derived) = sizeof
浏览 3提问于2017-01-16得票数 10
有没有一种方法可以检查变量是否已经在C中初始化？
考虑以下示例：
int main(){
int a = 3, b = 7, c;
if ( a > b )
c = a-b;
// Now, how can I check if the variable "c" has some value or not
// I don't want check like this,
// if ( isalpha(c) ) or if ( isdigit(c) )
// or anything similar
浏览 5提问于2016-04-08得票数 44
回答已采纳
我想检查laravel 8中是否有像IsNullOrEmpty for C#这样的函数，只使用一个函数来检查空值和空值。
浏览 11提问于2020-11-18得票数 0
回答已采纳
5回答
为了检查输入字段是否为空或有任何值，以下两种方法是否会以相同的方式工作？或者他们中的任何一个都比其他人好？
if ($options['url']) {
..
}
或
if ( isset ($options['url']) && ($options['url']!="") ) {
..
}
浏览 4提问于2012-06-27得票数 0
回答已采纳
我想通过solaris servier中的perl脚本连接oracle数据库。在当前的perl版本5.8.4中，能够看到DBI已经安装，但不是DBD::Oracle。我没有根访问和工作，我的家庭用户身份。下载DBD-Oracle-1.50，并在我的perl脚本存在的本地目录中解压缩。我希望将DBD Oracle库文件复制到自定义目录中，并运行脚本，因为我没有根访问权限。当我在DBD-Oracle-1.50中阅读安装脚本时，它说对于，我需要运行以下脚本。因为我没有根访问权限，所以我想将库模块复制到本地目录中。不知道如何告诉这些脚本将其安装在我的perl脚本所在的本地目录中。
在用户id下
浏览 6提问于2012-10-02得票数 1
回答已采纳
如果我使用以下代码
public boolean updateContact(Integer id, String name, String surname, byte[] image)throws SQLiteException
{
SQLiteDatabase db = this.getWritableDatabase();
ContentValues contentValues = new ContentValues();
contentValues.put("MyName", name);
contentValues.put("M
浏览 1提问于2016-03-18得票数 0
回答已采纳
(GNU)使用几个，如：
CC -- C编译器，默认情况下是cc
CFLAGS -- C编译器的标志，默认为空
我想在我的Makefile中指定其中一些值的默认值。在下面的示例中，我使用条件赋值操作符?=在运行make时能够覆盖我的默认值。
CFLAGS ?= CFLAGS_my_default
CC ?= CC_my_default
print:
echo CC=$(CC) CFLAGS=$(CFLAGS)
不幸的是，这并没有改变CC变量的值，因为原始的默认值仍然存在。CFLAGS由我的赋值设置，因为变量最初是空的：
$ make print
echo CC=cc
浏览 11提问于2013-08-02得票数 24
回答已采纳
在我的TYPO3流体模板中，我有一个值，在显示它之前，我想检查它是否为空。我现在的方式是：
<f:if condition="{myvalue}">
<div class="myclass">{myvalue}</div>
</f:if>
当我输入像"test“或"2”这样的后端值时，这是有效的，如果我没有键入任何内容，它就不会显示div标记。但是，当我输入后端"0“时，条件也不正确。如何修正整数0将被显示，如果它的空(在数据库中为NULL)没有显示？(值为0是非常常见的情况)
顺便说一句，
浏览 3提问于2015-10-01得票数 5
回答已采纳
<?php
$username = $this->session->all_userdata();
$myname = $username['logged_in']['filepath'];
if ($myname === "") {
?>
<img src="<?php echo base_url(); ?>assets/uploads/userpic/dummy.jpg"/>
<?php
} else {
?>
<!---<img sr
浏览 0提问于2015-09-10得票数 0
我尝试过示例代码 (a = b + c)。令人惊讶的是，现实并不是预期的行为。
在Win7和LO 4.4.2.2中，我看到a和b被声明为值为0的整数，而c为空。
对于Ubuntu 16.04和LO 5.1.6.2，它们都是空的。
你知道如何解释第一个案例吗？
浏览 0提问于2017-05-18得票数 0
我试图用shell中与其匹配的bash变量的值替换字符串中由字符分隔的子字符串。
到目前为止，我已经尝试过，但没有成功：
varone="noob"
vartwo="trivial"
echo "my {varone} and {vartwo} question" | perl -pe 's|(.*){(\w+)}(.*)|${1}'$(echo "${'${2}'}")'${3}|g'
但我明白：
bash: ${'${2}'}: bad substitution
浏览 4提问于2019-09-25得票数 3
回答已采纳
如何检查perl中的空标量？如果我没有$list，我就不想发送电子邮件。
我可以在send_email例程中检查空消息，还是在外部检查？
我有一个使用的查询。
my $servSet = $wmiObj->ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName LIKE 'ServiceNameHere%'", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly);
我在这里遍历它并构建一个列表$list
foreach m
浏览 0提问于2011-08-06得票数 4
回答已采纳
我想编写一个批处理文件来静默地安装Perl。但是，服务器/PC可能已经安装了Perl，批处理文件的流程将是：
检查是否安装了Perl。
如果未安装，请静默安装。
我知道如果Perl安装了，命令perl-v会报告Perl版本，但不知道如何通过windows批处理文件在服务器/PC上检查perl命令是否可执行。
浏览 6提问于2016-06-19得票数 2
我在IE8中得到一条荒谬的错误消息，告诉我常量'2‘是空的，或者不是一个对象。代码行是：
if (! localtree[idx][2]) {
我也尝试过像这样编写代码：
if (localtree[idx][2] == 0) {
该位置的数组中的值始终为零(目前而言)。
IE8怎么能认为数字2是空的呢？我被弄糊涂了！
确切的错误是：
Message: '2' is null or not an object
有人看过这个吗？
编辑: --这是一条非常误导的错误消息。请看我下面的答案，看看到底出了什么问题。
浏览 4提问于2010-12-07得票数 2
回答已采纳
在OS X上用Perl 5.24进行测试
我试图弄清楚为什么尝试更新受限哈希只在哈希键受到限制时才清除哈希表(违反原子性)。如果lock_hash已应用于哈希，则非法修改将完全回滚。
Hash::Util索赔的部分文档。
注意事项
注意，受限操作的捕获不是原子性的:例如
eval { %hash = (illegal_key => 1) }
使%散列为空，而不是使用其原始内容。
我最初想了解单个操作(比如更新单个非法密钥)是否是原子操作，以及在这种情况下Perl 5.24是否会发出警告，但当我第一次尝试时，我无法再现这种行为。
#!/usr/bin/env perl
use st
浏览 5提问于2016-12-29得票数 3
回答已采纳
我对perl中的比较表达式的值感到非常困惑：
print "why... ",1>2, "\n";
我得到以下结果：
why...
那么，为什么"1>2“的结果是空的呢？这本书告诉我"$a>$b“是0或1。
浏览 9提问于2017-05-26得票数 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
回答已采纳
我的代码中有这个问题，我解决了这个问题，并认为这个解决方案会帮助其他人。
我有一个对象列表，需要检查对象变量是否更少、更多、是否等于其他变量，问题是我在列表中并不总是有一个对象，所以python会给出一个索引错误，因为列表将是空的，所以我尝试使用try来捕获错误，但是它使代码变得混乱和难以阅读。
为了简化起见，我只想说:如果list.value < value2:执行此操作，如果列表索引不存在，或者条件不是True，则转到else语句。
我将在下面给出解决方案，其他任何人也可以自由地给其他人解决方案。
浏览 2提问于2022-07-18得票数 -1
我想绕过在我的应用程序中调用FileChooser对话框所需的按钮，所以我将其设置为当文本框获得焦点时，FileChooser就会自动启动。
这很容易做到，但问题是，在用户选择一个文件并点击on之后，他们所在的文本框仍然处于焦点状态，因此FileChooser会“卡住”并继续重新激活。
我会将其设置为跳转到下一个控制框，但接下来的几个框也会启动一个FileChooser，如果FileChooser看起来只是停留，there...they可能会认为它被卡住了，这会让用户感到困惑。
是否有办法从控件中移除焦点？
提前感谢您的帮助！
浏览 3提问于2011-06-13得票数 1
回答已采纳
我想(需要)从检查某些环境变量的perl脚本启动一个子进程。在一种情况下，环境变量需要在那里但为空。
$ENV{"GREETING"} = "Hello World"; # Valid
$ENV{"GREETING"} = ""; # also valid
我可以设置$ENV{"GREETING"} = ""；在这个perl脚本中，$ENV{"GREETING"}是空的，但是在任何子进程中，该环境变量都不在那里。
下面是一些用于演
浏览 1提问于2009-08-25得票数 3
回答已采纳
2回答
我读过这个问题
以及答案中机器人框架的 文档，但我仍然不知道如何检查变量是否为空。
我想做这个
if var A equals var B then
do something
else
do something else
其中A是一个字符串，它既可以包含空的，也可以包含空的，其中B是空的或空的。
浏览 2提问于2018-10-23得票数 2
回答已采纳
4回答
当我通过几个subs传递一个变量时，它总是变成空的。为什么会这样呢？
sub Main {
my $myVariable = "Test string";
firstSub($myVariable);
}
sub firstSub {
my($myVariable) = @_;
my @array = `some command`;
secondSub(@array, $myVariable);
}
sub secondSub {
my(@array, $myVariable) = @_;
print $myV
浏览 0提问于2012-10-19得票数 0
我在TFS模板中修改了一个工作流，在这个工作流的头部我初始化了一个名为NextChainBuildDefinition的字符串数组。在几个步骤之后，我尝试检查这个数组是否为空。
我是这样做的：
String.IsNullOrEmpty(CStr(NextChainBuildDefinition.Count))
在此之后，我看到了错误：Exception Message: Value cannot be null.因此NextChainBuildDefinition为空，并且在该步骤中它抛出了一个异常。
如何检查此字符串数组是否为空？
浏览 0提问于2014-10-03得票数 3
回答已采纳
我需要跳过ansible循环中列表中的值null。我使用的是when条件，仍然打印空值。下面是我的剧本：
- hosts: localhost
vars:
show:
- read
- write
- null
- test
val: []
tasks:
- name: Fact
set_fact:
val: "{{val+[item]}}"
loop: "{{show}}"
when: item != "null"
-
浏览 3提问于2020-11-30得票数 2
回答已采纳
是否有一个特殊的变量或函数可以在运行脚本时提供use VERSION (在本例中为5.12.0)的编号？
#!/usr/bin/env perl
use warnings;
use 5.12.0;
浏览 2提问于2012-02-07得票数 5
回答已采纳
我计划在变量test-ing=3.0中使用(连字符-)，但无法打印值$test-ing。我知道连字符不会在shell上工作，有没有可能在不更改变量名的情况下打印变量值？
浏览 0提问于2020-01-23得票数 5
回答已采纳
我正在为我的调试器写一个测试。
subtest "main" => sub {
$ENV{PERL5DB} = 'Devel::AllSubs';
my $stderr = capture_stderr {
sub foo { bar(); }
sub bar { 1; }
foo();
};
$ENV{PERL5DB} = '';
is $stderr, "main::foo\nmain::bar";
};
如何将调试程序应用于
{
s
浏览 0提问于2019-01-08得票数 2
我有一个类，其中有一个名为pGrade的string对象，pGrade在每次加载时都显示为0。我只想检查并将其设置为空白。但是，由于某些原因，我的pGrade被设置为空，我尝试了很多次调试和观看-仍然没有运气来解决这个问题。我检查pGrade是否等于0，然后将pGrade设置为空字符串。谢谢你的帮助。
下面是我的代码：
if (pGrade.equals("0")) {
pGrade = "";
}
浏览 38提问于2018-12-19得票数 -3
使用Perl，如何确定我的程序是运行在32位Windows还是64位Windows上？
有可用的API吗？
我能想到几个选择..。
查看一些windows文件的PE_HEADER (例如：c:\windows\explorer.exe) --也许我可以使用中的详细信息
检查是否存在c:\program files(x86) -如果它存在，那么它就是64位操作系统。否则，它是一个32位的windows操作系统。
有什么好办法吗？Perl中有可用的API吗？
浏览 2提问于2010-01-08得票数 11
回答已采纳
2回答
我需要处理一个指针，以便通过回调获得它的值。这是有问题的，因为该指针在第一次调用期间为空。因此，执行pointer.contents执行ValueError: NULL指针访问。要避免这种情况，如何检查指针是否为空？
浏览 3提问于2015-09-03得票数 7
回答已采纳
我想在我的代码中检查空值或空值。在Java中，StringBuilder中的空和空是否相同？
例如：
StringBuilder state = new StringBuilder();
StringBuilder err= new StringBuilder();
success = executeCommand(cmd, state, err);
/* here executeCommand() returns empty or null in state, I cant make changes in <br/> executeCommand() so can I
浏览 9提问于2014-02-04得票数 20
回答已采纳
设置：
我正在处理一个Java项目，该项目调用一些Perl脚本。
问题：
如果我从终端运行Perl脚本，它可以正常工作。但是，当我使用Java代码中相同的参数调用相同的Perl脚本时，它会失败。这是一个非常奇怪和烦人的错误。
我能够使用EPIC插件在Eclipse中调试Perl。当然，我可以调试Java代码。在Eclipse中的同一个调试会话中调试Java和Perl代码是很有帮助的，这样我就可以看到在通过Java代码调用脚本时会发生什么不同的事情。
不确定这是否可能，但如果有人有任何想法，请分享。
谢谢。
浏览 4提问于2013-06-01得票数 1
我有几个字符串，如id、name、age等，我想检查它们是否为空或空，如果为空或空，则抛出带有错误消息的异常，例如："id不能为空或空“。
这就是我现在要做的，但是如果第一个条件是正确的话，我需要一个一个地检查它们，是否有一种方法可以使代码变得简单和简单呢？
if(（StringUtils.isNotEmpty(id) && StringUtils.isNotEmpty(name) && StringUtils.isNotEmpty(age)) == false) {
if(StringUtils.isNotEmpty(id) == false)
浏览 2提问于2021-07-12得票数 1
回答已采纳
我不想安装多个perl实例。
如何在Ubuntu 14.04中将Perl升级到最新版本或删除已安装的Perl并安装新版本的Perl。在新安装后，是否会与旧安装文件冲突。
浏览 11提问于2016-01-13得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
