форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[ Отслеживать ]

"Передать handler потока в функцию"

Сообщение от jr (ok) on 10-Фев-09, 11:35

Нужно в функцию передать handler потока, а потом в ней записать что-то в этот поток. Но с "use strict" пример ниже не работает: Can't use string ("FILE") as a symbol ref while "strict refs" in use at ./test.pl line 11 Как с "use strict" сделать это? #!/usr/bin/perl use strict; open( FILE, ">test.txt" ) or die 'Cannot open file'; get_info( 'FILE' ); close FILE; sub get_info {    my $handler = shift;    print $handler "test"; }

Высказать мнение | Ответить | Правка | Cообщить модератору

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

[Сортировка по времени | RSS]

1. "Передать handler потока в функцию"

Сообщение от NuINu (??) on 10-Фев-09, 11:45

>[оверквотинг удален] >use strict; > >open( FILE, ">test.txt" ) or die 'Cannot open file'; >get_info( 'FILE' ); >close FILE; > >sub get_info { >   my $handler = shift; >   print $handler "test"; >} get_info( \*FILE );

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "Передать handler потока в функцию"
	Сообщение от jr (ok) on 11-Фев-09, 17:14
	>[оверквотинг удален] >>open( FILE, ">test.txt" ) or die 'Cannot open file'; >>get_info( 'FILE' ); >>close FILE; >> >>sub get_info { >>   my $handler = shift; >>   print $handler "test"; >>} > >get_info( \*FILE ); спасибо!
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]