Нужно в функцию передать 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";
}

• Передать handler потока в функцию,NuINu, 11:45 , 10-Фев-09
  • Передать handler потока в функцию,jr, 17:14 , 11-Фев-09

>[оверквотинг удален]
>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 );

спасибо!