VPF::Обрезается поток по ширене окна терминала

vaddsm

Дата 3.7.2007, 10:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


if(open($stream,"ps -aux|"))
{
 while($r = <$stream>)
 {
  # если запустить такой скрипт из шелл, то $r будет содержать обрезанную строку в ширину окна терминала
  # как считать все данные ps -aux не взерая на то какой ширины окно терминала из которого запущен этот скрипт
 }
}

dimes

Дата 3.7.2007, 11:13 (ссылка)

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

Загрузка ...

Бывалый

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

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

ps -auxwwww
хм... если я конечно не ошибся с кол-вом "w" smile

Это сообщение отредактировал(а) dimes - 3.7.2007, 11:13

amg

Дата 3.7.2007, 11:53 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(vaddsm @ 3.7.2007, 10:59

)

если запустить такой скрипт из шелл, то $r будет содержать обрезанную строку в ширину окна терминала

Возможно, это зависит от терминала. У меня (в xterm) $r не обрезается.

Еще, быть может, накладываются свойства шелла (open с двумя параметрами использует шелл для исполнения команды). Чтобы выполнить команду без посредничества шелла (это тем более уместно для такой команды как ps - дольше шелл запускать, чем ее исполнить), нужно open с более чем двумя параметрами:

Код


open($stream, '-|', "ps aux")

И - перед aux лишний.

sharq

Дата 3.7.2007, 11:53 (ссылка)

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

Загрузка ...

Perl Liker

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

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

dimes, меньше smile

ps auxww

Добавлено через 2 минуты и 13 секунд
amg, формат вызова open не влияет!
Хотя верно подметил, с версии Perl 5.8.x стОит использовать open c 3мя параметрами.

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

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

dimes

Дата 3.7.2007, 12:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(sharq @ 3.7.2007, 12:53

)

dimes, меньше

Спорить не буду, админ говорил что на некоторых платформах нужно больше w но на каких и почему внятно объяснить не могу smile

я лично для таких вещей open не использую по-моему лучше:

Код


 for(`ps -auxww`) {
   my $_r=$_;
 }

sharq

Дата 3.7.2007, 12:20 (ссылка)

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

Загрузка ...

Perl Liker

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

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

dimes,

Цитата(dimes @ 3.7.2007, 13:17

)

я лично для таких вещей open не использую по-моему лучше:

если тебе нужно общаться с процессом через пайп? то без open ничего хорошего не получится.
Хотя с ps проблем не будет, если например - mplayer - то тут уже никуда не деться.

smile

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

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

dimes

Дата 3.7.2007, 12:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(sharq @ 3.7.2007, 13:20

)

если тебе нужно общаться с процессом через пайп?

А о чем мне общаться с ps? smile

некоторые процессы не заслуживают даже что бы их слушали дернул их system-ом посмотрел статус и забыл о нем smile

vaddsm

Дата 3.7.2007, 13:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


open($stream, '-|', "ps aux")

дал как не странно тот же результат.

а вот

Код


for(`ps -auxww`) {
   my $_r=$_;
 }

на ура.

Спасибо!

sharq

Дата 3.7.2007, 13:18 (ссылка)

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

Загрузка ...

Perl Liker

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

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

vaddsm, )))))

Цитата(vaddsm @ 3.7.2007, 14:04

)

"ps aux")

Цитата(vaddsm @ 3.7.2007, 14:04

)

ps -auxww

нади отличия!

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

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

nitr

Дата 3.7.2007, 13:43 (ссылка)

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

Загрузка ...

Эксперт

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

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

vaddsm, поидее man ps, т.к. нет ps -... есть ps ...

;)

Это сообщение отредактировал(а) nitr - 3.7.2007, 13:44

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

I love ArchLinux

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