Perl: изменить объект ImageMagick в подпрограмме

Question

Я использую Perl (5.16) и ImageMagick (6.8.8). Я хотел бы отправить новый объект ImageMagick в подпрограмму по ссылке и изменить объект там, но я получаю «Не могу вызвать метод« Чтение »на странице без исправления». Очевидно, что я не обрабатываю объект должным образом в подпрограмме. Может ли кто-нибудь помочь? Благодарю.

my $im=Image::Magick->new; 
ModifyImage(\$im,$f); 

sub ModifyImage { 
    my $im=shift; 
    my $file=shift; 
    my $res = $im->Read($file); 
    warn $res if $res; 
} 

Answer 1

Ваш Image::Magick объект $im уже содержит ссылку на данные. Вам не нужно взять ссылку на переменную, и ваш вызов должен выглядеть

ModifyImage($im, $f); 

И я хотел бы написать подпрограмму, как этот

sub ModifyImage { 
    my ($im, $file) = @_; 

    my $res = $im->Read($file) 
    warn $res if $res; 
} 

, чтобы сделать его более кратким, и сделать ясно, что $im и $file являются параметрами.