内置ref($object)和Scalar::Util blessed($object)有什么不同？一个比另一个更受欢迎吗？
use strict;
use warnings;
use Scalar::Util qw(blessed isvstring);
my $object = foo->new();
print "Object is a " . blessed($object) . "\n";
print "Object is a " . ref($object) . "\n";
my $version = 5
浏览 0提问于2010-12-10得票数 8
回答已采纳
我遇到了一种情况(在记录各种数据更改时)，我需要确定引用是否具有有效的字符串强制(例如，可以正确地打印到日志中或存储在数据库中)。在中没有任何东西可以做到这一点，所以我使用该库中的其他方法拼凑了一些东西：
use strict;
use warnings;
use Scalar::Util qw(reftype refaddr);
sub has_string_coercion
{
my $value = shift;
my $as_string = "$value";
my $ref = ref $value;
my $reftype =
浏览 2提问于2010-04-09得票数 6
回答已采纳
ref返回标量值的空字符串。
为什么Scalar::Util::reftype 返回 undef 而不是像 ref 那样的空字符串？
undef的好处是什么？相比之下，空字符串的好处是在执行以下操作时减少编码：
reftype $data eq 'HASH'
当undef返回时，我们将得到Use of uninitialized value while eq at ...，我们应该这样做：
(reftype($data) //'') eq 'HASH'
浏览 0提问于2019-04-23得票数 3
回答已采纳
如何创建接受所有类型变量的子例程，并确定它是否是(标量、散列、数组或参考)
sub know_var {
my $this_var = shift;
if ($this_var eq "array"){
print "This variable is an array!";
} elsif ($this_var eq "hash") {
print "This variable is a hash!";
} elsif ($this_var eq "hash
浏览 3提问于2014-02-13得票数 0
回答已采纳
2回答
我正在尝试创建一个子例程，根据数据类型替换数据:问题是我无法获得参数的数据类型，我使用了以下方法：
sub replace {
my ($search, $replacement, $subject) = @_;
if (ref($search) eq "HASH") {
print "r is a reference to a HASH.\n";
}
elsif (ref($search) eq "SCALAR") {
print "r is a
浏览 5提问于2016-10-11得票数 1
回答已采纳
3回答
在perl中进行防御性编程的最佳(或推荐的)方法是什么？例如，如果我有一个必须用(已定义的)标量调用的子表、一个ARRAYREF和一个可选的HASHREF。
我看到的三种方法是：
sub test1 {
die if !(@_ == 2 || @_ == 3);
my ($scalar, $arrayref, $hashref) = @_;
die if !defined($scalar) || ref($scalar);
die if ref($arrayref) ne 'ARRAY';
die if defined($hashref)
浏览 5提问于2014-02-23得票数 2
回答已采纳
我无法理解，如果我取消注释返回行，那么输出将是“代码”，否则“标量”。为甚麽会这样？
use strict;
sub test {
my ($abc,$grab) = @_;
print 'i m here';
print $abc;
## return []; if uncommented then output will be "REF" else "SCALAR"
}
my $pass= "i m good";
my %my_hash = ();
$my_
浏览 4提问于2015-08-05得票数 2
回答已采纳
我有以下子例程。
sub Function{
my $ref = \($_[0]);
if(ref($ref) eq 'SCALAR'){
. . .
}
}
我试图让它工作起来，以便向它传递一个列表、标量或哈希，它会将其转换为一个引用，并根据该引用是ARRAY、SCALAR还是HASH类型，执行不同的操作。
它可以被称为
Function(%a)
Function($a)
Function(@a)
如何使$ref成为传递给Function的内容的引用？我目前的方法不起作用。
浏览 2提问于2012-09-25得票数 1
回答已采纳
我最近看到了一些提醒我问这个问题的代码。最近，我看到了很多这样的事情：
use Scalar::Util 'reftype';
if ( reftype $some_ref eq reftype { } ) { ... }
在匿名hashref上调用reftype的目的是什么？为什么不直接说eq 'HASH'呢？
浏览 0提问于2010-05-26得票数 5
回答已采纳
我犯了这个错误。我使用OpenCV和tryng来检测单个图像中的更多模板。这是我的代码：
int main() {
cv::Mat ref = cv::imread("image.jpg");
for (int i = 0; i < numTemplates; i++){
cv::Mat tpl = cv::imread(names[i]);
if (ref.empty() || tpl.empty())
return -1;
cv::Mat gref, gtpl;
浏览 3提问于2015-10-21得票数 1
回答已采纳
我正在做一个深度学习项目，在这个项目中我写了一些测试来评估神经网络中的净权重。evaluate_net_weight的代码如下所示
/*! Compute the loss of the net as a function of the weight at index (i,j) in
* layer l. dx is added as an offset to the current value of the weight. */
//_____________________________________________________________________________
浏览 1提问于2018-07-07得票数 1
3回答
我已经10年没有用Perl编程了，所以对于更有经验的Perl程序员来说，这可能是显而易见的事情。我找了一个答案，但什么也没找到。
我的问题是:为什么引用匿名数组标量？
例如，在以下代码中：
#!/usr/bin/perl
use strict;
use feature qw(say);
my @array1 = ('one');
say 'array ref 1: ' . \@array1;
my @array2 = ('one', 'two');
say 'array ref 2: ' . \@array2;
浏览 4提问于2015-12-10得票数 3
回答已采纳
我正在尝试将csv数据加载到我已经构建的数据库中，并得到上面提到的错误。CSV文件只有29行，所有的拼写都是正确的，我只是不知道是否遗漏了一些小语法？有人能推荐如何解决这个问题吗?或者我可能出了什么问题？
我的职能详述如下：
def load_csv_to_db():
db_file_name = 'records.db'
csv_file_name = '13100262.csv'
SQL = """
insert into records_table (ref_date,geo,dguid,sex,a
浏览 5提问于2020-03-21得票数 2
想着下一个。有一份清单
qw(a b c);
现在，将列表分配给匿名(匿名)数组。
[ qw(a b c) ]
所以下一个
use 5.016;
use warnings;
use diagnostics;
my $x = [ qw(a b c) ];
say ref $x; #ARRAY - the $x is an ARRAY reference, and
say $x->[1]; #prints "b", and
say [ qw(a b c) ]->[1]; #works too
但现在会发生什么呢？
use 5.016;
use warnings
浏览 1提问于2013-05-13得票数 6
回答已采纳
2回答
我想使用“编译的正则表达式”(我的意思是:形式为qr/../的表达式)作为散列结构的键。
为了在迭代散列keyes时区分常量字符串和这些正则表达式，我尝试使用ref()或is_regexp()，但前者返回一个空字符串，而后者不起作用。我担心我遗漏了Perl引用与标量之间的一些基本信息。
除此之外，我的解决方案似乎起作用了。这是不是太难看了？欢迎任何备选方案。
理解ref()函数的一些代码：
my $regex = qr/foo/;
printf "ref(\$regex): %s \n", ref($regex);
printf "is_regexp(\$regex):
浏览 0提问于2012-03-05得票数 5
回答已采纳
根据这个
我不应该使用UNIVERSAL::isa()，而应该使用$obj->isa()或CLASS->isa()。
这意味着首先要找出某个东西是否是引用，然后是对这个类的引用，我必须这样做
eval { $poss->isa("Class") }
检查一下$@和所有的口香糖，否则
use Scalar::Util 'blessed';
blessed $ref && $ref->isa($class);
我的问题是为什么？UNIVERSAL::isa这样调用有什么问题吗？对于像这样的东西，它要干净得多：
my $sel
浏览 1提问于2008-10-15得票数 17
回答已采纳
关于ref的perl问题。
$ref = [11, 22, 33, 44];
print "$$ref[0]" . "\n";
print "@$ref[0]" . "\n";
当我运行perl -d时。
DB<1> p @$ref
11223344
DB<2> p $ref
ARRAY(0x9dbf480)
DB<3> p \$$ref[0]
SCALAR(0x9dbf470)
DB<4> p \@$ref[0]
SCALAR(0x9dbf470)
$$ref代表数组的第一个标量
浏览 0提问于2012-06-17得票数 7
回答已采纳
我在List::Util中遇到了以下代码，用于Reduce子例程。
my $caller = caller;
local(*{$caller."::a"}) = \my $a;
local(*{$caller."::b"}) = \my $b;
我可以理解reduce函数是这样调用的：
my $sum = reduce { $a + $b } 1 .. 1000;
因此，我理解代码正在尝试引用在子例程中提到的$a。但是，我无法正确理解其意图。
作为参考，我添加了子例程的完整代码
sub reduce (&@) {
my $code = shift;
浏览 1提问于2012-12-10得票数 1
回答已采纳
我想解码一个复杂数据结构中的所有HTML实体。基本上，我在寻找一个“超级map()”函数。这是我到目前为止所知道的：
sub _html_decode {
my $self = shift;
my $ref = shift;
if (ref($ref) eq "HASH") {
$self->_html_decode_hash($ref)
}
if (ref($ref) eq "ARRAY") {
$self->_html_decode_array($ref);
}
浏览 0提问于2008-12-17得票数 1
回答已采纳
这是我的代码：
#!/usr/bin/perl -w
my $name = "mark";
my $nameRef = \$name;
print "${$nameRef}\n";
print "$nameRef\n";
my $ref = $nameRef + 1;
$$ref = "antony";
print "$ref\n";
print "$$ref\n";
但是，当我运行代码时，我会得到以下错误：
mark
SCALAR(0x9556cf8)
Modi
浏览 4提问于2014-07-05得票数 1
回答已采纳
我正在构建NIX，从源代码中使用。一切都按照指示进行，但最终在make上失败了。
我得到的错误是
caffeinated:nix sudoankit$ make all
[ 1%] Linking CXX shared library libnix.dylib
Undefined symbols for architecture x86_64:
"YAML::detail::node_data::set_scalar(std::basic_string<char, std::char_traits<char>, std::allocator<char>
浏览 0提问于2016-02-05得票数 1
回答已采纳
1回答
用户定义的转换运算符不适用于引用
、、、、
我有一个简单的原始类型包装器：
template <typename T>
class Scalar {
public:
explicit Scalar(T value) : value{value} {}
Scalar(Scalar&& other) = default;
Scalar& operator=(Scalar&& other) = default;
Scalar(const Scalar& other) = default;
Scalar& operator=(const Scalar&a
浏览 14提问于2017-03-16得票数 0
回答已采纳
我有以下c++非托管代码中的简单DLL；
extern "C" __declspec(dllexport) void ArrayMultiplier(float (*pointerArray)[3], int scalar, int length);
void ArrayMultiplier(float (*pointerArray)[3], int scalar, int length)
{
for (int i = 0 ; i < length ; length++)
{
for (int j = 0; j < 3; j++
浏览 1提问于2010-04-26得票数 1
1回答
我试图在Boost.Units 3.3.1中使用它，但是在遵循的指令和一些的信息之后，我仍然想不出如何使norm()工作。
下面是我到目前为止所得到的内容(很抱歉代码块很长)：
#include <boost/units/quantity.hpp>
#include <boost/units/systems/si/length.hpp>
#include <boost/units/systems/si/area.hpp>
#include <boost/units/cmath.hpp>
#include <Eigen/Geometry>
浏览 2提问于2017-01-07得票数 3
1回答
线程构造函数(变量数量)
、、、、
你好，我的程序有个小问题(我想用标量乘以数组)。
基本上，我想创建一个线程向量，它将执行乘法人员(一个元素一个元素)。
代码样本
第一mainImplementation函数
void mainImplementation(){
vector<thread> threads;
vector< vector<int> > result;
vector< vector<int> > tab;
vector<int> temp;
int row = 0;
int col = 0;
int scalar = 5;
loadDa
浏览 1提问于2013-11-05得票数 0
回答已采纳
我想创建一个像boolean findobject(Mat ref_img,Mat object_img)这样的函数，如果ref_img包含object_img，则返回true，否则返回false。我正在使用SurfFeatureDetector来查找ref_img中的对象，但是我不知道应该使用哪个参数来得出结论。提前谢谢。我使用下面的代码，虽然它有一个字符串返回值，但我想将其更改为bool。
String detect(Mat ref_img, Mat& output)
{
//cvtColor(img, gray, CV_RGBA2GRAY); // Assuming RGBA
浏览 0提问于2015-04-03得票数 0
2回答
我正在制作一个版本的SpaceInvaders，我希望我的镜头有一个对角移动。我试着用谷歌搜索，但我知道怎么做。
我得到了类实体：
public abstract class Entity extends Parent{
protected double x;
protected double y;
protected double dx;
protected double dy;
private Rectangle me = new Rectangle();
private Rectangle him = new Rectangle();
浏览 79提问于2016-06-01得票数 -1
回答已采纳
4回答
如何在Perl中正确定义匿名标量引用？
my $scalar_ref = ?;
my $array_ref = [];
my $hash_ref = {};
浏览 9提问于2015-08-07得票数 2
回答已采纳
给出的示例代码：
foo(bar=>"test");
foo(bar=>["test"]);
sub foo {
my $args = {@_};
say ref($args->{bar});
say ref(\$args->{bar});
}
产出：
{期望空白}
标量
列阵
参考
我想测试的是检查传递的是标量还是数组的最佳方法。类似于：
given( ref($args->{bar}) ){
when "SCALAR" { }
when "ARRAY"
浏览 6提问于2012-12-05得票数 1
回答已采纳
1回答
在下面的模板匹配代码中，我不明白下面一行在做什么：
cv::Mat res(ref.rows-tpl.rows+1, ref.cols-tpl.cols+1, CV_32FC1);
完整的代码是：
#include <opencv2/highgui/highgui.hpp>
#include <opencv2/imgproc/imgproc.hpp>
int main()
{
cv::Mat ref = cv::imread("ref.jpg");
cv::Mat tpl = cv::imread("temp.jpg")
浏览 4提问于2015-08-21得票数 0
1回答
我在android-studio上使用opencv 3.0.0，我需要将RGB图像转换为YIQ，所以我必须做一些加减方程式。我使用openCV的Core.Split从RGB图像中获取红、绿和蓝通道。然后，我使用以下公式计算YIQ图像：。在测试我的appp之后，我得到了这个错误：A/libc: Fatal signal 11 (SIGSEGV), code 1 (SEGV_MAPERR), fault addr 0x19b in tid 27631 (orstackoverflow), pid 27631 (orstackoverflow)，这是我的代码
public class MainAct
浏览 3提问于2018-09-24得票数 0
我构建了一个Perl 模块，但是排序有一些奇怪之处。有人知道为什么会这样吗？为什么4.0e-5不是第一辆？
my $ref = [ 5.0e-5,4.2e-5,4.3e-5,4.4e-5,4.4e-5,4.2e-5,4.2e-5,4.0e-5];
use Inline C => <<'END_OF_C_CODE';
void test(SV* sv, ...) {
I32 i;
I32 arrayLen;
AV* data;
float retval;
SV** pvalue;
Inline_Stack_Vars;
dat
浏览 5提问于2009-04-29得票数 3
回答已采纳
1回答
我得到了以下代码： #include <iostream>
#include <eigen3/Eigen/Dense>
class MyVectorType: public Eigen::Matrix<double, 3, 1> {
public:
MyVectorType(void) :
Eigen::Matrix<double, 3, 1>() {
}
typedef Eigen::Matrix<double, 3, 1> Base;
// This constructo
浏览 21提问于2019-02-03得票数 0
回答已采纳
我正试图在android应用程序中实现一些计算机视觉功能。
我已经集成了opencv，我正在为它编写本地c++代码，这称为使用JNI。一切似乎都在起作用。我的问题是，当执行计算机视觉代码，以下一行崩溃应用程序，没有任何错误。
detector->detectAndCompute(usr_img,usr_mask,usr_keypoints,usr_descriptors);
如果我用的是球体探测器，而不是筛子，它就能工作。在我的物理设备上，它随后在knnMatch上崩溃。然而，在模拟像素5上，它正确地完成了。也许这和我的opencv和android版本有关？
以下是完整的计算机视觉代码：
浏览 6提问于2021-12-03得票数 0
此代码：
#!/usr/bin/perl -w
use strict;
use Scalar::Util qw(looks_like_number);
sub what_the_fudge {
my $string = "foo 123 bar";
if ($string =~ /foo (.+) bar/) {
if (looks_like_number($1)) {
print "$1 looks like a number\n";
} else {
prin
浏览 6提问于2013-08-12得票数 4
回答已采纳
1回答
我对这个opencv库有点问题..。
Imgproc.cvtColor(image , image , Imgproc.COLOR_RGBA2RGB);
Mat prob_fgd = new Mat(1, 1, CvType.CV_8U,
new Scalar(Imgproc.GC_PR_FGD));
try {
Imgproc.grabCut(image, firstMask, rect, bgModel, fgModel, 3, 0);
} catch (Exception w) {
浏览 3提问于2014-10-10得票数 0
回答已采纳
2回答
嵌套函数调用作用域和语法
、、、
我试图调用一个嵌套的递归perl函数，但我无法确定正确的语法。
问题：对嵌套函数执行递归调用的正确语法是什么(如果应该递归调用嵌套函数)？
答案:指已接受的答案中建议的伪码.
下面是一个伪代码片段：
use Scalar::Util;
sub outerfunction {
my $innerfunction = sub {
# Do something
innerfunction();
# Do other things
};
Scalar::Util::weaken($innerfunction);
&$innerfunction(@_
浏览 1提问于2012-03-08得票数 4
回答已采纳
1回答
我想使用带有的进行自动区分。
当我将两个向量相乘时
#include <iostream>
#include <fadiff.h>
#include <Eigen/Core>
int main(int argc, char *argv[])
{
using Scalar = fadbad::F<double>;
using VectorXs = Eigen::Matrix<Scalar, Eigen::Dynamic, 1>;
VectorXs a(2);
VectorXs b(2);
S
浏览 0提问于2017-08-14得票数 2
我可能遗漏了一些显而易见的东西，但我不明白为什么下面的Perl通过创建数组引用，而不是或其他一般引用？
print @$arr; # no output
print ref $arr; # no output
print scalar @$arr; # no output
print ref $arr; # no output
print sort @$arr; # no output
print ref $arr; # no output
print grep { 0 } @$arr; # no output
print ref $arr; # ARRAY
我可能遗漏了一些显而易见的东西，或
浏览 2提问于2014-08-28得票数 6
回答已采纳
我只是好奇-你能不能在不诉诸eval的情况下从标量变量创建一个v-字符串？
也就是说，这是可行的，但使用了eval
my $var = 'v1.2.3';
my $conversion = to_vstring_1($var);
# Prints "Version: 1.2.3, type: VSTRING"
printf("Version: %vd, type: %s\n", $conversion, ref \$conversion);
sub to_vstring_1 {
my ($arg) = @_;
$arg =~
浏览 3提问于2016-07-12得票数 7
回答已采纳
1回答
纹理坐标OSG GLSL
、、、、
我有一个500x500像素的图像，我将其转换为Texture2D格式，并将原始数据返回给C++/OSG。我遇到过纹理坐标的问题( GLSL上的坐标从0到1)。有人能帮我解决这一点吗？
C++代码：
cv::Mat test = cv::Mat::zeros(512, 512, CV_8UC3);
test(cv::Rect( 0, 0, 255, 255)).setTo(cv::Scalar(255,0,0));
test(cv::Rect(256, 0, 255, 255)).setTo(cv::Scalar(0,255,0));
test(cv::Rect( 0, 256, 2
浏览 25提问于2018-03-11得票数 1
1回答
#include <opencv2/highgui/highgui.hpp>
#include <opencv2/imgproc/imgproc.hpp>
int main()
{
cv::Mat ref = cv::imread("beethoven_ode_to_joy.jpg");
cv::Mat tpl = cv::imread("test.jpg");
if (ref.empty() || tpl.empty())
return -1;
cv::Mat gref, gtpl;
浏览 1提问于2015-12-27得票数 0
我想返回一个空数组，而不是一个空列表。
我有个子，它能返回一系列的东西。我想用它做这件事：
my $count = scalar getArray();
我就是这样做的：
sub getArray {
if ( !isGood() ) {
return ();
} else {
my @array = calculateSomehow();
return @array;
}
}
my $count = scalar getArray();
当!isGood()和$count变成undef，而不是0时，我有了一个惊喜！在阅读
浏览 7提问于2016-03-17得票数 2
回答已采纳
我对Tk并不熟悉，我想知道所讨论的问题是否是正常的Tk行为。
简而言之:我有一个Perl/Tk ( two 804.028)脚本，它使用两个Tk::ExecuteCommand (v1.6)小部件。这样的对象有一个execute_command方法，它使用定义的文件事件回调来读取已执行的命令的stdout，并在它完成后返回。它是通过使用waitVariable来解决的。但是，如果两个ExecuteCommand一起启动，它们只在较慢的返回时才返回。我可以预期，在完成后，更快的回报会立即出现。
我做了一个小小的测试Perl/Tk脚本来演示这个问题：
#!/usr/bin/perl
use st
浏览 8提问于2017-01-05得票数 5
回答已采纳
我有以下三项任务，其中第二项似乎不符合标准：
my $realRef = [1, 2, 3];
my @nonRef = [4, 5, 6];
my $nonRef = [7, 8, 9];
第二个问题实际上应该是以下几点：
my @nonRef = (4, 5, 6);
在打印时，所有三个变量都包含数组引用，特别是仅在@和$中不同的相同命名变量不共享相同的数据或覆盖彼此。
Ref: ARRAY(0x1fd6a8); $VAR1 = [
1,
2,
3
];
Ref: ARRAY(0x6445d8); $VAR1
浏览 4提问于2020-07-09得票数 2
回答已采纳
使用clang3.6.0，我无法编译以下代码示例。
#include <type_traits>
template <typename T> constexpr bool IS_SCALAR = ::std::is_scalar<T>::value;
template <typename T, bool = IS_SCALAR<T>>
struct Class_Breaks
{
};
template <typename T, bool = ::std::is_scalar<T>::value>
struc
浏览 2提问于2015-05-15得票数 9
回答已采纳
我在我的DynamoDB模板(用YAML编写)中提供了一些CloudFormation表资源，而在模板的其他地方，我提供了一个AppSync端点。
我不指定表的名称，让CloudFormation为它们生成名称。每当我需要指定表名时，我使用
!Ref TableName
我想在DynamoDB中使用AppSync批处理解析器，它要求我列出表的名称，但是"!Ref TableName“在更新堆栈时不会转换为表的名称。解析器以"!Ref TableName“作为表名结束。
是否有办法将CloudFormation生成的表的名称转换为AppSync模板语言？
下面是我的CloudFo
浏览 0提问于2018-09-21得票数 1
回答已采纳
我正在使用来自CPAN的Net::Twitter模块，但我对它有一个小问题。
下列子例程在Twitter上搜索一个术语，但我似乎只能得到一个哈希值(即：%哈希(0x9096dc0)
如何获取推文中的内容？
sub twit_search
{
my $term = shift @_;
my $page = 1;
my @results;
while (scalar @results < $opts{maxresults})
{
my $rset = $handle->search({query=>$term, page => $page, rpp =&
浏览 0提问于2011-02-16得票数 1
我使用的是ScalarDB，它在Cassandra上提供ACID功能。在删除记录时，我得到了com.scalar.db.exception.transaction.InvalidUsageException: the record to be deleted must be existing and read beforehand异常。
我正在从几个表中删除条目(因此使用Scalar提供Atomocity)。我在开始时创建了一个DistributedTransaction，然后开始删除这些条目。
def deleteQuestion(questionKey:PracticeQuestionKe
浏览 4提问于2020-08-02得票数 0
回答已采纳
关于java-8语法的简单问题。为什么JLS-8会限制这样的表达式：
Object of_ref = Stream::of; // compile-time error
并且只允许这样的东西：
java.util.function.Function of_ref = Stream::of;
Object obj = of_ref; // compiles ok
浏览 4提问于2015-03-16得票数 22
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
