 Lun Ago 28, 2006 8:05 am
|
 |
fati
Perlero Nuevo
|
Registrado: 23 Ago 2006
Mensajes: 4
|
|
| Problema con el perl |
 |
|
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. |
|
|
|
|
Lun Ago 28, 2006 8:27 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4082
Ubicación: Valladolid, España
|
|
|
|
|
Usa el módulo Getopt::Std.
Para tu caso: | Perl: | #!/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; |
Por ejemplo:
| Código: |
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 |
|
|
Powered by phpBB © 2001, 2005 phpBB Group
|
