Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

37_Публикация модулей на CPAN. (Дмитрий Котеров)
Author Message
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 413
   поощрить/наказать


PostPosted: Thu Jan 01, 2004 10:48 pm ()
   Post subject: 37_Публикация модулей на CPAN.
Reply with quote

dklab.ru/chicken/nablas/37.html
Back to top
View user's profile Send private message Send e-mail
Злые тапки
Заглянувший



Joined: 08 Oct 2004
Posts: 4
Карма: 0
   поощрить/наказать


PostPosted: Mon Dec 13, 2004 10:43 pm (спустя 11 месяцев 11 дней 23 часа 55 минут; написано за 2 минуты 8 секунд)
   Post subject: 8-я набла
Reply with quote

По поводу dklab.ru/chicken/nablas/8.html есть предложение:
scriptor.pl

Вместо
#!/usr/local/bin/perl -w
use FindBin qw($Bin); # текущая директория в $Bin
use Apache::Scriptor::Simple("$Bin/handlers");

использовать:
#!/usr/local/bin/perl -w
use Apache::Scriptor::Simple("$ENV{'PWD'}/handlers");

Если не прав - прошу поправить.
Back to top
View user's profile Send private message
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 413
   поощрить/наказать


PostPosted: Mon Dec 13, 2004 10:51 pm (спустя 7 минут; написано за 26 секунд)
   Post subject:
Reply with quote

Я могу ошибаться, но, по-моему, PWD не определена в Windows.
Back to top
View user's profile Send private message Send e-mail
Злые тапки
Заглянувший



Joined: 08 Oct 2004
Posts: 4
Карма: 0
   поощрить/наказать


PostPosted: Mon Dec 13, 2004 11:21 pm (спустя 30 минут; написано за 44 секунды)
   Post subject:
Reply with quote

У меня были сомнения на счет *nix, а вот в Windows как раз все и замечательно определено.
Back to top
View user's profile Send private message
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 413
   поощрить/наказать


PostPosted: Tue Dec 14, 2004 12:01 am (спустя 40 минут; написано за 54 секунды)
   Post subject:
Reply with quote

Осталось только понять, кто эту переменную окружения устанавливает. Не исключено, что Cwd.pm или еще какой-то модуль.
Code (perl): скопировать код в буфер обмена
#!/usr/bin/perl -w
print (www.perldoc.com/perl5.6/pod/func/print.html) "Content-type: text/html\n\n";
print (www.perldoc.com/perl5.6/pod/func/print.html) $ENV{PWD};
Вот такое простой скрипт ничего не выводит в Windows. Пусто.
Back to top
View user's profile Send private message Send e-mail
Злые тапки
Заглянувший



Joined: 08 Oct 2004
Posts: 4
Карма: 0
   поощрить/наказать


PostPosted: Tue Dec 14, 2004 2:06 am (спустя 2 часа 4 минуты)
   Post subject:
Reply with quote

Спрятал папку /usr/lib - переменная окружения $ENV{'PWD'} исчезла. Досадно.

Есть другой вариант
Code (perl): скопировать код в буфер обмена
#!/usr/local/bin/perl -w
my $Bin = $ENV{'SCRIPT_FILENAME'} =~ m (www.perldoc.com/perl5.6/pod/func/m.html)/(.*)\/.*/;
use Apache::Scriptor::Simple("$Bin/handlers");
Под Windows работает, но нет возможности проверить это под никсами
Back to top
View user's profile Send private message
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 413
   поощрить/наказать


PostPosted: Tue Dec 14, 2004 2:54 am (спустя 48 минут; написано за 1 минуту 6 секунд)
   Post subject:
Reply with quote

Тогда уж
Code (perl): скопировать код в буфер обмена
my ($Bin) = $0=~m (www.perldoc.com/perl5.6/pod/func/m.html){^(.*)/}s (www.perldoc.com/perl5.6/pod/func/s.html);
Back to top
View user's profile Send private message Send e-mail
Злые тапки
Заглянувший



Joined: 08 Oct 2004
Posts: 4
Карма: 0
   поощрить/наказать


PostPosted: Tue Dec 14, 2004 10:21 am (спустя 7 часов 26 минут; написано за 1 минуту 9 секунд)
   Post subject:
Reply with quote

Работает.
Может повесить ссылки на обсуждение наблов на самих наблах ?
Back to top
View user's profile Send private message
KES
Участник форума



Joined: 19 Oct 2006
Posts: 214
Карма: 0
   поощрить/наказать

Location: сВознесеновка, Мелитопольский р-н, Запорожская обл. Украина

PostPosted: Thu Jan 24, 2008 6:56 pm (спустя 3 года 1 месяц 10 дней 8 часов 35 минут; написано за 1 минуту 46 секунд)
   Post subject:
Reply with quote

Битая ссылка: www.perldoc.com/perl5.8.0/pod/perlnewmod.html
лучше заменить на: perldoc.perl.org/perlnewmod.html

Похоже что UnxUtils: unxutils.sourceforge.net тоже склеил лапки, т.к.: "latest updates (after 14-04-03): UnxUpdates.zip", к которым доступ закрыт
Самое последнее доступно тут: ftp.gnu.org/gnu/coreutils/
Где взять бинарники под винду я не знаю ((
так что гуглите ;)
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
Post a reply
Username
Subject
Господа спамеры и оптимизаторы!

Вы можете даже и не пытаться вставлять в текст поста ссылки - они все равно автоматически удаляются (вернее, тэги <a> заменяются на тэги <u>).

Но если не поверите и все же попытаетесь - как только увидите, что все безрезультатно, удалите свой пост, пожалуйста. Модераторы тоже люди, нехорошо, если они погрязнут в тоннах спама.
     

Disable BBCode in this post
Disable Smilies in this post
    HTML is OFF
BBCode is ON
Smilies are ON
You cannot post new topics in this forum. You can reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You can download files in this forum.
XML