如何在perl中获取转储函数的"Var1“值
如何在perl中获取转储函数的"Var1“值
提问于 2016-02-16 04:23:44
当我使用下面的代码时，它会给出输出，但我想要"width"，"file_media_type"，"file_ext“值，但我无法单独获得这个值。我是Perl新手，请帮帮我！
代码
use warnings ;
use strict;
use Image::Info qw[image_info];
use Data::Dumper;
my $file = 'd:\perl\test\a.jpg';
my $info = Dumper(image_info($file));
print $info;输出
$VAR1 = {
'width' => 45,
'file_media_type' => 'image/png',
'file_ext' => 'png',
'PNG_Chunks' => [
'IHDR',
'gAMA',
'cHRM',
'IDAT',
'IEND'
],
'Chunk-cHRM' => ' z% Çâ · ÇF u0 O` :ù ?o',
'PNG_Filter' => 'Adaptive',
'color_type' => 'RGB',
'height' => 20,
'Gamma' => '0.45454',
'resolution' => '1/1',
'SampleFormat' => 'U8',
'Compression' => 'Deflate'
};回答 1
Stack Overflow用户
发布于 2016-02-16 04:41:02
image_info($file)返回一个散列引用。查看转储，您知道可用的密钥(密钥是=>之前的字符串)
$info = image_info($file);
foreach my $key ( qw/width file_media_type file_ext/ ){
print "$key:$info->{$key}\n";
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/35423716
复制相关文章
点击加载更多
相似问题
如何测试使用useQuery的组件的示例？
主干网.基于组件的大型web项目的web样板
测试Python项目的示例目录
编写A-Frame的测试规范
在此示例中使用空返回的目的是什么？
腾讯云开发者
