» Как добавить модуль в Perl
OLEX
ЗЫ ftp://ftp.imagemagick.org/pub/ImageMagick/binaries/ImageMagick-5.5.7-Q8-windows-dll.exe тебя спасёт...
раньше ента версия была кривая и весила 5.36, ща поправили, работает и весит 6 мб ... я уже поставил и проверил... ы ничего нэ нада мЭйкить
ЗЫ ftp://ftp.imagemagick.org/pub/ImageMagick/binaries/ImageMagick-5.5.7-Q8-windows-dll.exe тебя спасёт...
раньше ента версия была кривая и весила 5.36, ща поправили, работает и весит 6 мб ... я уже поставил и проверил... ы ничего нэ нада мЭйкить
Cheery
Цитата:
KVCH
Скачал енту штуку, а она при установке ругается, типа ей не подходит билд перла. Перл у меня был 5.6 с чем-то. Отрыл какую-то допотопную версию перла, тоже ругается. Щас качаю перл 5.8, до утра надеюсь скачаю посмотрю...
Добавлено
Мне и надо-то всего размер картинки узнать в пикселях ширину и высоту.
Может как-то подручными средствами можно?
Цитата:
http://www.imagemagick.org/www/Install-windows.htmlтут ничего не понял
KVCH
Скачал енту штуку, а она при установке ругается, типа ей не подходит билд перла. Перл у меня был 5.6 с чем-то. Отрыл какую-то допотопную версию перла, тоже ругается. Щас качаю перл 5.8, до утра надеюсь скачаю посмотрю...
Добавлено
Мне и надо-то всего размер картинки узнать в пикселях ширину и высоту.
Может как-то подручными средствами можно?
А КТО ТАКОЙ ПЕРЛ ЭТО БАРАН ТАКОЙ
SF_SpA
Цитата:
Цитата:
А КТО ТАКОЙ ПЕРЛ ЭТО БАРАН ТАКОЙНасчет перла сомневаюсь, а ты точно!
А что такое происходит когда Running make test?
При установке install DBI у меня Running make test пишет, что test не является внутренней или внешней командой...... test -- NOT OK
А потом сразу Running make install нехочет запускаться.
И чего дальше делать?
При установке install DBI у меня Running make test пишет, что test не является внутренней или внешней командой...... test -- NOT OK
А потом сразу Running make install нехочет запускаться.
И чего дальше делать?
safo
Цитата:
У тебя какая OS?
Цитата:
И чего дальше делать?
У тебя какая OS?
Cheery W2000
safo
Цитата:
Это означает, что у тебя, скорее всего, Active Perl... а для него уже есть откомпилированные модули (у тебя не идет выше, так как не стоит, похоже, VC или какой другой компилятор, и все, что выше - делается под *nux).
делаешь так, как описано в самом начале для ppm
http://forum.ru-board.com/topic.cgi?forum=31&topic=2566#1
Цитата:
Cheery W2000
Это означает, что у тебя, скорее всего, Active Perl... а для него уже есть откомпилированные модули (у тебя не идет выше, так как не стоит, похоже, VC или какой другой компилятор, и все, что выше - делается под *nux).
делаешь так, как описано в самом начале для ppm
http://forum.ru-board.com/topic.cgi?forum=31&topic=2566#1
скачал с http://www.activestate.com/PPMpackages/zips/ модуль image-magick
устанавливаю его просто install C:\Image-Magick\Image-Magick.ppd
установка проходит нормально, но файлы от модуля он ставит не в диру перла а прямо на диск С:. При работе с модулем возникают проблемы (перл пытается найти файлы модуля у себя в дире). в чём проблема?
другие модули (ставил ещё и GD) ставятся нормально.
устанавливаю его просто install C:\Image-Magick\Image-Magick.ppd
установка проходит нормально, но файлы от модуля он ставит не в диру перла а прямо на диск С:. При работе с модулем возникают проблемы (перл пытается найти файлы модуля у себя в дире). в чём проблема?
другие модули (ставил ещё и GD) ставятся нормально.
Xnom
Да не ставь ты руками.
В папке перла найдешь файл ppm.bat
Запускай его.
Это приближенно, почти тоже самое, что и модуль CPAN , о котором я писал тут.
Сам качает модули с activestate, и сам же их корректно инсталит..
Да не ставь ты руками.
В папке перла найдешь файл ppm.bat
Запускай его.
Это приближенно, почти тоже самое, что и модуль CPAN , о котором я писал тут.
Сам качает модули с activestate, и сам же их корректно инсталит..
batva
сделал как ты сказал...
результат такой же.
на C: опять появились папки /Image-Magick/ (в ней только один файл delegates.mgk) и /temp/ (в ней все остальные папки и файлы модуля)
ну ладно, думаю, может оно так и нужно.
пишу простенький скрипт... и при выполнении строки
Код: $image->Resize(geometry=>geometry, width=>$nx, height=>100);
сделал как ты сказал...
результат такой же.
на C: опять появились папки /Image-Magick/ (в ней только один файл delegates.mgk) и /temp/ (в ней все остальные папки и файлы модуля)
ну ладно, думаю, может оно так и нужно.
пишу простенький скрипт... и при выполнении строки
Код: $image->Resize(geometry=>geometry, width=>$nx, height=>100);
Xnom
Цитата:
руками скопируй это все в C:/usr/lib сохраняя структуру каталогов.
Тоесть к примеру файл Resize.al будет лежать в C:/usr/lib/auto/Image/Magick/
Добавлено
Дак посмотрел я сейчас на то, что ты ставишь. (Это какой то кастрированный модуль..)
Нет там такого метода Resize и в помине, правильно тебе перл ошибку пишет.
Ты что ставишь?
Вот это? http://ppm.activestate.com/PPMPackages/zips/6xx-builds-only/Image-Magick.zip
И думаешь, что это вот это? >> http://www.imagemagick.org/www/perl.html
Ходи сюда http://www.imagemagick.org/www/perl.html#inst и дальше по линкам, там расписано как под винду этот модуль поставить..
Цитата:
на C: опять появились папки /Image-Magick/ (в ней только один файл delegates.mgk) и /temp/ (в ней все остальные папки и файлы модуля)
руками скопируй это все в C:/usr/lib сохраняя структуру каталогов.
Тоесть к примеру файл Resize.al будет лежать в C:/usr/lib/auto/Image/Magick/
Добавлено
Дак посмотрел я сейчас на то, что ты ставишь. (Это какой то кастрированный модуль..)
Нет там такого метода Resize и в помине, правильно тебе перл ошибку пишет.
Ты что ставишь?
Вот это? http://ppm.activestate.com/PPMPackages/zips/6xx-builds-only/Image-Magick.zip
И думаешь, что это вот это? >> http://www.imagemagick.org/www/perl.html
Ходи сюда http://www.imagemagick.org/www/perl.html#inst и дальше по линкам, там расписано как под винду этот модуль поставить..
batva
пасибо
пасибо
Обновила CPAN:
install Bundle::CPAN
В конце он мне написал:
/usr/bin/make install -- OK
перезапустила:
reload cpan
Хочу поставить модуль Image::Magick
Ставлю так:
Код:
cpan> install Image::Magick
Running install for module Image::Magick
Running make for J/JC/JCRISTY/PerlMagick-6.00.tar.gz
Issuing "/usr/bin/ftp -n"
Local directory now /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY
100% |******************************************************************| 2075 KB 00:00 ETA
GOT /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY/PerlMagick-6.00.tar.gz
Issuing "/usr/bin/ftp -n"
Local directory now /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY
100% |******************************************************************| 774 00:00 ETA
GOT /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY/CHECKSUMS
Checksum for /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY/PerlMagick-6.00.tar.gz ok
./PerlMagick-6.00/
./PerlMagick-6.00/Magick.pm.in
./PerlMagick-6.00/Makefile.PL.in
.
.
.
.
./PerlMagick-6.00/t/zlib/read.t
./PerlMagick-6.00/t/zlib/write.t
CPAN.pm: Going to build J/JC/JCRISTY/PerlMagick-6.00.tar.gz
Checking if your kit is complete...
Looks good
Note (probably harmless): No library found for -lMagick
Note (probably harmless): No library found for -llcms
Note (probably harmless): No library found for -ltiff
Note (probably harmless): No library found for -ljpeg
Note (probably harmless): No library found for -lpng
Note (probably harmless): No library found for -ldpstk
Note (probably harmless): No library found for -ldps
Note (probably harmless): No library found for -lXext
Note (probably harmless): No library found for -lSM
Note (probably harmless): No library found for -lICE
Note (probably harmless): No library found for -lX11
Note (probably harmless): No library found for -lxml2
Note (probably harmless): No library found for -lpthread
Note (probably harmless): No library found for -lpthread
Writing Makefile for Image::Magick
mkdir blib
mkdir blib/lib
mkdir blib/lib/Image
cp Magick.pm blib/lib/Image/Magick.pm
AutoSplitting blib/lib/Image/Magick.pm (blib/lib/auto/Image/Magick)
/usr/bin/perl -I/usr/libdata/perl/5.00503/mach -I/usr/libdata/perl/5.00503 /usr/libdata/perl/5.00503/ExtUtils/xsubpp -typemap /usr/libdata/perl/5.00503/ExtUtils/typemap Magick.xs >xstmp.c && mv xstmp.c Magick.c
cc -c -I../ -I.. -I/usr/include/freetype2 -I/usr/X11R6/include -I/usr/X11R6/include/X11 -I/usr/include/libxml2 -g -O2 -Wall -pthread -DVERSION=\"6.0.0\" -DXS_VERSION=\"6.0.0\" -DPIC -fpic -I/usr/libdata/perl/5.00503/mach/CORE -D_FILE_OFFSET_BITS=64 -DHAVE_CONFIG_H Magick.c
Magick.xs:63: magick/api.h: No such file or directory
Magick.xs:66: magick/xwindow.h: No such file or directory
*** Error code 1
Stop in /var/cpan_tmp/build/PerlMagick-6.00.
/usr/bin/make -- NOT OK
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
install Bundle::CPAN
В конце он мне написал:
/usr/bin/make install -- OK
перезапустила:
reload cpan
Хочу поставить модуль Image::Magick
Ставлю так:
Код:
cpan> install Image::Magick
Running install for module Image::Magick
Running make for J/JC/JCRISTY/PerlMagick-6.00.tar.gz
Issuing "/usr/bin/ftp -n"
Local directory now /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY
100% |******************************************************************| 2075 KB 00:00 ETA
GOT /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY/PerlMagick-6.00.tar.gz
Issuing "/usr/bin/ftp -n"
Local directory now /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY
100% |******************************************************************| 774 00:00 ETA
GOT /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY/CHECKSUMS
Checksum for /var/cpan_tmp/sources/authors/id/J/JC/JCRISTY/PerlMagick-6.00.tar.gz ok
./PerlMagick-6.00/
./PerlMagick-6.00/Magick.pm.in
./PerlMagick-6.00/Makefile.PL.in
.
.
.
.
./PerlMagick-6.00/t/zlib/read.t
./PerlMagick-6.00/t/zlib/write.t
CPAN.pm: Going to build J/JC/JCRISTY/PerlMagick-6.00.tar.gz
Checking if your kit is complete...
Looks good
Note (probably harmless): No library found for -lMagick
Note (probably harmless): No library found for -llcms
Note (probably harmless): No library found for -ltiff
Note (probably harmless): No library found for -ljpeg
Note (probably harmless): No library found for -lpng
Note (probably harmless): No library found for -ldpstk
Note (probably harmless): No library found for -ldps
Note (probably harmless): No library found for -lXext
Note (probably harmless): No library found for -lSM
Note (probably harmless): No library found for -lICE
Note (probably harmless): No library found for -lX11
Note (probably harmless): No library found for -lxml2
Note (probably harmless): No library found for -lpthread
Note (probably harmless): No library found for -lpthread
Writing Makefile for Image::Magick
mkdir blib
mkdir blib/lib
mkdir blib/lib/Image
cp Magick.pm blib/lib/Image/Magick.pm
AutoSplitting blib/lib/Image/Magick.pm (blib/lib/auto/Image/Magick)
/usr/bin/perl -I/usr/libdata/perl/5.00503/mach -I/usr/libdata/perl/5.00503 /usr/libdata/perl/5.00503/ExtUtils/xsubpp -typemap /usr/libdata/perl/5.00503/ExtUtils/typemap Magick.xs >xstmp.c && mv xstmp.c Magick.c
cc -c -I../ -I.. -I/usr/include/freetype2 -I/usr/X11R6/include -I/usr/X11R6/include/X11 -I/usr/include/libxml2 -g -O2 -Wall -pthread -DVERSION=\"6.0.0\" -DXS_VERSION=\"6.0.0\" -DPIC -fpic -I/usr/libdata/perl/5.00503/mach/CORE -D_FILE_OFFSET_BITS=64 -DHAVE_CONFIG_H Magick.c
Magick.xs:63: magick/api.h: No such file or directory
Magick.xs:66: magick/xwindow.h: No such file or directory
*** Error code 1
Stop in /var/cpan_tmp/build/PerlMagick-6.00.
/usr/bin/make -- NOT OK
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
lynx
Может Перл ему твой старый не нравится?
Что касаемо конкретно ImageMagick:
Цитата:
Он у тебя установлен?
Также ему для сборки судя по всему нужны header'ы Иксов, freetype, библиотек png, jpg, tiff, xml и пр.
Это у тебя имеется в наличии?
Может Перл ему твой старый не нравится?
Что касаемо конкретно ImageMagick:
Цитата:
You must have ImageMagick 6.0.0 or above installed on your system for this module to work properly.
Он у тебя установлен?
Также ему для сборки судя по всему нужны header'ы Иксов, freetype, библиотек png, jpg, tiff, xml и пр.
Это у тебя имеется в наличии?
а вот как объяснить ppmу (win32) что я за проксей и надо ее использовать.. а то он ломится в инет и сообтветственно Error: No valid repositories: Error: 500 Can't connect to
ppm.ActiveState.com:80 (connect: Unknown error)
ppm.ActiveState.com:80 (connect: Unknown error)
Demetrio
Цитата:
Вот хеадеров Иксов у меня походу и нету...
Цитата:
Также ему для сборки судя по всему нужны header'ы Иксов, freetype, библиотек png, jpg, tiff, xml и пр.
Вот хеадеров Иксов у меня походу и нету...
итак.. отвечаю сам себе..
через прокси удалось пробится прописав в окружении HTTP_proxy=http://myproxyip:port
но на команду ppm install GD
ppm некоторое время шарится в инете и выдает
PPD for 'GD.ppd' could not be found.
на прямую ссылку на ppd тоже ругается, на gz тоже..
фиг знает чего надо ему..
к примеру ppm install DBI идет нормально...
через прокси удалось пробится прописав в окружении HTTP_proxy=http://myproxyip:port
но на команду ppm install GD
ppm некоторое время шарится в инете и выдает
PPD for 'GD.ppd' could not be found.
на прямую ссылку на ppd тоже ругается, на gz тоже..
фиг знает чего надо ему..
к примеру ppm install DBI идет нормально...
Вот мне нужно Exporter.pm где его взять? Мне только он нужен. У меня Денвер 2.
Я на локалхост хочу форум бахнуть. Мне сказали что в этой ветке помочь могут!
Я на локалхост хочу форум бахнуть. Мне сказали что в этой ветке помочь могут!
Sigmat
Цитата:
Скачай нормальный не кастрированный perl, этот модуль там есть.
Цитата:
Вот мне нужно Exporter.pm где его взять?
Скачай нормальный не кастрированный perl, этот модуль там есть.
batva
А в Денвере он кастрирован? И его можно поверх Денверского ставить? Всё нормально будет?
А в Денвере он кастрирован? И его можно поверх Денверского ставить? Всё нормально будет?
Sigmat
Цитата:
Да.
Читай на сайте денвера.
Цитата:
Из этого делаем вывод, что тебе нужно просто скачать и поставить необходимое расширение для перла. Оно там судя по всему есть.
Иди и ищи.
http://dklab.ru
Цитата:
А в Денвере он кастрирован?
Да.
Читай на сайте денвера.
Цитата:
Джентльменский Набор Web-Разработчика
Денвер — это автоматически настраивающийся комплекс программ и серверов, предназначенный для разработки сайтов в Windows с расчетом использования их в Unix. Вместо того, чтобы ставить себе Apache, PHP и т.д. по различным руководствам, рекомендуется воспользоваться этим проектом. Базовый пакет Денвера (размер 2 МБ, хотите — верьте, хотите — проверьте) включает:
Apache, SSI, mod_rewrite, mod_php.
PHP4 с поддержкой GD и MySQL.
MySQL с поддержкой транзакций (mysqld-max).
phpMyAdmin — система управления MySQL через Web-интерфейс. Полностью заменяет командную строку MySQL.
Ядро Perl без стандартных библиотек (они поставляются отдельно).
Эмулятор sendmail (отладочная «заглушка», складывающая приходящие письма в /tmp); поддерживается работа совместно с PHP и Perl.
Система управления виртуальными хостами, основанная на шаблонах. Чтобы создать новый хост, вам нужно лишь добавить директорию в каталог /home, править конфигурационные файлы не требуется.
Система управления запуском и завершением.
Инсталлятор (нечто вроде InstallShield).
Дополнительные модули, компоненты и программы доступны в виде пакетов расширений. Читать дальше...
Из этого делаем вывод, что тебе нужно просто скачать и поставить необходимое расширение для перла. Оно там судя по всему есть.
Иди и ищи.
http://dklab.ru
Многоуважаемый All %)
Кто-нибудь компилировал PPM для АктивПерла под Винды, используя BCC55 и pmake.
Конкретно нужно скомпилировать DBD::InterBase, в процессе вылетают 2 ошибки: для начала не хочет компиляться pmake, а после пропатчивания конфига перла (на предмет перевода ссылок с VC ++ на BCC), всё равно perl пытается найти VC.
Если у кого есть опыть сборки данного добра под винду, поделитесь.
Кто-нибудь компилировал PPM для АктивПерла под Винды, используя BCC55 и pmake.
Конкретно нужно скомпилировать DBD::InterBase, в процессе вылетают 2 ошибки: для начала не хочет компиляться pmake, а после пропатчивания конфига перла (на предмет перевода ссылок с VC ++ на BCC), всё равно perl пытается найти VC.
Если у кого есть опыть сборки данного добра под винду, поделитесь.
Felix
Цитата:
а что, готового нет? зачем компилировать?
хм.. нету
Цитата:
Цитата:
Кто-нибудь компилировал PPM для АктивПерла под Винды,
а что, готового нет? зачем компилировать?
хм.. нету
Цитата:
PPM No PPM packages are yet available for this distribution.
Цитата:
а что, готового нет? зачем компилировать?
Он странное работает. Его компиляли под поддержку и Интербэйс и ФайерБёрд, так при работе с Интербейс он хочет fbclient.dll, потом посылает куда подальше. Вот и есть желание лишние повыкинуть и пересобрать.
Вобщем, кому интересно. Плюнул на все некоммерческие компилляторы и иже с ними. Поставил Visual Studio, сделал ровно по рид.ми, получил нормально работающий модуль.
И в догонку.
Руководство по созданию PPM из сырцов под Win32
и скрипт для этого на Perl [more][no]
Makeppd.pl
#makeppd.pl 2.0
use FileHandle;
use File::DosGlob qw(glob);
use Win32::FileOp;
$make='nmake.exe';
END {print "\nDONE -- PRESS ENTER\n";<STDIN>};
my $has_xs = 0;
#unixify files
{
opendir my $DIR, '.' or die "Can't read current directory: $!\n";
my $file ;
while (defined($file = readdir $DIR)) {
$has_xs = 1 if $file =~ /\.xs$/i;
next unless $file =~ /\.(?:pm|pl|xs|t|html|htm|txt)$/i or $file =~ /^(?:MANIFEST|Changes)$/i;
open my $FILE, "<".$file or die "Can't open file $file : $!\n";
binmode $FILE;
my $line = <$FILE>;
# next unless $line =~ /\r/;
open my $OUT, ">".$file.".tmp" or die "Can't create file $file.tmp : $!\n";
binmode $OUT;
while (defined $line) {
$line =~ s/\r?\n?$//;
print $OUT $line,"\x0A";
$line = <$FILE>
}
close $FILE;
close $OUT;
unlink $file;
rename $file.'.tmp' => $file;
}
}
system('perl Makefile.PL');
system($make) and die "Failed to make!\n";
system($make, 'dist'); # this creates the ordinary distribution
# I need the archive to find the version number!
# If you comment this out, always copy the archive to current directory.
# this part of code finds the latest distribution, I don't have time to
# explore how to find the version number
@archives = grep {!/-PPM\.tar\.gz$/i} <*.tar.gz>;
$archive = findNewest (@archives);
($name = $archive) =~ s/\.tar\.gz$//;
($module = $name) =~ s/-[\d.]+$//;
($file = $module) =~ s/^.*-(.*?)$/$1/;
$ppd = $module.".ppd";
$module =~ s/-/\\/g;
print "Module name : $file\n";
print "Newest archive is $archive\n";
system('perl','Makefile.PL', "BINARY_LOCATION=$name-PPM.tar.gz");
system($make, 'ppd');
# you may do something like
# system($make, 'ppd', "BINARY_LOCATION=$name-PPM.tar.gz");
# if you do not apply my patch to ExtUtils\MM_Unix.pm
print (qq{pod2html.bat "-htmlroot=." "$file.pm" "-outfile=$file.html"\n});
system(qq{pod2html.bat "-htmlroot=." "$file.pm" "-outfile=$file.html"});
#mkdir 'blib/html'; # not necessary
Copy "$file.html" => "$file.pm.html";
Move "$file.html" => "blib/html/site/lib/$module.html";
system(qq{pod2text.bat "$file.pm" "$file.pm.txt"});
system("tar cvf $name-PPM.tar blib");
system("gzip --best $name-PPM.tar");
Delete qw(blib pod2html-dircache pod2html-itemcache pm_to_blib pod2htmd.x~~ pod2htmi.x~~);
if (! $has_xs) {
open $PPD, "<$ppd" or die "Can't open the $ppd file: $!\n";
open $NEWPPD, ">$ppd.tmp" or die "Can't create the $ppd.tmp file: $!\n";
while (<$PPD>) {
next if (/<ARCHITECTURE/);
print $NEWPPD $_;
}
close $PPD; close $NEWPPD;
unlink $ppd;
rename $ppd.'.tmp' => $ppd;
}
exit;
#==================
sub findNewest {
my $maxitem;
my $maxver = pack('C4',0,0,0,0);
foreach my $item (@_) {
$item =~ /-(\d+)\.(\d+)\.(?\d+)\.(?\d+)\.)?)?tar\.gz/;
my $ver = pack('C4',$1,$2,$3,$4);
if ($ver gt $maxver) {
$maxver = $ver;
$maxitem = $item;
}
}
return $maxitem;
}
[/no]
[/more]
Руководство по созданию PPM из сырцов под Win32
и скрипт для этого на Perl [more][no]
Makeppd.pl
#makeppd.pl 2.0
use FileHandle;
use File::DosGlob qw(glob);
use Win32::FileOp;
$make='nmake.exe';
END {print "\nDONE -- PRESS ENTER\n";<STDIN>};
my $has_xs = 0;
#unixify files
{
opendir my $DIR, '.' or die "Can't read current directory: $!\n";
my $file ;
while (defined($file = readdir $DIR)) {
$has_xs = 1 if $file =~ /\.xs$/i;
next unless $file =~ /\.(?:pm|pl|xs|t|html|htm|txt)$/i or $file =~ /^(?:MANIFEST|Changes)$/i;
open my $FILE, "<".$file or die "Can't open file $file : $!\n";
binmode $FILE;
my $line = <$FILE>;
# next unless $line =~ /\r/;
open my $OUT, ">".$file.".tmp" or die "Can't create file $file.tmp : $!\n";
binmode $OUT;
while (defined $line) {
$line =~ s/\r?\n?$//;
print $OUT $line,"\x0A";
$line = <$FILE>
}
close $FILE;
close $OUT;
unlink $file;
rename $file.'.tmp' => $file;
}
}
system('perl Makefile.PL');
system($make) and die "Failed to make!\n";
system($make, 'dist'); # this creates the ordinary distribution
# I need the archive to find the version number!
# If you comment this out, always copy the archive to current directory.
# this part of code finds the latest distribution, I don't have time to
# explore how to find the version number
@archives = grep {!/-PPM\.tar\.gz$/i} <*.tar.gz>;
$archive = findNewest (@archives);
($name = $archive) =~ s/\.tar\.gz$//;
($module = $name) =~ s/-[\d.]+$//;
($file = $module) =~ s/^.*-(.*?)$/$1/;
$ppd = $module.".ppd";
$module =~ s/-/\\/g;
print "Module name : $file\n";
print "Newest archive is $archive\n";
system('perl','Makefile.PL', "BINARY_LOCATION=$name-PPM.tar.gz");
system($make, 'ppd');
# you may do something like
# system($make, 'ppd', "BINARY_LOCATION=$name-PPM.tar.gz");
# if you do not apply my patch to ExtUtils\MM_Unix.pm
print (qq{pod2html.bat "-htmlroot=." "$file.pm" "-outfile=$file.html"\n});
system(qq{pod2html.bat "-htmlroot=." "$file.pm" "-outfile=$file.html"});
#mkdir 'blib/html'; # not necessary
Copy "$file.html" => "$file.pm.html";
Move "$file.html" => "blib/html/site/lib/$module.html";
system(qq{pod2text.bat "$file.pm" "$file.pm.txt"});
system("tar cvf $name-PPM.tar blib");
system("gzip --best $name-PPM.tar");
Delete qw(blib pod2html-dircache pod2html-itemcache pm_to_blib pod2htmd.x~~ pod2htmi.x~~);
if (! $has_xs) {
open $PPD, "<$ppd" or die "Can't open the $ppd file: $!\n";
open $NEWPPD, ">$ppd.tmp" or die "Can't create the $ppd.tmp file: $!\n";
while (<$PPD>) {
next if (/<ARCHITECTURE/);
print $NEWPPD $_;
}
close $PPD; close $NEWPPD;
unlink $ppd;
rename $ppd.'.tmp' => $ppd;
}
exit;
#==================
sub findNewest {
my $maxitem;
my $maxver = pack('C4',0,0,0,0);
foreach my $item (@_) {
$item =~ /-(\d+)\.(\d+)\.(?\d+)\.(?\d+)\.)?)?tar\.gz/;
my $ver = pack('C4',$1,$2,$3,$4);
if ($ver gt $maxver) {
$maxver = $ver;
$maxitem = $item;
}
}
return $maxitem;
}
[/no]
[/more]
прочитал здесь всё и скопировал скачанную DBI-1.48 в папку usr\lib, в командной строке набрал и тут же получил:
C:\usr\lib\DBI-1.48\makefile.pl
Can't locate Test/More.pm in @INC (@INC contains: lib C:/usr/lib C:/usr/site/lib
.) at C:\usr\lib\DBI-1.48\Makefile.PL line 39.
BEGIN failed--compilation aborted at C:\usr\lib\DBI-1.48\Makefile.PL line 39.
где ошибка?
C:\usr\lib\DBI-1.48\makefile.pl
Can't locate Test/More.pm in @INC (@INC contains: lib C:/usr/lib C:/usr/site/lib
.) at C:\usr\lib\DBI-1.48\Makefile.PL line 39.
BEGIN failed--compilation aborted at C:\usr\lib\DBI-1.48\Makefile.PL line 39.
где ошибка?
skipp1
ну не нужны тебе сырцы, млин..
Start->Run->ppm
после чего
search DBI
выбираешь тот, что нужен
после чего
install DBI
и все.. под виндами больше ничего делать не нужно.
ну не нужны тебе сырцы, млин..
Start->Run->ppm
после чего
search DBI
выбираешь тот, что нужен
после чего
install DBI
и все.. под виндами больше ничего делать не нужно.
Предыдущая тема: Perl, PHP: отправка формы на e-mail
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.