Foro - Perl en Español

por **alexismoran72** » 2021-08-28 15:14 @676

Hola a todos, necesito ayuda con un programa que estoy haciendo y hay algunas opciones que no tengo idea de cómo hacerlo.

Aquí dejo mi programa, espero me puedan ayudar

me faltan las opciones 3, 6 y 7.

Sintáxis: [ Descargar ] [ Ocultar ]

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.005 segundos,  usando GeSHi 1.0.8.4

Cualquier recomendación que tengan me podría ayudar. Muchas gracias.

Hola.

Las tres opciones las puedes realizar con splice().

(De hecho, TODAS las operaciones con los arrays las puedes hacer con splice(). Lo tienes explicado en este documento: https://github.com/perldocES/perldoc-es ... rlfunc.pod en la sección splice ARRAY,DESPLAZAMIENTO,LONGITUD,LISTA). Pero... usar push(), pop(), shift() y unshift() son más cómodas.

En la opción 3, primero debes hacer una búsqueda (por ejemplo, con foreach()) para encontrar el elemento -ver más abajo-. Si no está, sacar un mensaje de error. Si está, usar splice() para insertarlo delante.

En la opción 6 es lo mismo, pero en lugar de insertar, hacer una sustitución. En este caso no necesitamos ni siquiera splice(). Si, por ejemplo, lo encuentras en la posición 0, bastaría hacer un $lista[0] = $valor;

En la opción 7, hay que buscar el elemento para saber su posición, y luego sacarlo del array. Lo puedes hacer con splice(). Por ejemplo, si @lista es (40, 50, 60), y queremos eliminar 50, primero lo buscamos y luego lo eliminamos de la @lista:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;                    # activar say(); y each() para arrays
 
my @lista = (40, 50, 60);
my $valor_a_eliminar = 50;
my $encontrado = -1;
 
while (my($posicion,$valor) = each @lista) {# recorremos todo el array, sacando los índices y valores
    if ($valor == $valor_a_eliminar) {      # ¿lo hemos encontrado?
        $encontrado = $posicion;            # sí, guardamos posición
        last;                               # no hace falta seguir buscando más
    }
}
 
if ($encontrado != -1) {                    # si lo hemos encontrado,
    splice(@lista, $encontrado, 1);         # en la @lista, posición $encontrado, sustituimos 1 elemento por... nada
}
else {
    say "Error: no encontré [$valor_a_eliminar]";
}
 
say "[",join(",",@lista),"] ", scalar(@lista), " elementos";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **alexismoran72** » 2021-08-28 22:41 @987

Lo siento pero no puedo con la opción 3 y 6, llevo horas intentando

Soy muy principiante en el tema de programación, tal vez puede ser muy fácil programar la opción 3 y 6, pero no puedo.

Aquí dejo lo que tengo, para ustedes ha de ser una abominación :lol:

me estuve guiando con el código que mostró.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$encontrado = -1;
print "Valores en la lista: \n";
@lista = (10, 20, 30, 40);
print "@lista", "\n";
 
print "Ingrese valor: ";
$nuevo_valor = 5;
print "Despues del valor: "; #poner el 5 después del 20
$despues_de = 20;
 
while(my($posicion, $valor) = each @lista){  #######################
        if($valor == $despues_de){           #Por lo que entiendo todo esto
                $encontrado = $posicion;     #es para recorrer todo el array
                last;                        #y encontrar el valor que uno quiere
        }                                    #######################
}
if ($encontrado != 1){                       #######################
        splice (@lista, $encontrado, 1);     #creo que el problema esta aquí
}                                            #######################
print @lista;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2021-08-29 14:44 @656

Para la opción 6, te vale con hacer una asignación, como te indiqué: $lista[$encontrado] = $nuevo_valor;

Para la opción 3 (insertar delante), hay que cambiar ligeramente splice(): splice(@lista, $encontrado, 0, $nuevo_valor);
La clave está en el tercer parámetro, que indica cuántos elementos queremos sustituir. Como no queremos sustituir, sino insertar, ponemos 0 (0 sustituciones), y entonces, splice(), en la posición $encontrado de @lista, inserta $nuevo_valor.

Prueba de que funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

$ perl -E 'use v5.12; my @lista = (40, 50, 60); my $valor_a_eliminar = 50; my $encontrado = -1; my $nuevo_valor = 5; while(my($i,$v) = each @lista) { if ($v == $valor_a_eliminar) { $encontrado = $i; last } } if ($encontrado != -1) { splice(@lista, $encontrado, 0, $nuevo_valor); } say "[",join(",",@lista),"] ", scalar(@lista), " elementos"'
[40,5,50,60] 4 elementos
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Eliminar un elemento de un arreglo por el usuario

Eliminar un elemento de un arreglo por el usuario

Publicidad

Re: Eliminar un elemento de un arreglo por el usuario

Re: Eliminar un elemento de un arreglo por el usuario

Re: Eliminar un elemento de un arreglo por el usuario

¿Quién está conectado?