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.
-
- Publicidad
Problema con el perl
2 mensajes
• Página 1 de 1
Problema con el perl
por fati » 2006-08-28 09:05 @420
- fati
- Perlero nuevo
- Mensajes: 4
- Registrado: 2006-08-23 10:41 @487
Publicidad
por explorer » 2006-08-28 09:27 @435
Usa el módulo Getopt::Std.
Para tu caso:
Por ejemplo:
Para tu caso:
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;
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.002 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
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
2 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 77 invitados