Lines Matching refs:tempfile
20 my $tempfile = tempfile();
22 open(STDOUT,">$tempfile") || die "Can't open stdout";
49 if ($^O eq 'MSWin32') { print `type $tempfile` }
50 elsif ($^O eq 'VMS') { system "type $tempfile.;" } # TYPE defaults to .LIS when there is no extension
51 else { system "cat $tempfile" }
101 open(G, ">$tempfile") or die;
117 open(G, "<$tempfile") or die;
125 open UTFOUT, '>:utf8', $tempfile or die $!;
135 open(UTFIN, "<:utf8", $tempfile) or die $!;