[Perl] Конвертирование изображений

Discussion in 'PHP' started by apofis, 5 Jan 2010.

  1. apofis

    apofis New Member

    Joined:
    23 Feb 2009
    Messages:
    13
    Likes Received:
    0
    Reputations:
    0
    Как можно в Perl конвертировать изображения?
    Например из .png в .jpg?

    Пробовал так:

    Code:
    use Image::Magick;
    my $image = Image::Magick->new;
    my $x = $image->Read("picture.png"); 
    $x = $image->Write("picture.jpg");
    Но не могу нормально подключить Image::Magick. Никак не получается....

    Какие-нибудь, кроме этого, методы существуют?
     
  2. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    809
    Reputations:
    231
    http://search.cpan.org/~lds/GD-2.44/GD.pm
     
    _________________________
  3. apofis

    apofis New Member

    Joined:
    23 Feb 2009
    Messages:
    13
    Likes Received:
    0
    Reputations:
    0
    А можно рабочий пример конвертирования из одного формата в другой? А то чет не получается....
     
  4. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    809
    Reputations:
    231
    use GD;
    my $image = GD::Image->newFromPng('file.png');
    my $jpeg = $image->jpeg;

    и $jpeg в файл
     
    _________________________
  5. apofis

    apofis New Member

    Joined:
    23 Feb 2009
    Messages:
    13
    Likes Received:
    0
    Reputations:
    0
    Вообщем, я тут сам посидел, подумал. Вот что в итоге получилось:

    use GD;

    open(PNG,"pic.PNG");
    $im = newFromPng GD::Image(PNG);
    open(PICTURE, ">pic.jpg");
    binmode PICTURE;
    print PICTURE $im->jpeg;
    close PICTURE;

    Работает отлично)

    Kaimi, спасибо за помощь)