Página 1 de 1

Admitir solo un argumento

NotaPublicado: 2012-02-01 08:46 @407
por alesevimor
Teniendo este script que me da las líneas de un fichero, a partir de la línea 15, ¿cómo puedo validar que solo me permita un argumento por teclado? Si no es así me tiene que imprimir en pantalla: "Solo permite un argumento".

open(F1, $ARGV[0]) or die "No existe el fichero";
$contador=0;
while ($linea=<F1>){
$contador++;
if ($contador>=15)
{
print $linea;
}
}
close F1;

Gracias de antemano.

Re: Admitir solo un argumento

NotaPublicado: 2012-02-01 10:09 @464
por explorer
Te vale con mirar antes, el número de argumentos que hay en @ARGV:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. if (@ARGV != 1) {
  2.     die "Solo permite un argumento\n";
  3. }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


o también así:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. @ARGV == 1 or die "Solo permite un argumento\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Re: Admitir solo un argumento

NotaPublicado: 2012-02-01 10:18 @471
por alesevimor
¡Muchísimas gracias! ;D