/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | crlf.t | 39 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 D | Pipe.pm | 53 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 D | Object.pm | 36 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 D | FileHandle.pm | 114 $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 D | SelectSaver.pm | 43 my $fh = select; 44 my $self = bless [$fh], $_[0];
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | tiehandle.t | 78 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 D | inccode.t | 21 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 D | safe3.t | 36 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 D | fuse_common_compat.h | 21 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 D | Iterator.pm | 41 $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 D | Dict.pm | 51 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 D | via.pm | 15 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 D | find2perl.PL | 229 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 D | EditedFiles | 65 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 D | CheckIn | 58 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 D | InstallPerl | 58 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 D | RandTest | 31 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 D | Packlist.pm | 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 (" [all...] |
/osnet-11/usr/src/tools/onbld/Checks/ |
H A D | Copyright.py | 62 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 D | Copy.t | 59 $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 D | Temp.pm | 47 ($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 D | Handle.pm | 204 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 D | Util.pm | 35 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 D | enc2xs | 172 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 D | SelfStubber.pm | 32 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);
|