Lines Matching refs:fh
78 my $fh = gensym;
81 my $ob = tie *$fh,'Implement';
83 is(tied(*$fh), $ob);
86 $r = print $fh @expect[2,3];
90 $r = printf $fh @expect[2,3];
95 $ln = <$fh>;
100 @line = <$fh>;
106 $ch = getc $fh;
112 $r = read $fh,$buf,3;
120 $r = sysread $fh,$buf,3,3;
127 $r = syswrite $fh,$buf,4,1;
134 $r = syswrite $fh,$buf,4;
141 $r = syswrite $fh,$buf;
146 $r = close $fh;
150 *ALIAS = *$fh;
159 local *STDERR = *$fh;
176 my $fh = shift;
177 read $fh, my $buff, 1;
220 local *STDERR = *$fh;