perlовым скрпиптом gif анимашку в excel

[Sommer]

всем привет )

есть такая задача - на серверах лежат гифы, скрипт по определенным правилам(view) собирает эти гифы согласно переданным скрипту путям и нужно это положить в эксель для последующего анализа.

у меня стоит актив перл 5.8.8 и 2003 офис.

для записи данных в эксель использую такой модуль - http://www.activeperl.com/ASPN/CodeDoc/Spreadsheet-WriteExcel/WriteExcel.html

у него есть метод - insert_bitmap($row, $col, $filename, $x, $y, $scale_x, $scale_y)

а у меня гифы. как преобразовать анимированный(иногда не анимированный) гиф в бмп? в модуле не хотелось бы пользоваться какими-нибудь тулзами типа ImageMagick, посмотрел модуль Image - http://search.cpan.org/search?query=Image&mode=module - ничего подходящего не нашел, хотя догадываюсь что вопрос решается легко )

помогите пожалуйста? )

[RXL]

Sommer, на CPAN сходи: www.cpan.org
http://www.cpan.org/modules/by-category/18_Images_Pixmaps_Bitmaps/

Думаю это тебе подойдет: http://www.imagemagick.org/script/perl-magick.php

[Sommer]

ага, спасибо )
только я написал что "в модуле не хотелось бы пользоватьсякакими-нибудь тулзами типа ImageMagick"
CPAТ я тоже умею пользоваться(сам ссылку дал на него), только вот я не нашел там нужного(может быть плохо искал), поэтому хотелось бы услышать комментарий человека, который пользовался )

[RXL]

Судя по описанию, богат возможностями Image::imlib2, но это лишь интерфейс к реальной библиотеке imlib - ее нужно ставить отдельно.

Графикой в perl как-то заниматься не пришлось.

[Sommer]

всем еще раз спасибо )
случайно наткнулся на win32::OLE )) и скрипт преписал
документации никакой не нашел, поэтому опытным путем(параллельно просматривая документацию на вбейсик) научился вставлять картинки в эксель:

$targetEx = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) or die "Oops, cannot start Excel";
$targetEx->Worksheets(1)->Cells($nRow,$nColumn)->Select;
$targetEx->Worksheets(1)->Pictures->Insert($FilePath);

теперь такая проблема:
my $ddt = "V:vob_path\\file_name.gif@@\\main\\branch_name\\1";#это структура пути в Clear Case
$targetEx->Worksheets(1)->Pictures->Insert($ddt);

картинка вставляется

но если я этот путь получаю путем енких манипуляций, то картинка не вставляется...
я вывожу на экран этот до и после вызова метода insert, выводится то же что в $ddt(см. пример), в чем может быть загвоздка?...

Добавлено через 1 минуту и 10 секунд:
стал выводить на на экран с кавычками - print "'$FilePath'\n";
увидел что в конце стоит перевод строки - вопрос решился )