информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Spanning Tree Protocol: недокументированное применениеГде водятся OGRы
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / web building
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Получение exitcode программы 14.04.05 11:25  
Автор: Kerk Статус: Незарегистрированный пользователь
<"чистая" ссылка>
сабж :)
Нужно выполнить что-то вроде unzip -t blabla.zip и получить ее exitcode в перл-скрипте. Как?
<без заголовка> 14.04.05 11:37  
Автор: _йцукенг_ Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> сабж :)
> Нужно выполнить что-то вроде unzip -t blabla.zip и получить
> ее exitcode в перл-скрипте. Как?
system "unzip", " -t blabla.zip "; print $?
почему-то эта процедурка все-время возвращает 2304, независимо от того что я туда передаю... 14.04.05 18:48  
Автор: Kerk Статус: Незарегистрированный пользователь
<"чистая" ссылка>
sub test_zip($) {
 system "unzip", " -t $_[0]";
 return $?;
}

---

почему-то эта процедурка все-время возвращает 2304, независимо от того что я туда передаю... :(
еще вопрос :) 05.05.05 14:56  
Автор: Kerk Статус: Незарегистрированный пользователь
<"чистая" ссылка>
решил проблему. надо было писать так:
sub test_zip($) {
  system "unzip", "-t", "$_[0]";
  return $?;
}

---
:)
сходу еще вопрос.. как перенаправить консольный вывод этого дела куда-нибудь в /dev/null ?
попробуй добавить ">/dev/null 2>&1" 05.05.05 15:31  
Автор: ZaDNiCa <indeed ZaDNiCa> Статус: Elderman
<"чистая" ссылка>
...caution: filename not matched: >/dev/null 2>&1 05.05.05 16:00  
Автор: Kerk Статус: Незарегистрированный пользователь
<"чистая" ссылка>
[Perl] man perlvar | grep $? 14.04.05 11:37  
Автор: NKritsky <Nickolay A. Kritsky> Статус: Elderman
<"чистая" ссылка>
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach