https://www.opennet.ru/openforum/vsluhforumID9/7894.html Нужно в функцию передать handler потока, а потом в ней записать что-то в этот поток. Но с "use strict" пример ниже не работает:<br>Can't use string ("FILE") as a symbol ref while "strict refs" in use at ./test.pl line 11<br>Как с "use strict" сделать это?<br><br>#!/usr/bin/perl<br><br>use strict;<br><br>open( FILE, "&gt;test.txt" ) or die 'Cannot open file';<br>get_info( 'FILE' );<br>close FILE;<br><br>sub get_info {<br> my $handler = shift;<br> print $handler "test";<br>}<br><br><br> https://www.opennet.ru/openforum/vsluhforumID9/7894.html#2 Wed, 11 Feb 2009 14:14:34 GMT &gt;[оверквотинг удален]<br>&gt;&gt;open( FILE, "&gt;test.txt" ) or die 'Cannot open file';<br>&gt;&gt;get_info( 'FILE' ); <br>&gt;&gt;close FILE; <br>&gt;&gt;<br>&gt;&gt;sub get_info { <br>&gt;&gt; my $handler = shift; <br>&gt;&gt; print $handler "test"; <br>&gt;&gt;} <br>&gt;<br>&gt;get_info( \*FILE ); <br><br>спасибо!<br> https://www.opennet.ru/openforum/vsluhforumID9/7894.html#1 Tue, 10 Feb 2009 08:45:06 GMT &gt;[оверквотинг удален]<br>&gt;use strict; <br>&gt;<br>&gt;open( FILE, "&gt;test.txt" ) or die 'Cannot open file';<br>&gt;get_info( 'FILE' ); <br>&gt;close FILE; <br>&gt;<br>&gt;sub get_info { <br>&gt; my $handler = shift; <br>&gt; print $handler "test"; <br>&gt;} <br><br>get_info( \*FILE );<br><br>