Perl sürümüne dayalı bir işlevi nasıl ekleyebilirim?

Question

Bu sorulmuş olsaydı üzgünüm, ama aramayı zor buldum.

Perl 5.12'yi yerel olarak kullanıyorum ancak bazı makinelerimiz Perl 5.8.8 kullanıyor ve şimdilik güncellenmeyecek.

Denetim için platform 5.12'de 'say' kullanıyorum.

5.8.8'de söylemek için basit bir işlev yazdım ama 5.12'de kullanmak istemiyorum.

Perl'imin eski sürümünde söyleme işlevimi kullanmanın ve 5.12'deki 'yerleşik' sürümünü kullanmanın bir yolu var mı?

Answer 1

Sen $^Vspecial variable Perl yorumlayıcısı sürümünü belirlemek için kullanabilirsiniz:

BEGIN { 
    if ($^V ge v5.10.1) { # "say" first appeared in 5.10 
     require feature; 
     feature->import('say'); 
    } 
    else { 
     *say = sub { print @_, "\n" } 
    }  
} 

Answer 2

Bu çalışması gerekir: Bu sorunun belirli

BEGIN{ 
    no warnings 'once'; 
    unless(eval{ 
    require feature; 
    feature->import('say'); 
    1 
    }){ 
    *say = sub{ 
     print @_, "\n"; 
    } 
    } 
}