Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Проблемы с путями при переносе на другой сервер.

Автор: Dima85 11.2.2010, 18:43

Достаточно часто приходиться переносить свой скрипт с Linux на Windows сервер и обратно.
Из за чего меняется название полного пути к директории где он находиться и ее приходиться менять в ручную. Что бы не делать это постоянно я написал такой скрипт:

Код


my($directory)= $ENV{'SCRIPT_FILENAME'}; # смотрим путь где находится скрипт
$directory=~s/\\/\//gis; # если есть \ меняим их на /
$directory=~s/[^\\\/]+$//is; # стираем название нашего скрипта
$directory=~s/\/cgi-bin\//\//gis; # стираем папку cgi-bin
$directory.="database"; # папка куда сохраняются все записи

Все замечательно работает.
Но сейчас задался вопросом, а возможно ли его оптимизировать? (Уменьшить, что б меньше строк и кода было.)

И хочется услышать как вы боритесь с такими проблемами. Спасибо.

Автор: arto 11.2.2010, 19:25

perldoc File::Spec

Автор: Dima85 11.2.2010, 20:45

Я не хочу использовать File::Spec

Автор: mvsgt 11.2.2010, 20:58

Мы (другие пользователи) пользуемся FindBin и File::Spec , если Вы не хотите - это Ваше право.

Автор: ramus 11.2.2010, 23:24

Не пробовали так

Код


use File::Basename;
my $directory=dirname($0);

$directory=~s/\\/\//gis; # если есть \ меняим их на /
$directory=~s/\/cgi-bin\//\//gis; # стираем папку cgi-bin
$directory.="database"; # папка куда сохраняются все записи

Автор: Dima85 12.2.2010, 00:02

mvsgt, arto, расскажите пожалуйста а чем мой способ плох? Почему лучше и многие пользуються FindBin и File::Spec? Мне кажется подгружая в скрипт новый модуль он будет больше ресурсов расходовать чем мой пример. Или я не прав?

ramus, спасибо попробую.

Автор: mvsgt 12.2.2010, 00:29

Цитата(Dima85 @ 12.2.2010, 00:02

)

Каких ресурсов? 5 килобайт FindBin на диске? Это окупается простотой использования. Вместо трёх регулярных выражений, в которых ещё надо найти ошибки и постороннему человеку понять что же там написано, мы получаем простой $FindBin::Bin или просто $Bin.