请问怎样用Perl获取远程图片的信息呢？

2008-08-05 11:53:09 226 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

perl+shell+实现自动化测试（更新图片）目录第一章项目技术背景介绍1.1 项目背景1.2 技术背景1.3词汇解释第二章测试方案的设计2.1 需求分析第三章测试工具的设计与实现3.1 测试工具的设计3.2 测试工具的实现3.2.1 Linux服务器的远程控制3.2.2 应用程序的启动与停止3.2.3 测试时间的控制3.2.4 本地命令的执行3.2.5 远程文件的拷贝阅读详情

...全文

CVE-2021-22205漏洞复现：GitLab ExifTool参数注入与远程代码执行分析文件解析漏洞是Web安全领域的常见威胁，其核心原理在于应用程序对用户上传的文件内容处理不当，将不可信输入直接传递给底层解析库执行。这类漏洞通常源于解析库（如ExifTool、ImageMagick）在处理特定文件格式时，对嵌入的元数据或注释字段解析存在缺陷，可能通过参数注入或命令拼接导致代码执行。从技术价值看，理解文件解析漏洞有助于构建纵深防御体系，提升对供应链攻击的防范能力。其典型应用场景广泛存在于依赖第三方库处理图片、文档、音视频等用户上传内容的系统，例如代码托管平台、内容管理系统和协作工具。本文以Gi 阅读详情

mylove0623

CGI 2,203 成员 4,518 内容

+ 关注 + 加入社区

切换为时间正序

mylove0623 2008-08-05

打赏
举报

没高手么？？？？？

mylove0623 2008-08-05

打赏
举报

宽度和高度

mylove0623 2008-08-05

打赏
举报

忘记说了。我获取远程图片的有可能是php生成的图片。

mylove0623 2008-08-05

打赏
举报

我明天测下盐水小鱼大哥的好使不。刚学perl。如果这个都不好使的话。我对perl就失去信心了。php都可以 getimagesize()
明天加100啊。放心啊。

mylove0623 2008-08-05

打赏
举报

杀虫剂大哥。你说的
你试试这个模块Image::Size

my ($width, $height, $format) = ImageSize($filePath);
这个我试了。他只对存在本地服务器的图片好使。对于远程的。完全没用。

bigman_lfj 2008-08-05

打赏
举报

use Image::Magick;
$image - Image::Magick->new;
($iwidth,$iheight,$isize,$iformat) = $image->Ping("..........your imgage file");
print "ping...".$iWidth;

----------------------------------------------
$image->Get("width","height")方法也是可以得到的。

wx红杉树 2008-08-05

打赏
举报

你试试这个模块Image::Size

my ($width, $height, $format) = ImageSize($filePath);

wx红杉树 2008-08-05

打赏
举报

要在 Perl 中获取图象文件的尺寸需要以二进制方式打开文件，然后读取尺寸数据并转换为整数；文件大小可以使用 Perl 标准功能完成。下面的代码只需调用 PictureSize 并使用文件路径参数就可以以数组的方式返回图象的宽度、高度和文件大小(注意: 这段程序只支持 JPG 和 GIF 文件):
---------------------------------------------------------------------
sub PictureSize {
my $gw = 0;
my $gh = 0;
my $gs = 0;
my $sl;
my $filepath = $_[0];

$gs = &FileSize($filepath);

if ($filepath eq '') {
return (0, 0, $gs);
}

open(FH, $filepath) || return (0, 0, $gs);
binmode FH;
read(FH, $buff, 3);
if ($buff eq 'GIF') { # Gif
read(FH, $buff, 3);
read(FH, $buff, 2);
$gw = &Str2Int($buff, 1);
read(FH, $buff, 2);
$gh = &Str2Int($buff, 1);
} elsif ($buff eq "\xff\xd8\xff") { # Jpg
read(FH, $buff, 1);
read(FH, $buff, 2);
$sl = &Str2Int($buff, 0);
read(FH, $buff, $sl);
read(FH, $buff, 2);
$sl = &Str2Int($buff, 0);
read(FH, $buff, $sl);
read(FH, $buff, 3);
read(FH, $buff, 2);
$gh = &Str2Int($buff, 0);
read(FH, $buff, 2);
$gw = &Str2Int($buff, 0);
}
close(FH);

return ($gw, $gh, $gs);
}

sub Str2Int {
my $str = $_[0];
my $mode = $_[1];
my $intnum;
if ($mode == 0) {
$intnum = ord(substr($str, 0, 1)) * 256 + ord(substr($str, 1, 1));
} else {
$intnum = ord(substr($str, 1, 1)) * 256 + ord(substr($str, 0, 1));
}
return $intnum;
}

sub FileSize {
return (-s $_[0]);
}
---------------------------------------------------------------------
调用方式为:
($picwidth, $picheight, $picsize) = &PictureSize($Pathname);
这里的 $Pathname 是文件路径。

---------------------------------------------------------------------

mylove0623 2008-08-05

打赏
举报

高手来啊。我明天加到100分。

mylove0623 2008-08-05

打赏
举报

我不想下载下来啊。

fnever 2008-08-05

打赏
举报

下载下来再处理不就好了么，要看图片的具体格式的

请问怎样用Perl获取远程图片的信息呢？

相关推荐