Làm cách nào để chuyển hướng đầu ra tiêu chuẩn sang một tệp trong Perl?

Question

Tôi đang tìm một ví dụ về chuyển hướng stdout sang một tệp bằng Perl. Tôi đang làm một công cụ fork/exec khá đơn giản, và tôi muốn chuyển hướng đầu ra của đứa trẻ sang một tệp thay vì tệp phụ huynh.

Có sự tương đương với dup2() Tôi nên sử dụng không? Tôi dường như không thể tìm thấy nó

Answer 1

Từ perldoc -f mở:

open STDOUT, '>', "foo.out" 

Các tài liệu là bạn của bạn ...

Answer 2

Đứa trẻ tự nó có thể làm select $filehandle để xác định rằng tất cả các print của nó các cuộc gọi phải được chuyển đến một tập tin cụ thể.

Điều tốt nhất mà phụ huynh có thể làm là sử dụng system hoặc exec hoặc thứ gì đó sắp xếp để thực hiện chuyển hướng vỏ.

Answer 3

open my $fh, '>', $file; 
defined(my $pid = fork) or die "fork: $!"; 
if (!$pid) { 
    open STDOUT, '>&', $fh; 

    # do whatever you want 
    ... 

    exit; 
} 
waitpid $pid, 0; 
print $? == 0 ? "ok\n" : "nok\n"; 

Answer 4

Một thông tin nghiêm túc nhưng không thực tế câu trả lời:

Mặc dù có gần như chắc chắn một cách thanh lịch hơn đi về việc này tùy thuộc vào chi tiết chính xác về những gì bạn đang cố gắng để làm, nếu bạn hoàn toàn phải có dup2() , tương đương Perl của nó có trong mô-đun POSIX. Tuy nhiên, trong trường hợp này, bạn đang xử lý các bộ mô tả tệp thực sự chứ không phải tệp Perl, và tương ứng bạn bị hạn chế sử dụng các hàm được cung cấp khác trong mô-đun POSIX, tất cả đều tương tự với những gì bạn sẽ sử dụng trong C. ở một mức độ nào đó, bạn sẽ viết C trong Perl không phải Perlish.

http://perldoc.perl.org/POSIX.html

Answer 5

Như JS Bangs cho biết, một cách dễ dàng để chuyển hướng đầu ra là sử dụng 'chọn' tuyên bố.
Rất cám ơn nhiều người đã gửi stackoverflow và người dùng của họ. Tôi hy vọng điều này là hữu ích

ví dụ:

print "to console\n"; 
open OUTPUT, '>', "foo.txt" or die "Can't create filehandle: $!"; 
select OUTPUT; $| = 1; # make unbuffered 
print "to file\n"; 
print OUTPUT "also to file\n"; 
print STDOUT "to console\n"; 
# close current output file 
close(OUTPUT); 
# reset stdout to be the default file handle 
select STDOUT; 
print "to console";