从perl中的对象中检索值

Question

我正在

$VAR1 = bless( \*{'Fh::fh00001Screenshot.png'}, 'Fh' );

在一个变量中。但我需要从中检索fh00001Screenshot.png。我怎么能得到它？

Answer 1

Fh模块在​​内部使用CGI包来处理用于构建多部分数据的临时文件。你不应该直接使用它。

在使用Fh::asString代码(my $name = $$VAR1) =~ s/^\*(\w+::fh\d{5})+//; print $name; 之前的代码之前，请仔细检查以确保没有更好的方法

Screenshot.png

<强>输出

CGI

<强>更新

不是从$var->asString代码中挑选出来的，而是看起来这个包 - 它应该是私有的 - 可以通过调用代码访问。改为使用use strict; use warnings; use CGI; my $var = do { no strict 'refs'; my $var = bless( \*{'Fh::fh00001Screenshot.png'}, 'Fh' ); }; print $var->asString; ，就像这样

{{1}}