Mở filehandle hoặc gán stdout

Question

Tôi đang làm việc trong chương trình mà người dùng có thể chuyển tùy chọn -o file và đầu ra sẽ được chuyển hướng đến tệp đó. Nếu không, nó sẽ đi đến stdout.

Để truy xuất tùy chọn tôi đang sử dụng mô-đun getopt lâu và đó không phải là vấn đề. Vấn đề là tôi muốn tạo một tập tin xử lý với tập tin đó hoặc gán stdout cho nó nếu tùy chọn không được thiết lập.

if ($opt) { 
    open OUTPUT, ">", $file; 
} else { 
    open OUTPUT, # ??? 
} 

Đó là bởi vì cách này, sau đó trong mã của tôi, tôi có thể chỉ:

print OUTPUT "..."; 

Nếu không có lo lắng nếu OUTPUT là stdout hoặc một tập tin người dùng xác định. Điều này có thể không? Nếu tôi đang làm một thiết kế tồi ở đây, xin vui lòng cho tôi biết.

Answer 1

Đây sẽ là một ví dụ điển hình về cách sử dụng select.

use strict; 
use warnings; 
use autodie; 

my $fh; 
if ($opt) { 
    open $fh, '>', $file; 
    select $fh; 
} 

print "This goes to the file if $opt is defined, otherwise to STDOUT." 

Answer 2

Xem tài liệu open. Cách dễ nhất là tự mở lại chính mình STDOUT và không sử dụng tập tin tay trong mã của bạn.

if ($opt) { 
    open(STDOUT, ">", $file); 
} 
... 

print "this goes to $file or STDOUT\n"; 

(Thêm một số kiểm tra lỗi của khóa học.)