VPF::Ошибка после извлечения файла

Grost

Дата 7.9.2010, 08:31 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

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

В командной строке пишу:

Код


arj e D:\CURD\Files\curd0907.arj D:\CURD -y

всё выполняется

Но после выполнения скрипта:

Код


$file="D:\\CURD\\Files\\curd0907.arj";
system "arj e $file D:\\CURD -y" or die"$!";

Пишет, что файл извлёк удачно. Но есть еще строка с ошибкой:

Цитата

Bad file descriptor at C:\....\script.pl line 2

Если or die"$!" убрать, то соответственно ошибка не всплывает.

Ошибка не сказывается на работе, файл всё равно извлекается нормально, но просто интересно из-за чего такое может быть.

Это сообщение отредактировал(а) Grost - 7.9.2010, 09:04

Присоединённый файл ( Кол-во скачиваний: 1 )

curd0907._arj 1,07 Kb

DurRandir

Дата 7.9.2010, 10:13 (ссылка)

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

Загрузка ...

Опытный

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

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

perldoc -f system, там есть примеры правильной обработки

evilsoul

Дата 9.9.2010, 19:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Просто system возвращает 0 если все прошло удачно.
Вот у тебя и срабатывает die
Тебе надо делать так

Код


$file="D:\\CURD\\Files\\curd0907.arj";
$ret = system "arj e $file D:\\CURD -y";
die "Error arj" if ($ret);

Как-то так

Вернее system возвращает код выполнения вызванной программы, обычно если все хорошо код равен 0

Это сообщение отредактировал(а) evilsoul - 9.9.2010, 21:21

Grost

Дата 10.9.2010, 21:19 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

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

Да я сделал как в доке написано было и ошибка перестала появляться)

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