• Publicidad

Admitir solo un argumento

¿Eres administrador de sistemas? Este foro es para todos aquellos temas relacionados con el uso de Perl para administración de sistemas.

Admitir solo un argumento

Notapor alesevimor » 2012-02-01 08:46 @407

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.
alesevimor
Perlero nuevo
Perlero nuevo
 
Mensajes: 25
Registrado: 2012-01-31 15:55 @705

Publicidad

Re: Admitir solo un argumento

Notapor explorer » 2012-02-01 10:09 @464

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.002 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
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Admitir solo un argumento

Notapor alesevimor » 2012-02-01 10:18 @471

¡Muchísimas gracias! ;D
alesevimor
Perlero nuevo
Perlero nuevo
 
Mensajes: 25
Registrado: 2012-01-31 15:55 @705


Volver a Administración

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron