Searched refs:fh (Results 101 - 122 of 122) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A Dtest.pl37 my $fh = $TODO ? *STDOUT : *STDERR;
38 print $fh @mess;
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Project/
H A DProject.pm152 my ($fh, $flags) = @_;
161 while (defined($line = <$fh>)) {
229 my ($fh, $projents) = @_;
240 print $fh "$string";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dconfigpm366 if (open my $fh, '<', $f) {
367 while (<$fh>) {
H A Dtoke.c3550 PL_expect = XTERM; /* e.g. print $fh "foo" */
3552 PL_expect = XTERM; /* e.g. print $fh &sub */
3569 PL_expect = XTERM; /* e.g. print $fh length() */
3574 PL_expect = XTERM; /* e.g. print $fh subr() */
3578 PL_expect = XTERM; /* e.g. print $fh 3 */
3580 PL_expect = XTERM; /* e.g. print $fh .3 */
3582 PL_expect = XTERM; /* e.g. print $fh -1 */
3584 PL_expect = XTERM; /* print $fh <<"EOF" */
6730 <$fh> read from filehandle in $fh
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CPAN/
H A DFirstTime.pm592 my $fh = FileHandle->new;
593 $fh->open($local) or die "Couldn't open $local: $!";
595 while (<$fh>) {
609 $fh->close;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSymbol.pm30 print { qualify_to_ref $fh } "foo!\n";
H A Dperl5db.pl3222 if (open my $fh, $1) {
3224 push @cmdfhs, $fh;
3245 if (open my $fh, "> $file") {
3248 print $fh join("\n", @truelist);
3611 my $fh = ($doret eq $stack_depth ? $OUT : $LINEINFO);
3614 print $fh ' ' x $stack_depth if $frame & 16;
3617 print $fh "list context return from $sub:\n";
3618 dumpit($fh, \@ret);
3658 my $fh = ($doret eq $stack_depth ? $OUT : $LINEINFO);
3659 print $fh (' '
[all...]
H A DMemoize.pm611 open my $fh, "$DIR/$problem_type" or die...;
614 $line = <$fh>;
H A DCGI.pm515 my($query_string,$meth,$content_length,$fh,@lines) = ('','','','');
533 for my $fh (grep {defined(fileno($_))} @$val) {
534 seek($fh,0,0); # reset the filehandle.
548 $fh = to_filehandle($initializer) if $initializer;
629 if (defined($fh) && ($fh ne '')) {
630 while (my $line = <$fh>) {
1435 my $fh = shift;
1436 return save(to_filehandle($fh));
3890 (my $i = $$self) =~ s/^\*(\w+::fh\
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D04_splice.t235 local *FH = $o->{fh};
H A D26_twrite.t314 local *FH = $o->{fh};
H A D29_downcopy.t319 local *FH = $o->{fh};
H A D29a_upcopy.t166 local *FH = $o->{fh};
H A D32_defer_misc.t181 local *FH = $o->{fh};
H A D30_defer.t301 local *FH = $o->{fh};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/
H A Dh2xs.PL1509 my $fh = shift;
1528 print $fh <<"EOP";
1535 print $fh <<"EOP";
1542 my($fh, $name, $type) = @_;
1543 print $fh <<END;
1568 my($fh, $name, $type) = @_;
1569 print $fh <<END;
1600 my($fh, $name, $struct) = @_;
1604 print $fh <<"EOF";
1652 print $fh <<"EO
[all...]
H A Dperlbug.PL145 $fh, $me, $Is_MSWin32, $Is_Linux, $Is_VMS, $msg, $body, $andcc, %REP, $ok,
847 $fh = $msg->open;
849 while (<REP>) { print $fh $_ }
851 $fh->close;
967 my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);
968 close($fh);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/
H A DStraps.pm235 my($self, $name, $fh) = @_;
237 my $it = Test::Harness::Iterator->new($fh);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.pm283 my ($section, $fh, $format) = @_;
296 printf $fh $format, $_;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DDeparse.pm1758 $kid = $kid->first if $kid->name eq "rv2gv"; # <$fh>
2266 my $fh;
2269 $fh = $self->const_sv($kid)->PV;
2271 $fh = $self->deparse($kid, 6);
2272 $fh = "+$fh" if not $parens and substr($fh, 0, 1) eq "(";
2276 return "truncate($fh, $len)";
2278 return "truncate $fh, $len";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/
H A DEncode.pm590 while(defined(read $fh, $buffer, 256)){
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/
H A DLong.pm1223 my $fh = $pa->{-output} ||
1226 print $fh (defined($pa->{-message}) ? $pa->{-message} : (),

Completed in 77 milliseconds

12345