tại sao tôi có thể mở undef?

Question

Sau đây không chết:

open my $in, '<', undef or 
    die q{couldn't open undef}; 
print <$in>; 

Không thực hiện điều này:

open my $in, '>', undef or 
    die q{couldn't open undef}; 
print $in 'hello'; 

Tôi không hiểu tại sao không ai trong số những chết. Làm cách nào để mở undef có thể thành công? Lý do tôi tìm thấy này là một chàng trai tôi làm việc với đã làm điều này:

open my $in, '>', $ARGV[0] or die q{couldn't open $ARGV[0]}; 

Ông nghĩ rằng điều này sẽ giết kịch bản nếu không có đối số được thông qua trong (Tôi biết điều này không phải là cách sạch nhất để làm nhưng tôi không nghĩ rằng nó sẽ không hoạt động).

Tôi đang sử dụng Strawberry 5.16.1.

Answer 1

Xem perldoc -f open:

Là một trường hợp đặc biệt theo hình thức ba tranh cãi với một chế độ đọc/ghi và đối số thứ ba là undef:

open(my $tmp, "+>", undef) or die ... 

mở ra một filehandle đến một tạm thời ẩn danh tập tin.