questions de base Perl

Question

1. En script shell Unix, nous vérifier l'état de sortie de la commande précédente en utilisant la valeur de $? où zéro est gage de succès. Comment puis-je le faire en Perl?

2. Lorsque je cours perl -V je vois certains chemins répertoriés dans @INC. Comment ajouter de nouveaux chemins à @INC? Comment puis-je définir l'ordre des arguments dans la fonction GetOptions?Je veux -email être le premier argument et s'il est donné comme deuxième argument, il devrait échouer.

   GetOptions(
       'nemail' => sub {$ENV{EMAIL} = "Y"}, 
       'arg' => \$help 
   ); 
   

3. Quelle est la différence entre les extensions .pl et .pm? Quand dois-je utiliser l'extension .pm?

4. Lorsque j'écris use File::Copy, où se trouve le code? Quelles sont les variables d'environnement auxquelles accède use?

Answer 1

1. Les commandes externes sont lancées avec le system function, elle fixe également le child error variable $?/$CHILD_ERROR. Au lieu de faire ces contrôles vous, utilisez autodie:

   require IPC::System::Simple; 
   use autodie qw(:all); 
   system([0], 'foobar-command', '--option', '--yet-another-option'); 
   # 0 is allowed as an exit status, others will throw an exception 
   

   constructions de programmation interne, par exemple sous-programmes des modules, utilisez la vérification des erreurs qui va au-delà de ce que vous savez de la programmation du shell. Il y a plus d'une façon de le faire. La plupart du type, le succès et l'échec est signalé par la valeur de retour d'une fonction, souvent undef signifie une défaillance, par ex. en lisant le documentation for File::Copy, nous apprenons que la valeur de retour est 0 pour l'échec et que l'autre variable d'erreur habituelle est définie.

   use English qw($OS_ERROR) 
   use File::Copy qw(mv); 
   my $source = '/does_not_exist'; 
   my $destination = '/tmp'; 
   unless (mv($source, $destination)) { 
       warn "Move from $source to $destination failed: $OS_ERROR"; 
   } 
   

   Une autre possibilité est des exceptions. Vous devez apprendre cela en détail: chapitre 13 de PBP et le chapitre 11 de EPP.

   use Try::Tiny; 
   my $string; 
   try { 
       $string = Encode::decode('UTF-8', $octets_buffer, Encode::FB_CROAK) 
   } catch { 
       warn "Decoding failed: $_"; 
   } 
   

2. • perlvar@INC
   • perlfaq8 How do I add a directory to my include path (@INC) at runtime?
   • perlrun-I et perlrunPERL5LIB
   • lib

3. Il est conçu de telle sorte que les arguments peuvent être dans un ordre aléatoire. Pourquoi le veux-tu comme ça? Il existe un paramètre de configuration appelé require_order, mais ce n'est pas exactement ce que vous voulez.

4. .pl indique une bibliothèque Perl, tout comme une collection de sous-programmes, prête à être incluse via require. Cela vient de plus de 10 ans. Les gens sur Windows aiment aussi donner cette extension aux programmes Perl, car le système d'exploitation est tellement centré sur l'extension et ne fonctionne pas confortablement avec les fichiers sans extension.

   .pm indique Perl module. Un module est juste une bibliothèque qui suit quelques conventions supplémentaires. C'est de l'ère Perl 5.

5. File::Copy se traduit au nom de fichier File/Copy.pm qui est dans l'un des chemins dans votre @INC, pour plus de détails voir à nouveau require. Sur mon système, ce serait dans /usr/lib/perl5, par ex. /usr/lib/perl5/5.10.0/File/Copy.pm.