Нужно в функцию передать 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";
}
>[оверквотинг удален]
>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 );
>[оверквотинг удален]
>>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 );спасибо!