Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как из Perl возвратить errorlevel в батник? 
:(
    Опции темы
zyxerr
Дата 19.12.2008, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
Добрый день!

perl-скрипт заканчивается так:

Код

if ($c == 0 ){return "errorlevel 0"}
else {return "errorlevel 1"}


или по-другому нужно делать?

Добавлено @ 13:00
пытаюсь написать батник под XP. Он должен:
запускать скрипт 1.pl;
если (пришел errorlevel 1){то запускать 2.pl}
если (пришел errorlevel 0){то запускать 3.pl}
.



Это сообщение отредактировал(а) zyxerr - 19.12.2008, 13:04
PM MAIL   Вверх
KSURi
Дата 19.12.2008, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 20
Всего: 27
perldoc -f exit


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
zyxerr
Дата 19.12.2008, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
да, только там ничего толком не сказано.
Пробовал:
exit 1 if $c!=0
exit (1) if $c!=0
exit (errorlevel 1) if $c!=0
exit ("errorlevel 1") if $c!=0
.
результат нулевой :(

Добавлено через 8 минут и 23 секунды
в батнике пишу:
Код

perl 1.pl
if errorlevel 0 perl 2.pl
if errorlevel 1 perl 3.pl 
PM MAIL   Вверх
KSURi
Дата 19.12.2008, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 20
Всего: 27
Цитата

IF ERRORLEVEL construction has one strange feature, that can be used to our advantage: it returns TRUE if the return code was equal to or higher than the specified errorlevel.



--------------------
Died at Life.pl line 21
PM Jabber   Вверх
zyxerr
Дата 19.12.2008, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 2
"IF ERRORLEVEL construction has one strange feature, that can be used to our advantage: it returns TRUE if the return code was equal to or higher than the specified errorlevel."
.
спасибо! кажется, разобрался! smile еще чуть-чуть и мой мозг бы взорвался smile

Добавлено через 5 минут и 14 секунд
правильный батник:

Код

perl check_range.pl
    if errorlevel 1 echo ОШИБКИ
    if not errorlevel 1 echo НЕТ ОШИБОК


правильный выход из скрипта:
Код

if ($c==0){exit 0} 
else {exit 1}
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0652 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.