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

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dcrlf.t39 open my $fh, "<:crlf", \$fcontents;
41 local $_ = <$fh>;
42 my $pos = tell $fh; # pos must be behind "xxx", before "\nyyy\n"
43 seek $fh, $pos, 0;
45 $s = <$fh>.<$fh>;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/
H A DPipe.pm53 my $fh;
64 $fh = $rw ? ${*$me}[0] : ${*$me}[1];
67 $fh = $rw ? $me->reader() : $me->writer(); # close the other end
70 $io->fdopen($fh, $mode);
71 $fh->close;
100 my $fh = ${*$me}[0];
102 $pid = $me->_doit(0, $fh, @_)
106 bless $me, ref($fh);
107 *$me = *$fh; # Alias self to handle
108 $me->fdopen($fh
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/
H A DObject.pm36 my ($class, $obj, $fh, $indent) = @_;
37 $fh ||= \*STDOUT;
43 print $fh ($istr, "UNDEFINED_VALUE\n");
50 printf $fh ("%sITEM\n%s Catalog = %s|%s|%s\n",
57 $class->dump($val, $fh, $indent);
62 printf $fh ("%s Value = %s\n", $istr, $val);
67 printf $fh ("%sGROUP\n%s Catalog = %s|%s|%s\n",
71 $class->dump($val, $fh, $indent);
73 printf $fh ("%sENDGROUP\n", $istr);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DFileHandle.pm114 $fh = new FileHandle;
115 if ($fh->open("< file")) {
116 print <$fh>;
117 $fh->close;
120 $fh = new FileHandle "> FOO";
121 if (defined $fh) {
122 print $fh "bar\n";
123 $fh->close;
126 $fh = new FileHandle "file", "r";
127 if (defined $fh) {
[all...]
H A DSelectSaver.pm43 my $fh = select;
44 my $self = bless [$fh], $_[0];
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dtiehandle.t78 my $fh = gensym;
81 my $ob = tie *$fh,'Implement';
83 is(tied(*$fh), $ob);
86 $r = print $fh @expect[2,3];
90 $r = printf $fh @expect[2,3];
95 $ln = <$fh>;
100 @line = <$fh>;
106 $ch = getc $fh;
112 $r = read $fh,$buf,3;
120 $r = sysread $fh,
[all...]
H A Dinccode.t21 open my $fh, ">$f" or die "Can't create $f: $!";
22 print $fh "package ".substr($_[0],0,-3).";\n1;\n";
23 print $fh $_[1] if @_ > 1;
24 close $fh or die "Couldn't close: $!";
25 open $fh, $f or die "Can't open $f: $!";
26 return $fh;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafe3.t36 open my $fh, '>nasty.pl' or die "Can't write nasty.pl: $!\n";
37 print $fh <<EOF;
40 close $fh;
/osnet-11/usr/src/lib/libfuse/common/
H A Dfuse_common_compat.h21 unsigned long fh; member in struct:fuse_file_info_compat
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/
H A DIterator.pm41 $self->{fh} = $thing;
57 my $fh = $_[0]->{fh};
58 return scalar <$fh>;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Search/
H A DDict.pm51 my($fh,$key,$dict,$fold) = @_;
63 my(@stat) = stat($fh)
74 seek($fh, $mid * $blksize, 0)
76 <$fh> if $mid; # probably a partial line
77 $_ = <$fh>;
91 seek($fh,$min,0)
93 <$fh> if $min;
95 $min = tell($fh);
96 defined($_ = <$fh>)
104 seek($fh,
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/via/
H A Dvia.pm15 open($fh,"<:via(Layer)",...);
18 open($fh,">:via(Some::Other::Package)",...);
32 open( my $fh, "<:via(StripHTML)", "index.html" );
33 my @line = <$fh>;
55 In the method descriptions below I<$fh> will be
57 It refers to the layer below. I<$fh> is not passed if the layer
63 =item $class->PUSHED([$mode[,$fh]])
73 =item $obj->POPPED([$fh])
77 =item $obj->UTF8($bellowFlag,[$fh])
91 =item $obj->OPEN($path,$mode[,$fh])
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/
H A Dfind2perl.PL229 my $fh = 'FH' . $file;
230 $fh =~ s/\W/_/g;
231 $out .= tab . "tar(*$fh, \$name)";
234 $initfile .= "open($fh, " . quote('> ' . $file) .
235 qq{) || die "Can't open $fh: \$!\\n";\n};
240 my $fh = 'FH' . $file;
241 $fh =~ s/\W/_/g;
242 $out .= tab . "cpio(*$fh, \$name, '$1')";
246 $initfile .= "open($fh, " . quote('> ' . $file) .
247 qq{) || die "Can't open $fh
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/utils/port/
H A DEditedFiles65 my ($fh, $line);
68 open($fh, '<', "$bld/patchlevel.h") || die("$bld is not a perl build dir\n");
70 while (defined($line = <$fh>)) {
76 close($fh);
90 open($fh, '<', $mapfile) || die("Can't open $mapfile: $!\n");
91 while (defined($line = <$fh>) && $line !~ m{^"Path",}) {
94 while (defined($line = <$fh>)) {
105 close($fh);
H A DCheckIn58 my ($fh, $line, %file);
59 open($fh, '<', $mapfile) || die("Can't open $mapfile: $!\n");
60 while (defined($line = <$fh>) && $line !~ m{^"Path",}) {
63 while (defined($line = <$fh>)) {
74 close($fh);
H A DInstallPerl58 my $fh;
59 open($fh, '<', $f) || die("Can't open $pf: $!\n");
60 while (defined(my $line = <$fh>)) {
66 close($fh);
74 my $fh;
102 open($fh, '<', 'patchlevel.h') || die("Can't open patchlevel.h: $!\n");
103 while (defined(my $line = <$fh>)) {
150 open($fh, '>', 'config.over') || die("Can't open config.over: $!\n");
151 print $fh <<"EOF";
180 close($fh);
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/t/
H A DRandTest31 my ($obj, $fh, $indent) = @_;
32 $fh ||= \*STDOUT;
38 printf $fh ("%sITEM\n%s Catalog = %s|%s|%d\n",
43 dump_object($val, $fh, $indent);
45 printf $fh ("%s Value = %s\n", $istr, $val);
48 printf $fh ("%sGROUP\n%s Catalog = %s|%s|%d\n",
52 dump_object($val, $fh, $indent);
54 printf $fh ("%sENDGROUP\n", $istr);
63 my ($fh, $objs) = @_;
65 dump_object($o, $fh);
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DPacklist.pm15 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 ("
[all...]
/osnet-11/usr/src/tools/onbld/Checks/
H A DCopyright.py62 def copyright(fh, filename=None, output=sys.stderr):
67 filename = fh.name
69 for line in fh:
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCopy.t59 $fh = IO::File->new(">copy-$$") or die "Cannot open copy-$$:$!";
60 binmode $fh or die;
61 copy("file-$$",$fh);
62 $fh->close or die "close: $!";
68 my $fh = FileHandle->new(">copy-$$") or die "Cannot open copy-$$:$!";
69 binmode $fh or die;
70 copy("file-$$",$fh);
71 $fh->close;
H A DTemp.pm47 ($fh, $filename) = tempfile( DIR => $dir );
49 ($fh, $filename) = tempfile( $template, DIR => $dir);
50 ($fh, $filename) = tempfile( $template, SUFFIX => '.dat');
52 $fh = tempfile();
59 $fh = new File::Temp($template);
60 $fname = $fh->filename;
71 ($fh, $file) = mkstemp( "tmpfileXXXXX" );
72 ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix);
83 $fh = tmpfile();
85 ($fh,
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DHandle.pm204 my $fh = \do { local *HANDLE};
205 bless $fh,$class;
206 $fh->OPEN(@_) if (@_);
207 return $fh;
224 sub READLINE { my $fh = $_[0]; <$fh> }
229 my $fh = $_[0];
230 print $fh substr($_[1],0,$_[2])
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/Scalar/
H A DUtil.pm35 my $fh = shift;
36 my $rt = reftype($fh) || '';
38 return defined(fileno($fh)) ? $fh : undef
41 if (reftype(\$fh) eq 'GLOB') { # handle openhandle(*DATA)
42 $fh = \(my $tmp=$fh);
48 (tied(*$fh) or defined(fileno($fh)))
49 ? $fh
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/bin/
H A Denc2xs172 foreach my $fh (\*C,\*D,\*H)
174 print $fh <<"END" unless $opt{'q'};
367 my ($fh,$name) = @_;
372 while (<$fh>)
405 while (<$fh>)
460 my ($fh,$name) = @_;
465 while ($type = <$fh>)
473 my ($def,$sym,$pages) = split(/\s+/,scalar(<$fh>));
489 my $line = <$fh>;
497 my $line = <$fh>;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/
H A DSelfStubber.pm32 my($line,$end_data,$fh,$mod_file,$found_selfloader);
38 $fh = "${module}::DATA";
42 open($fh,$mod_file) || die "Unable to open $mod_file";
44 while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) {
57 if ( fileno($fh) ) {
59 while(defined($line = <$fh>)) {
63 close($fh);

Completed in 27 milliseconds

12345