Çalışan bir Perl oturumunda Perl betiğini nasıl derleyebilirim?

Question

Kullanıcı girişini alan ve ileriki bir tarihte çalıştırılacak başka bir komut dosyası oluşturan bir Perl betiğim var. Şu anda bu komut dosyaları için testler yazıyor ve yazıyor ve gerçekleştirmek istediğim testlerden biri, oluşturulan komut dosyasının başarıyla oluşturulup oluşturulmadığını kontrol etmektir (örn. perl -c <script>.) Perl'in bir derleme yapabilmesinin bir yolu var mı? başka bir Perl işlemine sahip olmak zorunda kalmadan oluşturulan komut dosyası? Cevap aramayı denedim, ancak aramalar sadece Perl betiklerini çalıştırılabilir programlara derleme hakkında bilgi veriyor.

Answer 1

, dinamik olarak oluşturulan kodu yürütmek eval işlevini kullanmak için: sadece derlemek veya sözdizimi kontrol etmek istiyorsanız

my $script = join /\n/, <main::DATA>; 
eval($script); # 3 

__DATA__ 

my $a = 1; 
my $b = 2; 
print $a+$b, "\n"; 

Ancak o zaman aynı Perl oturum içinde bunu yapmak mümkün olmayacaktır. kütüphaneden Test::Strict den

Fonksiyon syntax_ok harici perl tercüman ile perl -c çalıştırarak bir sözdizimi kontrolü çalıştırmak, bu yüzden hiçbir içsel yolu yoktur varsayalım. işinize yarayabileceğini

Sadece iş çevresinde olacaktır:

Bu durumda

my $script = join /\n/, <main::DATA>; 
eval('return;' . $script); 
warn $@ if $@; # syntax error at (eval 1) line 3, near "1 
       # my " 

__DATA__ 

my $a = 1 
my $b = 2; 
print $a+$b, "\n"; 

, sen derleme hata (lar) $@ kullanarak kontrol etmek mümkün olacak ancak çünkü kodunun ilk satırı return;, çalıştırılamaz.

---

Not: yararlı sohbet ve kod düzeltme kullanıcıya mob teşekkürler.

Answer 2

Komut dosyası oluşturmak birçok yan etkiye sahiptir. Sub olarak tanımlanır. Modüllerin yürütülmesi ile sonuçlanır. Eğer bir şey derlediğini test etmek isterseniz, 'u ayrı bir tercüman isteyebilirsiniz. Bir betiğin test edilmesinin, daha sonraki testlerin yanlış pozitif veya yanlış negatifler vermesine yol açmayacağından emin olmanın tek yolu budur.

Answer 3

Bu çalışma sizin gibi bir şey olmayacak mı?

open(FILE,"perl -c generated_script.pl 2>&1 |"); 
@output=<FILE>; 
if(join('',@output)=~/syntax OK/) 
{ 
    printf("No Problem\n"); 
} 
close(FILE); 

Answer 4

Test::Compile modülü, özellikle pl_file_ok() fonksiyonu.