VPF::console vs process - Форум программистов

BitCat

Дата 10.7.2006, 16:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть скрипт x.pl.
Нужно сделать такую вещь:
+)если этот x.pl запускался с консоли терминала (./x.pl), то выдать на экран 'TERMINAL'
+)если x.pl запускался из другого скрипта-процесса, то на консоль ничего выдавать не надо.

Вопрос: как узнать, откуда запущен скрипт - из консоли или из левого процесса через какой-нить exec/system/`` ?

sharq

Дата 11.7.2006, 11:38 (ссылка)

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

Загрузка ...

Perl Liker

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

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

BitCat, скрипту все равно кто его запустил на выполнение.
Если тебе это так важно могу посоветовать, в каком-нить случае передавать через @ARGV откуда он был запущен и анализировать это.

Хотя если это дочерний процесс, то через вызов системной утилиты (ps) можно узнать кто его вызвал, но это сложно и не нужно smile

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

[color=gray]There's More Than One Way To Do It[/color]

BitCat

Дата 11.7.2006, 13:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


sub IsTerminalRun()
{
    # extracting script name
    my @path = split(/\//, $0);
    my $env0 = $path[@path-1];
    @path = split(/\//, $ENV{'_'});
    my $env_ = $path[@path-1];
    ($env0 eq $env_) ? return 1 : return 0;
}

на Solaris пашет.

под Redhat и FreeBSD - неа.. да и вообще ключ $ENV{'_'} какой-то очень специфический.
в общем жутко не переносимое решение.

до другого пока не додумался... млин..

DiverD

Дата 11.7.2006, 20:27 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(sharq @ 11.7.2006, 11:38)

Хотя если это дочерний процесс, то через вызов системной утилиты (ps) можно узнать кто его вызвал, но это сложно и не нужно smile

А почему сложно? вот :
ps aux|grep name_script

Это сообщение отредактировал(а) diverd - 11.7.2006, 20:28

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

[ FreeBSD & pERL p0WER eVERY dAY ]

BitCat

Дата 12.7.2006, 09:40 (ссылка)

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

Загрузка ...

Новичок

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

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

> через вызов системной утилиты (ps) можно узнать кто его вызвал
Не сложно вызвать системную утилиту и распарсить её ответ, но всегда следует избегать вызова подобных вещей. Зачем вызывать внешнюю прогу, если можно написать это самому, без привязки к какой-либо утилите и ее ответу (мало ли что там дальше разработчики этой тулзы наворотят - может и ответ ее вообще не такой будет, а может из поставки ее исключат).

В общем, вот такая получилась функция:

Код


# returns true if script has been run from console otherwise returns false
# this function works correctly only if parent process started this process with backticks operator
sub IsTerminalRun()
{
    (-t STDOUT) ? return 1 : return 0;
}

Это сообщение отредактировал(а) BitCat - 12.7.2006, 09:41

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