Perl打开文件问题

Question

我在尝试从文件打印时遇到一些问题。有什么想法吗？谢谢

open(STDOUT,">/home/int420_101a05/shttpd/htdocs/receipt.html"); 
#Results of a sub-routine
&printReceipt; 
close(STDOUT);

open(INF,"/home/int420_101a05/shttpd/htdocs/receipt.html"); $emailBody = <INF>; 
close(INF); 
print $emailBody;

ERRORS: Filehandle STDOUT reopened as INF only for input at ./test.c line 6. 
print() on closed filehandle STDOUT at ./test.c line 9.

Answer 1

1. 此讨论解决了该消息的技术原因。该线程的相关信息是这样的：

   来自 open(2) 联机帮助页：

   调用成功后，返回的文件描述符为
   当前未为进程打开的最低文件描述符。

   <块引用>

   但是 STDOUT 仍然指的是
   文件句柄#1。这个警告可能是
   有用。尽管有人可以争辩说
   进一步使用 STDOUT 作为输出
   文件句柄将触发警告
   嗯...

   因此，总而言之，您关闭了 STDOUT（文件描述符 1），并且您的文件将以 FD#1 的形式打开。这是由于 open() 的 属性所致。

2. 正如其他人所指出的，您遇到此问题的真正原因是您不应该使用 STDOUT 来打印到文件，除非有一些特殊情况需要它。

   相反，使用新的文件句柄打开一个文件进行写入：

   open(OUTFILE,">/home/int420_101a05/shttpd/htdocs/receipt.html")
      || die“无法打开：$！”； 
   打印 OUTFILE“数据”；
   关闭（输出文件）；
   正如

3. 要从子例程打印到文件句柄，只需将文件句柄作为参数传递。

   最好的方法是创建一个 IO::File 对象并传递该对象

   my $filehandle = IO::File->new(">$filename") ||死“错误：$！”；
   mySub($文件句柄);
   
   子我的子{
    我的 $fh = 转变；
    打印$fh“东西”|| die“无法打印$！”；    
   }
   
   
   您还可以将特定文件句柄设置为默认文件句柄，以便默认使用 select 打印该文件句柄，但这要脆弱得多，应该避免使用 IO::File 解决方案.

Answer 2

如果您想临时更改标准输出，请使用 select 内置函数。另一种选择是首先本地化 typeglob：

{
    local *STDOUT;
    open STDOUT, '>', 'outfile.txt' or die $!;
    print "Sent to file\n";
}

Answer 3

不要尝试打开 STDOUT 句柄。如果您想打印到 STDOUT，只需使用 print （不带文件句柄参数）。如果您想打印到 STDOUT 以外的其他内容，请使用不同的名称。