Lines Matching refs:fh
29 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
31 print $fh $str,"0.02\n";
32 close($fh);
36 open($fh,$file) || die "File cannot be re-opened";
37 my $line = <$fh>;
39 close($fh);
43 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
45 print $fh $str,"0.02\n";
46 close($fh);
48 open($fh,$file) || die "File cannot be re-opened";
49 my $line = <$fh>;
51 close($fh);
55 open($fh,">$file") || die "File cannot be re-opened";
56 binmode($fh);
57 print $fh "\xA30.02\n";
58 close($fh);
61 ok(open($fh,"<encoding(US-ASCII)",$file),"Opened as ASCII");
62 my $line = <$fh>;
65 close($fh);
69 ok(open($fh,"<encoding(US-ASCII)",$file),"Opened as ASCII");
70 my $line = <$fh>;
73 close($fh);