读取JPEG文件perl

时间:2012-03-01 13:24:55

标签: perl

我正在处理一个带有JPEG文件的网页。有没有办法读取实际的JPEG文件本身?

我知道read-in perl可以获取JPEG的文件句柄。但是我想知道是否有一种方法可以在没有文件名的情况下篡改整个文件?感谢您的帮助。

1 个答案:

答案 0 :(得分:1)

我有很多问题,但是如果你需要在不知道文件名的情况下使用已经打开过的文件中的Perl文件句柄,那就写下这样的东西

use strict;
use warnings;

sub slurp_handle {
  my ($handle) = @_;
  local $/;
  return readline $handle;
}

chdir "$ENV{USERPROFILE}\\Pictures" or die $!;

open my $fh, '<', 'images.jpg' or die $!;

print slurp_handle $fh;