- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的脚本中有以下几行:
my $spec = shift;
if (!defined $spec) {
return ("Invalid specification", undef);
}
$spec = "$spec" // '';
我自然希望在传递undef
时,在数组中返回警告无效规范
,第二项是undef
。相反,检查通过了,并且我收到一条控制台消息,警告我在下一行中Use of uninitialized value $spec in string
。
$spec
是一个具有字符串和数字重载的对象,不幸的是,它的编写方式是尝试测试此特定子例程中的真实性(通过 if ($spec)
例如)会导致深度递归和段错误。
虽然我对为什么会发生这种情况感兴趣,但我更对如何让它停止发生感兴趣。我想消除控制台警告,最好没有 no warnings qw/uninitialized/
。这可能吗?如果可以,我该怎么做?
最佳答案
你说 $spec
是一个带有 string overloading 的对象.
如果是这种情况,那么您需要在检查它是否被定义之前将其强制转换为字符串形式:
if (! defined overload::StrVal($spec)) {
每个周期的修正
正如 ysth 在 StrVal 中指出的那样,不会强制重载的字符串化:
overload::StrVal(arg)
Gives the string value of arg as in the absence of stringify overloading. If you are using this to get the address of a reference (useful for checking if two references point to the same thing) then you may be better off using Scalar::Util::refaddr() , which is faster.
因此,要实现这一目标,请尝试他的其他建议:
"$spec" trapping warnings and detecting the uninitialized var warning. Better to add a method to the class to test for whatever case returns undef.
以下演示了这种方法:
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;
my $obj_str_defined = StringOverloaded->new("has value");
my $obj_str_undef = StringOverloaded->new(undef);
ok( is_overloaded_string_defined($obj_str_defined), qq{\$obj_str_defined is defined} );
ok( !is_overloaded_string_defined($obj_str_undef), qq{\$obj_str_undef is undef} );
sub is_overloaded_string_defined {
my $obj = shift;
my $is_str_defined = 1;
local $SIG{__WARN__} = sub {
$is_str_defined = 0 if $_[0] =~ /Use of uninitialized value \$obj in string/;
};
my $throwaway_var = "$obj";
return $is_str_defined;
}
{
# Object with string overloading
package StringOverloaded;
use strict;
use warnings;
use overload (
'""' => sub {
my $self = shift;
return $$self; # Dereference
},
fallback => 1
);
sub new {
my $pkg = shift;
my $val = shift;
my $self = bless \$val, $pkg;
return $self;
}
}
输出:
1..2
ok 1 - $obj_str_defined is defined
ok 2 - $obj_str_undef is undef
关于perl - 无论如何,字符串重载变量都被视为已定义,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40073283/
我想制作一个主要功能取决于发送短信的应用程序。在我开发 android(native) 之前,但现在我使用 React-Native 使其适用于 IOS 和 Android。 在android中,如果
我想重新运行一个测试类,包括它的 @BeforeMethod当其中任何一个是 @Test失败。我已经实现了 TestNG 重试逻辑来重新运行失败的测试用例,但我想运行整个类。 最佳答案 可以这样做。
前几天我遇到了一个接线员,-),而我找到的一个名称“arrow application”通常链接到 the other kind of Arrow present in Haskell ,这似乎无关。
我希望能够在我的sql语句中获取记录的ID: $result = $db->query("select id,FQDN, ip_address, ....."); 但是,我不希望它使用标题显示在导出中
我刚刚在Windows XP中激活了主题(通常使用经典的Win9x外观进行工作),并且看到两个面板是纯黑色的。其他面板也可以(颜色= clBtnFace)。 这两个面板的共同点是它们的父面板。两者都直
我正在研究使用数据库存储到该数据库条目的生成的链接,该链接包含有关该数据库条目的更多信息。因此,您会看到一些数据库,然后单击该条目并打开一个新页面,其中包含有关该条目的更多信息。 我一直在寻找一种可以
这里有几篇与此主题相关的帖子,但我已经应用了与我读到的所有内容相关的内容: CSS .infoWindow { width: 90px; height: 90px; } 创建信息窗口并
我目前正在编写使用sqlite3的脚本。最近,由于我的代码因错误而提前退出,我遇到了另一个程序正在使用该数据库的问题。 遇到类似问题,通常使用: conn = sqlite3.connect(...)
我只想在Redis数据库中使用1个键值对。并且该值将每60秒减少1。可能吗? 最佳答案 一个有趣的问题:)是的,您可以花一些技巧。 众所周知,Redis TTL会随着时间自动降低。因此,您可以将TTL
我尝试了数十种不同的方式来播放来自YouTube或服务器的视频,而没有使其进入全屏模式。我知道这是有可能的,因为YouTube应用程序允许这种情况发生,但似乎无法弄清楚该怎么做。请指教! 最佳答案 看
是否有办法在jade文件或其他模板引擎中编写服务器端nodejs代码(如down代码)? (或没有模板引擎): extends layout block content p Welcome to
Closed. This question needs to be more focused。它当前不接受答案。 想改善这个问题吗?更新问题,使其仅关注editing this post的一个问题。
您好,我最近下载并打开了适用于everyplay android的unity软件包,想知道我是否还能抓取玩游戏的用户上传到youtube的视频的URL?看来,实际共享功能的大部分代码是外部的,我看不到
我正在尝试在 Google 表单的网址中传递查询参数,并将该表单提交给其他人来填写,因此我希望 onSubmit 事件检查该查询参数并获取它。 我的 onSubmit 事件有以下代码: functio
我有一个这样的功能,我想将单元格放在网格列的左侧和右侧,现在它只是一个一个地放置,对于左侧网格列,它应该是 ,对于正确的,可以是 ,有没有根据索引区别对待,如果是奇数则属于左Grid Column
我有以下索引模板 { "index_patterns": "notificationtiles*", "order": 1, "version": 1, "aliases": {
我有一个Docker容器,该容器将具有大量(大约100个)自定义设置。与将默认值全部编码到DockerFile中相比,我希望具有更大的灵活性。我注意到docker run命令支持此选项: --env-
我有一个带有指针的谷歌地图。我已经对其进行了设置,因此每当缩放发生变化或视口(viewport)发生变化时,它都会相应地加载一组新的指针: google.maps.event.addListener(
我有一个php容器,每次启动容器时都需要启动php-fpm。现在,由于php-fpm config文件中的配置错误,fpm无法启动,因此,容器无法启动。无论如何,我可以在没有php-fpm的情况下启动
我正在运行没有sudo访问权限的docker容器 docker run -it --user 739000:8500 blabla... 无论如何,我可以在没有sudo访问的情况下在此docker容器
我是一名优秀的程序员,十分优秀!