Lines Matching refs:fh
147 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->autoflush;
182 print $fh $_ for qw "pumping plum pits";
183 close $fh;
186 open $fh, "<:encoding(cower)", \$buf;
187 is join("", <$fh>), "pumping\nplum\npits\n",
212 open my $fh, ">:encoding(globber)", \$buf;
213 print $fh "Agathopous Goodfoot\n";
214 close $fh;
219 open $fh, "<:encoding(globber)", \$buf;
220 my $x = <$fh>;
221 close $fh;
230 open my $fh, "<:encoding(UTF16-LE)", \$b or die;
231 is scalar(<$fh>), "ab\n";
233 close $fh or die;