Lines Matching refs:fh
15 my $fh = \*{$fhname++};
17 return($fh);
86 my $fh = mkfh();
87 open($fh, "<$packfile") || Carp::croak("Can't open file $packfile: $!");
90 while (defined($line = <$fh>))
115 close($fh);
125 my $fh = mkfh();
126 open($fh, ">$packfile") || Carp::croak("Can't open file $packfile: $!");
129 print $fh ("$key");
135 print $fh (" $k=$data->{$k}");
138 print $fh ("\n");
140 close($fh);