VPF::Проблемы с путями при переносе на другой сервер.

Dima85

Дата 11.2.2010, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет

Достаточно часто приходиться переносить свой скрипт с 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

perldoc File::Spec

Dima85

Дата 11.2.2010, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет

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

mvsgt

Дата 11.2.2010, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 27.3.2009

Репутация: 1
Всего: 1

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

ramus

Дата 11.2.2010, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 21.2.2008

Репутация: 1
Всего: 1

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет

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

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

mvsgt

Дата 12.2.2010, 00:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 27.3.2009

Репутация: 1
Всего: 1

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

)

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »