Dosya dosyasını açın veya atayın atama

Question

Kullanıcının -o file seçeneğini geçirebileceği bir programda çalışıyorum ve çıktı o dosyaya yönlendirilmelidir. Aksi takdirde, stdout'a gitmeli.

Seçeneği almak için modül getopt uzun kullanıyorum ve bu sorun değil. Sorun, o seçenek ayarlanmamışsa, o dosyaya ya da atama ile bir dosya tanıtıcısı oluşturmak istiyorum. var

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

Bu yolla, çünkü daha sonra benim kodda ben sadece can:

print OUTPUT "..."; 

OUTPUT kullanıcı belirtilen bir dosya stdout'u mı yoksa endişe olmadan. Mümkün mü? Burada kötü bir tasarım yapıyorum, lütfen bana bildirin.

Answer 1

Bu select nasıl kullanılacağına dair iyi bir örnek olacaktır.

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

open belgelerine bakın. En kolayı, STDOUT'un kendisini yeniden açmanız ve kodunuzda bir dosya tanıtımı kullanmamaktır.

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

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

(tabii denetimi bazı hata ekleyin.)