How to assign a file handle to a subroutine.
==============================
my $FH;
open($FH,"< /tmp/text");
my_print(\*$FH);
exit(0);
sub my_print {
my $FH = shift;
my @arr = <$FH>;
print @arr;
}
==============================
my $FH;
open($FH,"< /tmp/text");
my_print(\*$FH);
exit(0);
sub my_print {
my $FH = shift;
my @arr = <$FH>;
print @arr;
}
yup :) globbing, but do we really need to escape globber?
ReplyDeleteThis comment has been removed by the author.
ReplyDelete