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 D | test.pl | 37 my $fh = $TODO ? *STDOUT : *STDERR; 38 print $fh @mess;
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Project/ |
H A D | Project.pm | 152 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 D | configpm | 366 if (open my $fh, '<', $f) { 367 while (<$fh>) {
|
H A D | toke.c | 3550 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 D | FirstTime.pm | 592 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 D | Symbol.pm | 30 print { qualify_to_ref $fh } "foo!\n";
|
H A D | perl5db.pl | 3222 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 D | Memoize.pm | 611 open my $fh, "$DIR/$problem_type" or die...; 614 $line = <$fh>;
|
H A D | CGI.pm | 515 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 D | 04_splice.t | 235 local *FH = $o->{fh};
|
H A D | 26_twrite.t | 314 local *FH = $o->{fh};
|
H A D | 29_downcopy.t | 319 local *FH = $o->{fh};
|
H A D | 29a_upcopy.t | 166 local *FH = $o->{fh};
|
H A D | 32_defer_misc.t | 181 local *FH = $o->{fh};
|
H A D | 30_defer.t | 301 local *FH = $o->{fh};
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/ |
H A D | h2xs.PL | 1509 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 D | perlbug.PL | 145 $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 D | Straps.pm | 235 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 D | B.pm | 283 my ($section, $fh, $format) = @_; 296 printf $fh $format, $_;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | Deparse.pm | 1758 $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 D | Encode.pm | 590 while(defined(read $fh, $buffer, 256)){
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
H A D | Long.pm | 1223 my $fh = $pa->{-output} || 1226 print $fh (defined($pa->{-message}) ? $pa->{-message} : (),
|
Completed in 77 milliseconds
12345