LINUX.ORG.RU
Форум — Development  

PerlMagick ЧЯДНТ?


0

0

Вроде все просто.

$ ls -l test.*
-rw-r--r-- 1 user user 38816 2008-11-05 11:06 test.jpg
-rwxr-xr-x 1 user user   284 2008-11-05 11:31 test.pl

$ identify test.jpg
test.jpg JPEG 320x240 320x240+0+0 DirectClass 8-bit 37.9062kb

$ ./test.pl
No such file or directory at ./test.pl line 5.

$ nl test.pl
     1  #!/usr/bin/perl -w
     2  use strict;
     3  use Image::Magick;
     4  my    $image = new Image::Magick          or die "$!";


     5        $image->Read  ('test.jpg')          or die "$!"; 
 
     6        $image->Resize(geometry=>'160x120') or die "$!";
     7        $image->Write ('test1.jpg')         or die "$!";
     8  undef $image;

Сабж?

★★★★★
← [perl]Как вызвать функцию в выражении замены?
Как принято работать с сишными массивами в С++? →
Ответ на: комментарий от anonymous

То же самое и с полным путем тоже.

sdio ★★★★★
() автор топика
Ответ на: комментарий от anonymous

Пофиг. Даже abs_path не помогает. Чё то серьёзно не так.

anonymous
()

Может, оно не test.jpg найти не может, а что-то иное от самого PerlMagic'а? Просто ошибка диагностики?

...

А если тупо прочитать test.jpg из Перла через open - как?

KRoN73 ★★★★★
()

> or die "$!"

Меняй на and die "$!" :) аффтары perlmagic - ненатуралы и ошибку возвращают через задницу.

anonymous
()
Ответ на: комментарий от anonymous 

Оно!
$ nl test.pl
     1  #!/usr/bin/perl -w
     2  use strict;
     3  use Image::Magick;
     4  my    $imge = Image::Magick->new          or die "$!";
     5        $imge->ReadImage  ('test.jpg')      and die "$!";
     6        $imge->Resize(geometry=>'160x120')  and die "$!";
     7        $imge->Write ('test1.jpg')          and die "$!";
     8  undef $imge;

$ ./test.pl

$ identify *.jpg
test1.jpg   JPEG 160x120 160x120+0+0 DirectClass 8-bit 17.8359kb
test.jpg[1] JPEG 320x240 320x240+0+0 DirectClass 8-bit 37.9062kb

sdio ★★★★★
() автор топика

sdio, расскажи плиз, как ты сделал такое форматирование? я это лоровское форматирование никак осилить не могу :) Ну или ктонть, ткните на полное описание форматирования, а то телепатически приходится форматить :)

Deleted
()
Ответ на: комментарий от anonymous

+1, с кода ошибок у них глюк, ставь or warn

kranky ★★★★★
()

strace | grep ENOENT или что-то типа того

OxiD ★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← [perl]Как вызвать функцию в выражении замены?
Development
Как принято работать с сишными массивами в С++? →