Advanced Search

Exigir parámetros en una función

/ Published in: Perl
Save to your folder(s)
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á.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  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.         exit;
  14. }

Report this snippet


Comments

You need to login to view comments.