Perl betiğinde bash örneği oluşturabilir miyiz?

Question

Başhz çalıştıran bir işlem oluşturmak için Perl'i kullanmaya çalışıyorum ve bir dosya oluştur sample.txt, ancak bash komutundan sonra konsolda herhangi bir çıktı veya aynı dizin yapısında sample.txt dosyasını göremiyorum. Birisi aşağıdaki kodu düzeltmemde yardımcı olabilir mi?

my $var = `bash -l`; 
system($var); 
print "Done!"; 

my $filename = 'sample.txt'; 
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!"; 
chmod(0777, "sample.txt"); 
print $fh "hello"; 
close $fh; 
print "Done 1!.."; 

Answer 1

Bash'in -l argümanı interaktif kalmak için ikna edilir. Koşu: Kendi başına

perl -e 'print `bash -l`' 

etkileşimli stdin'i bağlı bash süreci vardır, ama altişlem çıkış perl'de tarafından yakalanır ve yazdırılır sonra ne zaman KontrolD bastığınızda yalnızca yapacak bash çıkışlar, sorun, exit veya logout vb.

Muhtemelen $var = 'bash -l'; ile başlamak istiyorsunuz. Başta interaktif olarak basta başlayacak, ve çıktığınızda, programın kalanını devam ettirecek. Benim için bunu yapmak alışılmadık bir durumdur ve muhtemelen -c argümanı ile normal olarak çıkışa bash için bir şeyler yazmanız gerektiğini umuyorum.

ile kod ilk iki satır değiştirilmesi:

system("bash", "-c", "echo Hello World!"); 

gerçekleştirir ve programın geri kalan kısmı normal olarak çalıştırılır. Ancak, senin için ne yapmanı istediğinden emin değilim. Bu örnek vakalar, yalnızca
system("echo", "Hello World!") veya print "Hello World!" ile daha iyi bir şekilde gerçekleştirilebilir.