• Publicidad

Problema con el perl

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Problema con el perl

Notapor fati » 2006-08-28 09:05 @420

Hola, tengo que hacer un problema en perl, he aquí el enunciado,

En la configuración de los niveles de arranque de un sistema linux se utilizan tanto ficheros como directorios. Suponga que usted es el administrador y desea crear un programa en perl llamado consulta_init que pretende agilizar las tareas de mantenimiento de los niveles de arranque.
El programa tendrá el siguiente formato:

admon_init [ -t | -m | -o nivel | -s servicio [nivel] | -k servicio [nivel]]
donde:

-t mostrará para cada terminal de texto, los niveles que la activan.

-m mostrará un menú cuyo contenido se describe más adelante. Esta opción será la establecida por defecto, es decir, en el cado de no introducir ninguna, será la que se ejecute.

-o nivel establecerá el nivel indicado como el nivel de arranque por omisión.

-s servicio [nivel] activará el servicio indicado en el nivel especificado. El orden de activación se preguntará al usuario. Si no se indica nivel se realizará sobre el nivel de arranque del sistema.

-k servicio[nivel] desactivará el servicio indicado en el nivel especificado. El orden de activación se preguntará al usuario. Si no se indica nivel se realizará sobre el nivel de arranque del sistema.

En cado de elegir la opción -m, el menu será:

1.Mostrar todos los servicios disponibles para todos los niveles.

2.Mostrar los servicios que se lanzan para un determinado nivel, ordenadors por orden de ejecución. El nivel de preguntará al usuario.

3.Mostrar los servicios que se lanzan para un determinado nivel, ordenadors por orden de parada. El nivel de preguntará al usuario.

4.Mostrar el nivel de arranque por omisión.

5.Activar un sercicio a un nivel. El servicio, el nivel y el orden de activación se preguntará al usuario.

6. Desactivar un sercicio a un nivel. El servicio, el nivel y el orden de activación se preguntará al usuario.

7. Salir.


Bien, pues lo que yo quiero saber es como se leen los parámetros de entrada, y como los voy comparando, con la opcion posible, es decir, si tengo como parametro de entrada, m y t, como tendria que leerlos y como comparo: si parametro == m, hago no se que...
Gracias de antemano.
fati
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2006-08-23 10:41 @487

Publicidad

Notapor explorer » 2006-08-28 09:27 @435

Usa el módulo Getopt::Std.

Para tu caso:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl
use Getopt::Std;
getopts('tmo:s:k:');       # Leer las opciones
print "Opción -t\n" if $opt_t;
print "Opción -m\n" if $opt_m;
print "Opción -o $opt_o\n" if $opt_o;
print "Opción -s $opt_s\n" if $opt_s;
print "Opción -k $opt_k\n" if $opt_k;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Por ejemplo:
Código: Seleccionar todo
explorer@casa:~> ./programa.pl -t -m -o d -s ds -k fd
Opción -t
Opción -m
Opción -o d
Opción -s ds
Opción -k fd
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Intermedio

¿Quién está conectado?

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

cron