Lines Matching refs:fh
27 my $fh = \*{$fhname++};
29 return($fh);
124 my $fh = mkfh();
125 open($fh, "<$packfile") || Carp::croak("Can't open file $packfile: $!");
128 while (defined($line = <$fh>))
149 close($fh);
159 my $fh = mkfh();
160 open($fh, ">$packfile") || Carp::croak("Can't open file $packfile: $!");
187 print $fh ("$key");
192 print $fh (" $k=$data->{$k}");
195 print $fh ("\n");
197 close($fh);