J'ai le texte suivant du code Perl qui s'appuie sur Term::ReadKey
pour obtenir le terminal de largeur; Mon NetBSD construire est manquant ce module, je tiens donc à défaut de la largeur du terminal à 80 lorsque le module est manquant.
Je ne peux pas comprendre comment conditionnelle, l'utilisation d'un module, en sachant à l'avance si elle est disponible. Mon actuel de mise en œuvre de juste se ferme avec un message disant qu'il ne peut pas trouver Term::ReadKey
si il est absent.
#/usr/pkg/bin/perl -w
# Try loading Term::ReadKey
use Term::ReadKey;
my ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
my @p=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);
my $plen=$#p+1;
printf("num |".("%".int(($wchar-5)/$plen)."d") x $plen."\n",@p);
Je suis à l'aide de Perl 5.8.7 sur NetBSD et 5.8.8 sur CygWin Pouvez-vous m'aider à mettre en œuvre ce dans mon script de manière plus efficace?