Aquí dejo mi programa, espero me puedan ayudar me faltan las opciones 3, 6 y 7.
Using perl Syntax Highlighting
- my @lista;
- my $accion;
- print "Menú:
- 1.- Agregar en cabecera.
- 2.- Agregar en cima.
- 3.- Agregar antes de.
- 4.- ¿Está vacía?
- 5.- Imprimir.
- 6.- Modificar.
- 7.- Eliminar.
- 8.- Salir.\n";
- do{
- print"\nEscoja una opción: ";
- chop ($opcion = <STDIN>);
- if ($opcion == 1){
- print "Agregue valor: ";
- $valor = <>;
- unshift @lista, $valor;
- print "¡agregado!\n ";
- }
- elsif($opcion == 2){
- print "Agregue valor: ";
- $valor = <>;
- push @lista, $valor;
- print "¡agregado!\n ";
- }
- elsif($opcion == 3){
- #Agregar antes de
- # si en la @lista están los valores [40, 50, 60]
- # quiero que me permita guardar un valor por ejemplo el 5 y quiero guardarlo antes del 50
- # quedaría algo así [40, 5, 50, 60]
- }
- elsif($opcion ==4){
- if (@lista){
- print "\nNo está vacío\n";
- }
- else
- {
- print "\nEstá Vacío\n";
- }
- }
- elsif($opcion ==5){
- chomp(@lista);
- print "Los números agregados en la lista: @lista" . "\n";
- }
- elsif($opcion == 6){
- #Modificar
- #que me permita guardar un nuevo valor y modificar un valor dentro del @lista [40, 50, 60]
- #nuevo valor a guardar 2 y quiero que el 40 sea el 2.
- #[2, 50, 60]
- }
- elsif($opcion == 7){
- #eliminar
- #Eliminar algún número de la @lista [40, 50, 60] quiero eliminar el 50
- #quedaría [40, 60]
- }
- elsif($opcion ==8){
- print "¿Desea salir?:
- 1.- SI 2.- NO";
- print "\n";
- chomp($accion = <STDIN>);
- }
- }while $accion ne '1';
- print "Salió del programa.\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Cualquier recomendación que tengan me podría ayudar. Muchas gracias.