Image :: ExifTool'不要理解ImageInfo参数'

时间:2017-03-06 18:45:42

标签: perl exiftool

就像标题所说,Image :: ExifTool ImageInfo()不理解我的论点。为什么呢?

if ( $form->submitted_and_valid ) {

my $photo = $c->model('DB::Photos')->create(
    {
        name     => $form->param('photo_name'),
        path     => $c->req->upload('photo')->fh,
        caption  => $form->param('caption'),
        uploaded => DateTime->now,
        mime => $mime->mimeTypeOf( $c->req->upload('photo')->basename ),
    }
);

$c->stash->{status_msg} = "Successfully uploaded!";
$c->stash->{photo}      = $photo;
$c->detach;

...再往下,我从催化剂藏匿处获取$ photo对象

my $data = $photo->path->open('r') or die;
my $exif = new Image::ExifTool;
my $info = $exif->ImageInfo($data) # <- this should be a ref to an open image file

这里的问题在哪里?这是一个催化剂应用程序,我试图得到文件的exif_orientation,所以我可以旋转它,如果需要在网页上适当显示它。但是,我不能为我的生活获取图像文件中的exif信息。

这是文件的路径。是的,这个文件存在!我可以使用此路径在网页上显示它。

/usr/local/docs/www.test.com/public/myapp/root/static/photos/52/52A1F1BC-0281-11E7-A32D-B12F1463937A

我还使用外部工具检查了我正在使用的图像确实包含exif信息。

0 个答案:

没有答案