Lines Matching refs:fh
86 my $fh;
97 $fh = $file; # setting binmode is the user's problem
101 # $fh = \do { local *FH }; # XXX this is buggy
105 $fh = Symbol::gensym();
107 sysopen $fh, $file, $opts{mode}, 0666 or return;
108 binmode $fh;
111 { my $ofh = select $fh; $| = 1; select $ofh } # autoflush on write
114 eval 'binmode($fh, $opts{discipline})';
118 $opts{fh} = $fh;
173 my $fh = $self->{FH};
181 # if ($n == 0 && defined($rec) && tell($self->{fh}) != length($rec)) {
420 if ($self->{fh} and $self->{ourfh}) {
422 close delete $self->{fh};
546 my $fh = $self->{fh};
566 my $br = read $self->{fh}, $next_block, $bufsize;
567 $more_data = read $self->{fh}, my($dummy), 1;
594 local *FH = $self->{fh};
685 my $fh = $self->{fh};
687 my $bytes_read = read $fh, my($data), $readsize;
709 my $fh = $self->{fh};
715 read $fh, my($old), $readsize;
845 seek $self->{fh}, $o, SEEK_SET
852 seek $self->{fh}, $b, SEEK_SET
863 my $fh = $self->{fh};
871 push @OFF, int(tell $fh); # Tels says that int() saves memory here
886 my $fh = $self->{fh};
895 push @OFF, int(tell $fh);
905 my $fh = $self->{fh};
907 print $fh $rec
916 my $fh = $self->{fh};
917 $rec = <$fh>;
927 my $fh = $self->{fh};
928 print $fh $self->{recsep};
979 push @{$self->{offsets}}, int(tell $self->{fh});
986 truncate $self->{fh}, tell($self->{fh});
1014 my $fh = $self->{fh};
1016 my $locked = flock $fh, $op;
1321 local *F = $self->{fh};
2300 If C<$fh> is a filehandle, such as is returned by C<IO::File> or one
2303 tie @array, 'Tie::File', $fh, ...;