Posted By

patriciopenamunoz on 10/31/17


Tagged


Versions (?)

Exigir parámetros en una función


 / Published in: Perl
 

Extracto de código que permite definir los argumentos requeridos en la función.

Si se ejecuta el código sin los argumentos requeridos, el código se detendrá.

  1. $help=
  2. "archivo.pl [arg1] [arg2] ...
  3.  
  4. arg1: Descripcion.
  5. arg2: Descripcion
  6. ...";
  7.  
  8. if(scalar(@ARGV) < [NUMERO DE ARGUMENTOS]){
  9. print "\n------------------------------------------------------------------------------------------\n";
  10. print $help;
  11. print "\n------------------------------------------------------------------------------------------\n";
  12. print "\n";
  13. }

Report this snippet  

You need to login to post a comment.