Foro - Perl en Español

Estimados,

Antes de explicar mi consulta, les quiero dar las gracias por la ayuda que me han dado en mis consultas anteriores.

Mi duda es la siguiente:

Tengo la variable:
my $valor = "123456789 bytes";

Yo necesito capturar solo la parte entera, ¿bastará con ejecutar lo siguiente?

$entero = int($valor);
¿o necesito realizar otro procedimiento en la variable?

Atento a sus comentarios.
Muchas gracias

Hola.

Estoy buscando la forma de generar un archivo a partir de otro:

El original tiene un formato como:


agdfgdfg
weqwe
jtyiyui
Entrada 001 inicio
jdfhjaslfhj skdfjsdjflsjdf sdjfjsd lfjsd
eweiruo weuriuweo wioeruw
final
ydfos sdfsdf sfs
djasjd asdkjas jalsdj
Entrada 004 inicio
jdasjkdl ajksd
asd asda asdad
final
ajsdklja asjkda asjdaj
aksldkla aksdjka aksdka



Lo que quiero es hacer un nuevo archivo añadiendo todas líneas excepto las que están entre Entrada ...

¡Hola!

Mi problema es modificar el nombre de muchos archivos, según el nombre original debo renombrarlos de una manera particular. Tengo un archivo con:
nombre1 código1
nombre2 código2
nombre3 código3

Por otro lado en un directorio tengo los archivos a renombrar:
nombre1#nombre2.bezA.txt
nombre1#nombre2.bezB.txt
nombre2#nombre2.bezA.txt
nombre2#nombre3.bezB.txt

A cada archivo quiero agregarle el código que le corresponde según el archivo que describí primero. El nombre que tengo que tomar del archivo a renombrar para saber el código ...

Hola. Esto de Perl es muy nuevo para mi. ¿No habrá alguien que quiera darme algunas clases, por favor? Soy de Santiago de Chile.

Espero respuestas.
Gracias.

Hola.

Ando teniendo una duda, porque quiero hacer un programa que detecte la cancelación
del script en MSDOS (control + C), pero no sé cómo se hace en Perl.

¿Alguien tiene alguna idea?

Quiero imprimir las líneas de un archivo que están entre dos expresiones regulares. Por ejemplo, desde que encuentra "Q3UEX0_MOUSE" hasta el símbolo ">". La primera expresión sólo se encuentra una vez en el archivo.

Intenté, sin éxito, varias posibilidades, les muestro una de ellas.

foreach $linea (<ARCHIVO>)
{
if ($linea=~ /Q3UEX0_MOUSE/)
{ do
{ print $linea;
next; }
until ($linea !~ />/);
}

Creo que aquí el problema está en el recorrido. Agradezco cualquier sugerencia.

Estimados, tengo el siguiente problema:

Deseo imprimir la penúltima línea de un archivo de texto. Ejemplo:

Hola
como
estas
muy
bien

Yo necesito imprimir "muy".

Estoy trabajando sobre SO Debian.

Favor, estimados, su apoyo en este tema.

Muchas gracias.

Hola, por favor, me clarifican para qué se usa "=~". Tengo un ejemplo:

$v =~ /\D/

Gracias.

Hola a todos, soy nueva en Perl, y necesito un script que me permita leer un archivo de texto; leer los 4 primeros caracteres de cada línea, y luego decirle que después de que encuentre un carácter "X" deje de mostrar las líneas. La primera parte de leer los 4 primeros caracteres ya la tengo; me falta darle la orden para que deje de mostrar si encuentra el carácter "X". No sé si me explico ...

Hola, tengo un problema para comparar y aprovechar dos ficheros, que son de este tipo:

FICHERO A:
elena lópez madre
juan gómez padre situación:casado
luis lópez abuelo situación:casado
luis gómez hijo situación:soltero mayoría:sí
ana gómez hija situación:nonato
ana lópez tía situación:divorciado
pablo ruiz amigo
claudia gómez hermana situación:divorciado

FICHERO B:
elena lópez madre situación:casado
juan gómez padre situación:casado
luis lópez abuelo situación:viudo
luis gómez hijo situación:soltero mayoría:sí
ana gómez hija mayoría:no
ana lópez tía
laura ...