Perl kodumdaki perl modülünün belirli bir sürümünü (veya daha üstünü) nasıl kullanırım?

Question

Terminal çıktısının renklendirmesini yapmak için Perl komut dosyamda Term::ANSIColor kullanıyorum veişlevini kullanıyorum, bu yalnızca Term::ANSIColor sürüm 2.01'de changelog'a göre eklendi. Yani, en az Term::ANSIcolor sürümü bulamazsa, komut dosyasını otomatik olarak die uygun bir hata iletisiyle yapmanın bir yolu var mı?

Answer 1

Sadece:

use Term::ANSIColor 2.01; 

perldoc -f use bakınız: VERSİYONU argüman Modülü ve LİSTESİ arasında varsa

kullanım Modülü VERSİYONU LİSTESİ

ardından kullanım arayacak Modülde VERSION yöntemi, argüman olarak verilen versiyon ile birlikte. UNIVERSAL sınıfından miras alınan varsayılan VERSION yöntemi, verilen sürüm $ Module :: VERSION değişkeninin değerinden daha büyükse croaks.

Answer 2

Çoğu modül $VERSION paket değişkenini tanımlar.

use Term::ANSIColor; 
die "Sorry, this program needs Term::ANSIColor >= v2.01!\n" 
    unless $Term::ANSIColor::VERSION >= 2.01; 

Bu aynı zamanda bir modülün bir maksimum versiyonunu belirtmek için iyi bir yoldur.

use Module::Foo; 
die "You need an *older* version of Module::Foo that ", 
    "still has the &barbaz method defined" 
    if $Module::Foo::VERSION >= 0.47; 

Answer 3

Basitçe kullanmak istediğiniz sürümü belirtin: sürüm değil, en az 2.13 olması durumunda

use Some::Module 2.13; 

, operasyon başarısız olur.

komut satırında geçerli sürümü ile deneme yapabilirsiniz:

perl -MSome::Module=9999 -e 'exit 0' 

Bu genellikle kullanmaya çalıştığınız modül olur sürece (hata mesajında ​​gösterilen yanlış sürüm numarasıyla ölecek 5 haneli veya daha uzun bir sürüm numarasına sahip olmak veya modül strict gibi değilse ve bir sürüm numarasıyla veya URI gibi komut satırından yüklenmekten hoşlanmıyorsanız (ayrıntılar için yorumlara bakın)). Normalde kullanmayan bir makinede

$ perl -MFile::Find=999 -e 'exit 0' 
File::Find version 999 required--this is only version 1.07 at 
/usr/perl5/5.8.4/lib/Exporter/Heavy.pm line 121. 
BEGIN failed--compilation aborted. 
$ perl -e 'use File::Find 999; exit 0' 
File::Find version 999 required--this is only version 1.07 at -e line 1. 
BEGIN failed--compilation aborted at -e line 1. 
$ 

Run, Perl dolayısıyla eskimiş sürümü.