форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Help, perl"
Сообщение от Axe on 10-Окт-02, 09:38  (MSK)
Помогите, сил моих нет. #!/usr/bin/perl -w open(FILEHANDLE,">>logfile") or die ("Cannot open file"); while ($input=<>){ print $input; print FILEHANDLE $input; } вызывается этот скрипт и должен инфу из потока печатать на консоль и в файл, но он зараза на консоль выводит а в файл не печатает.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Help, perl"
Сообщение от Ilya on 10-Окт-02, 10:10  (MSK)
>Помогите, сил моих нет. >вызывается этот скрипт и должен инфу из потока печатать на консоль и >в файл, но он зараза на консоль выводит а в файл >не печатает. open FF, ">>logfile" or die "Unable open file $!\n"; while(<STDIN>) {         print $_;         print FF $_; } Но есть еще как минимум один способ :)
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: Help, perl"
	Сообщение от Axe on 10-Окт-02, 10:44  (MSK)
	так тоже не работает
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "RE: Help, perl"
	Сообщение от Ilya on 10-Окт-02, 13:17  (MSK)
	>так тоже не работает Хм, а права на запись в каталоге есть? И откуда ты вызываешь скрипт, я проверил на строке $ cat t.pl|perl -w t.pl - работает И еще, может проверить код возврата после записи в файл?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: Help, perl"
	Сообщение от Axe on 11-Окт-02, 01:53  (MSK)
	права на каталог есть, код возврата-1 :((. не могу понять, где косяк
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "RE: Help, perl"
	Сообщение от Ilya on 11-Окт-02, 02:42  (MSK)
	>права на каталог есть, код возврата-1 :((. 1) код возврата 1 -это все ОК, возможно это результат буферизации - данные в файл запишуться только после закрытия handle либо после заполнения буфера. Как это устранить: use IO::Handle; open FF ..... FF->autoflush(1); после этого буферизация отключится. Пробуй. И можно еще попробовать следующее: open FF, ">>logfile" or die "Unable open file $!\n"; $i=0; while(<STDIN>) {         print $_;         print FF $_;         $i++;         if( $i >=3) {                 break;         } } close FF; Если в файле будут 10 строк - явно сложности с буферизацией Удачи!
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "RE: Help, perl"
	Сообщение от Axe on 11-Окт-02, 04:38  (MSK)
	>use IO::Handle; >open FF ..... > >FF->autoflush(1); > >после этого буферизация отключится. Пробуй. И можно еще попробовать следующее: вот таким вариантом получилось. Огромное спасибо!
		Рекомендовать в FAQ | Cообщить модератору | Наверх

7. "RE: Help, perl"
Сообщение от Sulemanov . R .S on 17-Окт-02, 19:43  (MSK)
#!/usr/bin/perl -w $logfile="file.log"; open(FILEHANDLE,">>$logfile") or die "Cannot open file $_ !"; while ($input=<>){ print $input; print FILEHANDLE $input; }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.