VPF::Проблема с $ENV{PWD} - Форум программистов

shamber

Дата 21.9.2006, 13:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

Такой код работает в комодо, но не работает в cmd что изменить?

Код


#!/usr/bin/perl -w
use strict;
my $HOME ="";
$HOME = $ENV{PWD};
print $HOME;

nitr

Дата 21.9.2006, 14:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

кричит чтоли?
Use of uninitialized value in print at script.pl line 5.

вот можно получить...
и просмотреть у меня к примеру точно нет ключа PWD smile

Код


#!/usr/bin/perl -w
use strict;
print $_." => ".$ENV{$_}."\n" foreach sort keys %ENV;

Добавлено @ 14:02
ну если установить переменную окружения PWD
set PWD=C:\
то

Код


#!/usr/bin/perl -w
use strict;
my $HOME = exists $ENV{PWD} ? $ENV{PWD} : "no value";
print $HOME;

выдаст C:\, если же не устьанавливать, то мой скрипт выдаст no value

Добавлено @ 14:04
_________________________________________

а ещё проблема может быть тут smile

Код


#!/usr/bin/perl -w

заменить на

Код


#!perl -w

либо запускай скрипт
perl script.pl
лучше второй вариант... чтобы не менять в скрипте путь к перл smile

--------------------

I love ArchLinux

shamber

Дата 21.9.2006, 14:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ты прав.
Просто KOMODO подставляет значения окружения.
где PWD - это текущая папка.

решение моей проблемы было простым как и все гениальное. smile

Использовать поиск по форуму.

Код


use Cwd;
my $dir_now = getcwd();

PS Правда в свое оправдание скажу, что искал, но строку поиска задал не правильно.

nitr

Дата 21.9.2006, 14:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

ну вот

вопрос был поставлен неверно ;)

--------------------

I love ArchLinux

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