Установка сетевого диска Perl

Мне нужно иметь возможность запускать несколько простых сценариев Perl с диска NTFS (win server 2003 R2). Есть ли способ установить Perl на этот сетевой диск (Strawberry или ActiveState, Strawberry предпочтительнее для встроенного компилятора модуля cpan) и иметь возможность запускать сценарии с любым монтированием в реальном времени на машинах, на которых не установлен / не требуется установленный дистрибутив Perl ?

Пока не очень повезло с какой-либо соответствующей документацией.


person aton82    schedule 06.05.2014    source источник


Ответы (1)


Да, мы делаем это все время.

Установите Perl на свой файлообменник. Я предпочитаю делать это с Windows Server, на котором размещена общая папка, но я не думаю, что это необходимо. Если у вас нет удаленного рабочего стола и доступа администратора к этому серверу, вам понадобятся 2 ПК, 1 для установки и 1 для проверки. Вы не можете проверить это на том же ПК/сервере, на котором выполнялась установка.

Запустите этот скрипт реестра Windows на тестовом ПК:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.pl]
@="Perl Script"

[HKEY_CLASSES_ROOT\Perl Script]
@="Perl Script"

[HKEY_CLASSES_ROOT\Perl Script\DefaultIcon]
@="C:\\WINDOWS\\system32\\Icons\\ActivePerl.ico,0"

[HKEY_CLASSES_ROOT\Perl Script\shell]
@="Open"

[HKEY_CLASSES_ROOT\Perl Script\shell\Open]
@="Open"

[HKEY_CLASSES_ROOT\Perl Script\shell\Open\command]
@="\"Z:\\network-folder\\Perl\\bin\\perl.exe\" \"%1\" %*"

[HKEY_CLASSES_ROOT\Perl Script\shellex]

[HKEY_CLASSES_ROOT\Perl Script\shellex\DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

Вам нужно будет изменить это:

"C:\\WINDOWS\\system32\\Icons\\ActivePerl.ico,0"

к пути (желательно на ПК, а не в сети!) значка, чтобы идти с файлами .PL. Вы можете удалить эти 2 строки из скрипта reg, если вам не нужен пользовательский значок.

Что еще более важно, вам нужно будет изменить это:

"Z:\\network-folder\\Perl\\bin\\perl.exe\"

на путь, по которому вы установили Perl.

Часть DropHandler этого сценария более подробно объясняется в этом другом сообщении: Как мне создавать программы Strawberry Perl с перетаскиванием?

Надеюсь, это поможет!

person jimtut    schedule 06.05.2014
comment
Пожалуйста. Как только вы докажете, что это работает, примите ответ. - person jimtut; 06.05.2014