Dosya Kolunu Nasıl Perdeleyecek STDOUT (veya Başka Bir Dosya Kolu) Olarak İşaretlerim?

Question

Dosya verildiğinde bir dosyaya yazılan hızlı bir komut dosyası veya herhangi bir dosya verilmediyse stdout yapmak istiyorum. Komut dosyasını, yeni bir dosya tanıtıcısı OUTFILE'ı işaret ederek, bunlardan hangisine uygun olursa, bunu yapmak benim için çok daha kolay olurdu.

STDOUT'u uygun olduğunda çıkış dosyasına göndererek istediğimi gerçekleştirebileceğimi biliyorum, ancak bunu daha sonra komut dosyasını kullanarak kimseyi karıştırmak istemediğimi ve neden baskı ifadelerini merak ettiğimi yapmamayı tercih ederim çalışma Ayrıca, bazen sorun giderme amacıyla kendi ara sıra baskı bildirimini kullanmak istiyorum ve bu yazdırmayı asla çıkış dosyasına istemiyorum. Bu işe yaramazsa dışında
open(OUTFILE, ($output ? ">$output" : STDOUT);
: Bunun

tek şey için çizgisinde bir şeydir aradığım şey söyledi.

Fikirler?

Answer 1

bazı yollar (Neználkovo):

typeglob için bir referans olarak open için

# Requires 2-arg open, unfortunately 
open(OUTPUT, "> ".($output || '-')) or die; 

if ($output) { 
    open(OUTPUT, '>', $output) or die; 
} else { 
    *OUTPUT = *STDOUT; 
} 

if ($output) { 
    open(OUTPUT, '>', $output) or die; 
} else { 
    open(OUTPUT, '>&', \*STDOUT) or die; 
} 

bazı yollar (sözcük var):

# Requires 2-arg open, unfortunately 
open(my $fh, "> ".($output || '-')) or die; 

my $fh; 
if ($output) { 
    open($fh, '>', $output) or die; 
} else { 
    $fh = \*STDOUT; 
} 

my $fh; 
if ($output) { 
    open($fh, '>', $output) or die; 
} else { 
    open($fh, '>&', \*STDOUT) or die; 
} 

bazı yolları (diğer): Dediğim gibi

# Changes the default handle for <print "foo">. 
if ($output) { 
    open(OUTPUT, '>', $output) or die; 
    select(OUTPUT); 
} 

Answer 2

Normal çıktıyı her zaman STDOUT ve hata ayıklama ifadelerinize STDERR olarak yazabilirsiniz. Daha sonra kullanıcı çıktıların bir dosyaya gitmesini istiyorsa, STDOUT komut satırındaki dosyaya yeniden yönlendirebilir.

Answer 3

Nevermind. Anladım. Bir işareti atmak hile yapar. Tam çalışma kodu:

Answer 4

- sihirdir. Sözleşmeyi izleyin veya en az sürpriz ilkesini ihlal ediyorsunuz.

use autodie qw(:all); 
use Getopt::Long qw(GetOptions); 
GetOptions(\my %opt, 'out=s') or die 'usage'; 
die 'usage' unless $opt{out}; 
open my $handle, ">$opt{out}"; 

---

perl foo -o blahblah  # opens file blahblah for writing 
perl foo -o -    # goes to STDOUT 

İlgili: Okuyucunun uğruna Are there reasons to ever use the two-argument form of open(...) in Perl?

Answer 5

(OP zaten "o çalışma var" beri):

Perl belgeleri, "perlopentut" (perldoc perlopentut) STDOUT'a yönlendirilmiş alternatif bir filehandle açmanın örneklerini verir, ancak bu bareword dosya elkitaplarını ve her ikisi de biraz eski olan open'un iki-arg versiyonunu kullanır. Damian Conway'in "Perl Best Practices" adlı kitabı (Damian'ın kitabına dayanan Perl :: Critic'in yanı sıra) üç arg açılışı ve sözcüksel dosya tanıtımı (my $foo style filehandles) kullanılmasını vurgular. Kromatik'in "Modern Perl" adlı eseri, kısaca, lexical dosya elemelerini kullanarak bahseder ve pratikte barlokları cesaretlendirir. Kabuk enjeksiyonlarına maruz kalmayı sınırlandırdığı için üç arg open, daha güvenli bir form olarak kabul edilir. Buradaki özel durum düşük riskli olsa da, hala üç argüman open için iyi bir alışkanlık haline gelmiştir.

O (perldoc açmak -f) Perl'in open belgelerinde gösterilen örneklerin dikkatle okunması alır ve biraz yorumlama üç-arg kullanırken STDOUT bir yinelenen filahandle yönettiği açılış ve işareti karakteri için doğru yerleşimi fark open sürümü. Birisi bunun işe yarayacağını varsayabilir: open my $fh, '>', '&STDOUT' or die $!;, çoğunlukla görmeye alıştığımız bir biçime benzediğinden (ve bir sembol isminin öncesindeki işareti). Fakat bu sözdizimi open'un ihtiyacı olmayan şey değildir ve onu tamamen farklı bir bağlamda görmeye alışkınızdır: belirli altprogramlar çağırır.

üç arg open ile STDOUT bir dupe açmak için doğru yolu, bu gibi > ve aynı ikinci argüman haline & birleştirmek, ve çıplak STDOUT bırakmaktır:

use Modern::Perl; 

open my $fh, '>&', STDOUT or die "Bleah: $!"; 

say $fh 'Printing alternate filehandle "$fh" worked.'; 
say 'Implicitly printing to "STDOUT" also works.'; 

Ya STDOUT geçen

open my $fh, '>&', \*STDOUT or ...