Searched refs:fh (Results 126 - 150 of 535) sorted by relevance

1234567891011>>

/openbsd-current/gnu/usr.bin/perl/t/op/
H A Dunlink.t20 open my $fh, ">", $file or die "Can't open $file: $!";
21 close $fh or die "Can't close $file: $!";
/openbsd-current/usr.sbin/pkg_add/OpenBSD/PackageRepository/
H A DSCP.pm124 if (open(my $fh, '<', $fname)) {
125 my $size = (stat $fh)[7];
128 while (read($fh, $buffer, 1024 * 1024) > 0) {
131 close($fh);
H A DCache.pm100 open my $fh, "-|", $self->pipe_locate(map { "$_-[0-9]*"} @list)
102 while (<$fh>) {
115 close($fh);
138 open my $fh, "-|", $self->pipe_locate($name.":*") or die $!;
139 while (<$fh>) {
146 close ($fh);
/openbsd-current/gnu/usr.bin/perl/t/porting/
H A Dtest_bootstrap.t16 open my $fh, '<', '../MANIFEST' or die "Can't open MANIFEST: $!";
27 while (my $file = <$fh>) {
73 my $fh;
74 if (ok(open(my $fh, '<', 'test.pl'), "opened test.pl")) {
75 $file = do { local $/; <$fh> };
H A Dexec-bit.t13 open my $fh, '<', $fname or die "Can't open '$fname': $!";
14 my $line = <$fh>;
15 close $fh;
/openbsd-current/gnu/usr.bin/perl/cpan/File-Path/t/
H A DFilePathTest.pm48 open my $fh, '>', $output;
49 return $fh;
105 my $fh = Symbol::gensym();
106 tie *$fh, 'StringIO', $output;
107 return $fh;
/openbsd-current/usr.sbin/pkg_add/OpenBSD/
H A DPackingList.pm173 sub defaultCode($fh, $cont)
175 while (<$fh>) {
180 sub SharedItemsOnly($fh, $cont)
182 while (<$fh>) {
188 sub UpdatePlistOnly($fh, $cont)
190 while (<$fh>) {
201 sub LibraryOnly($fh, $cont)
203 while (<$fh>) {
209 sub FilesOnly($fh, $cont)
211 while (<$fh>) {
[all...]
H A DRequiredBy.pm37 open(my $fh, '<', $self->{filename}) or
39 while(<$fh>) {
45 close($fh);
63 open(my $fh, '>', $self->{filename}) or
66 print $fh "$k\n";
68 close($fh) or
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-encoding/t/
H A Dencoding.t147 open my $fh, ">:encoding(extensive)", \$buf;
148 $fh->autoflush;
149 print $fh "doughnut\n";
150 print $fh "quaffee\n";
152 print $fh "The beech leaves beech leaves on the beach by the beech.\n";
153 close $fh;
157 open $fh, "<:encoding(extensive)", \$buf;
158 is join("", <$fh>), "Sheila surely shod Sean\nin shoddy shoes.\n",
180 open $fh, ">:encoding(cower)", \$buf;
181 $fh
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/
H A DAuthor.pm132 my $fh;
138 $fh = FileHandle->new;
139 if (open($fh, $lc_want)) {
140 my $line = <$fh>; close $fh;
186 $fh = FileHandle->new;
188 if (open $fh, $lc_file) {
190 my $eval = <$fh>;
192 close $fh;
/openbsd-current/gnu/usr.bin/perl/t/io/
H A Dtell.t176 $fh = *FH; # coercible glob
177 is(tell($fh), 0, "tell on coercible glob");
179 tell *$fh;
181 eof $fh;
183 eof *$fh;
185 seek $fh,0,0;
187 seek *$fh,0,0;
/openbsd-current/usr.bin/pkg-config/OpenBSD/
H A DPkgConfig.pm105 sub read_fh($class, $fh, $name = '')
109 while (<$fh>) {
114 $_.=<$fh>;
141 open my $fh, '<:crlf', $filename or die "Can't open $filename: $!";
142 return $class->read_fh($fh, $filename);
145 sub write_fh($self, $fh)
148 say $fh "$variable=", $self->{variables}{$variable};
150 print $fh "\n\n";
153 print $fh "$property:";
155 print $fh
[all...]
/openbsd-current/gnu/usr.bin/perl/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($belowFlag,[$fh])
90 =item $obj->OPEN($path,$mode,[$fh])
[all...]
/openbsd-current/regress/sys/kern/sosplice/
H A DProc.pm51 open(my $fh, '>', $self->{logfile})
53 $fh->autoflush;
54 $self->{log} = $fh;
125 open(my $fh, '<', $self->{logfile})
127 my $match = first { /$regex/ } <$fh>;
129 close($fh);
/openbsd-current/regress/sys/net/pf_divert/
H A DProc.pm53 open(my $fh, '>', $self->{logfile})
55 $fh->autoflush;
56 $self->{log} = $fh;
137 open(my $fh, '<', $self->{logfile})
139 my $match = first { /$regex/ } <$fh>;
141 close($fh);
/openbsd-current/regress/usr.sbin/ospfd/
H A DProc.pm69 open(my $fh, '>', $self->{logfile})
71 $fh->autoflush;
72 $self->{log} = $fh;
149 open(my $fh, '<', $self->{logfile})
151 my @match = grep { /$regex/ } <$fh>;
153 close($fh);
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
H A Dfixin.t55 ok(open(my $fh, ">", $file), "write $file") or diag "Can't write $file: $!";
56 print $fh $code;
57 close $fh;
61 ok(open($fh, "<", $file), "read $file") or diag "Can't read $file: $!";
62 my @lines = <$fh>;
63 close $fh;
H A Dpm_to_blib.t63 ok( open my $fh, ">>", "lib/Big/Dummy.pm" ) or die $!;
64 print $fh "Something else\n";
65 close $fh;
/openbsd-current/gnu/usr.bin/perl/ext/B/
H A DMakefile.PL41 open my $fh, '<', $path or die "Cannot open $path: $!";
42 while (<$fh>) {
54 close $fh;
/openbsd-current/gnu/usr.bin/perl/regen/
H A Dtidy_embed.pl67 open my $fh,">",$new
69 print $fh $grouped_content_txt
71 close $fh
/openbsd-current/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/lib/
H A DPrimitiveCapture.pm42 open my $fh, "<", $filename or die "Can't read $filename: $!";
44 my $content = <$fh>;
/openbsd-current/gnu/usr.bin/perl/Porting/
H A Dcheckpodencoding.pl27 open my $fh, '<', $file;
37 FILE: while (my $line = <$fh>) {
/openbsd-current/lib/libedit/
H A Dmakelist39 USAGE="Usage: $0 -h|-dh|-fh|-bh <filenames>"
67 # XXX: need a space between name and prototype so that -dh and -fh
125 -fh)
/openbsd-current/gnu/usr.bin/perl/os2/OS2/OS2-Process/t/
H A Dos2_process_text.t22 #my $PID = open my $fh, '-|', $^X, '-wle', $cmd;
24 my $PID = open my $fh, '-|', "$^X -wle 'eval \$ENV{CMD_RUN} or die'";
27 $kpid = <$fh>;
28 $kppid = <$fh>;
29 $sid = <$fh>;
52 ok close $fh, 'closed the pipe'; # No kid any more
/openbsd-current/gnu/usr.bin/perl/t/comp/
H A Dutf.t37 open my $fh, ">", "tmputf$$.pl" or die "tmputf$$.pl: $!";
38 binmode $fh;
39 print $fh bytes_to_utf($enc, $write . ($nl ? "\n" : ''), $bom);
40 close $fh or die $!;

Completed in 136 milliseconds

1234567891011>>