Foro - Perl en Español

Buenas a todos, tengo una gran duda: debo aplicarla a algo complejo, pero usaré ejemplos estúpidos para que me puedan entender correctamente y así sea más fácil el poder solucionar este problema que tengo:

@array = ('perro','gato','lobo');

¿Hay alguna forma en la cuál yo pueda eliminar 'gato' de ese array? Y cuando haga un print:

print join(",", @array);

Me dé

perro,lobo

Un saludo.

Bienvenido a los foros de Perl en Español, Ayllonbe.

Puedes usar grep():


La condición en grep{} se leería: "El animal no es 'gato'". Lo que hace grep{} es un filtrado.

Otra opción es usar splice(), si sabemos la posición del elemento a eliminar:


Lo que hace splice() es extraer elementos (también hace sustituciones y ampliaciones).

Más información en perldoc -f grep y perldoc -f splice.

Muchas gracias, explorer. Pensé que con esto acabaría, pero tendré que exponer el problema que tengo:

Tengo un @array = ('AAT-TAA', 'AAT-TAA', 'AAT-TAA'). En mi caso es más complejo, pues es un alineamiento múltiple que he programado, pero me salen guiones (o gaps) que coinciden con todas las cadenas. Lo que quiero es saber qué debo hacer para para eliminarlos y se me quede el array así:

@array = ('AATTAA','AATTAA','AATTAA')

De nuevo, gracias por solucionarme lo anterior, ya que lo podré usar para otra ocasión.

Te vale con hacer una operación de sustitución.

La operación es altamente mágica: el bucle for() recorre los valores de @array, guardando cada elemento en la variable $_, pero en realidad, es un "alias" del elemento original, por lo que cualquier modificación de $_ repercutirá en el elemento del array (o sea, que realmente estamos editando el array).

La operación que le hacemos a $_ es de sustitución: cambiamos todos (/g) los '-' por nada (o sea, los quitamos).