The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Как передать файловый дескриптор в качестве параметра функции
sub test{
	my $handle = shift;
	while (<$handle>){
		.....
	};
        print {$handle} "test\n";
}
open (FH, "<file");
flock(FH, 1);
test(*FH);
                                                  
 
27.08.2001
Ключи: lock, file / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Функции и модули в Perl

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру