Foro - Perl en Español

Hola a todos, muy buen foro, he resuelto muchas dudas con su ayuda.

Pero ahora tengo una gran duda con respecto a los siguiente. He bajado el archivo de CGI::Prototype, lo descomprimí, pero a la hora de ver los archivos que trae, no tengo la menor idea de dónde instalar todos los archivos que traen.

Me aparecen diversos archivos sin extensión, un Makefile.pl, una carpeta lib/ y t/.

Por favor, sería de mucha ayuda que ...

¿Me podrían decir qué me falta o sobra en este programa? Porque no se ejecuta... Además el archivo le tengo en la misma carpeta que el que contiene el código y no sé si lo encontrará o tengo que especificar dónde está el archivo que quiero abrir... En ese caso, ¿cómo se haría?

Muchas gracias.

my ($file1, $file2, $line);
my $file1 = "TEXTO1.txt";
my $file2 = "pruebafin.txt";


open (SOURCE, $file1) or die "cannot open file ...

Necesito crear un programa que cuente el número de veces que aparece un nombre en un fichero de texto y lo almacene por columnas. ¿Alguna idea? Gracias de antemano, el foro está siendo de gran ayuda.

¿Cómo se puede verificar cuándo es un directorio o un archivo cuando se usa el módulo Net::FTP cuando uso la función dir() del módulo?

Hola.

Soy novato en Perl y necesito saber si es normal que al ejecutar un programa que abra un archivo .rtf busque líneas que empiezan por cierta palabra y copie el resto de líneas en otro archivo .txt ¿Es normal que al principio del .txt aparezca lo siguiente?

{\rtf1\ansi\ansicpg1252\cocoartf1038\cocoasubrtf360
{\fonttbl\f0\fmodern\fcharset0 Courier;}
{\colortbl;\red255\green255\blue255;}
\paperw11900\paperh16840\margl1440\margr1440\vieww17560\viewh8460\viewkind0
\deftab720
\pard\pardeftab720\ql\qnatural

\f0\fs24 \cf0

¿De qué se trata esto? ¿Es normal? ¿Es algún error? ¡¡Por favor es urgente!! Gracias de antemano.

Un ...

Tengo que abrir varios archivos en un mismo programa, se cómo se hace para un archivo:

#!/usr/bin/perl

open(F, "<textos.txt");
my @datos=<F>;
close(F);

my $linea;
foreach $linea ( @datos ) {
print $linea;
}

¿Cómo lo haría para abrir, por ejemplo, dos archivos?

Gracias de antemano.

Hola a todos, soy nuevo en el foro, y tengo poco contacto con Perl.

Necesito crear un programa que escriba un conjunto de nombres y apellidos en salida estándar y que repita alguno de los nombres aleatoriamente. No sé qué función emplear. Gracias.

Hola,

Me presento: Soy estudiante de informática que, desde hace poco, ha empezado a programar en Perl. Os escribo para ver si me podéis ayudar en una duda que me ha surgido respecto a las expresiones regulares:

Quiero buscar en una BD las palabras que contengan un número determinado de caracteres. Por ejemplo: Buscar todas las palabras que contengan 3 o más letras "l", como "libelula"; o buscar todas las palabras que tengan solamente 3 ...

Buenas, soy nueva en Perl y tengo que crear un programa que me ordene números en un array utilizando while() e if(). He llegado a un punto y no sé qué es lo que tengo mal... Me gustaría que me ayudarais. Esto es lo que tengo, pero no me ordena los números:

print "Introduzca la cantidad de numeros a ordenar: ";
$n = <STDIN>;
chomp($n);
$i = 0;
$c = 1;
while ( $i ...

Saludos a la comunidad, me he calentado bastante ya en este ejercicio.

Tengo un array recibido desde una base de datos de esta manera:
luis|22|musica|70
luis|22|musica|80
luis|22|musica|90
raul|30|videos|accion
raul|30|videos|terror
juan|27|juegos|COD
juan|27|juegos|MOD
...
y ésta puede tener más datos similares.

El asunto es que quiero generar un array por cada tercer elemento que sea igual. Por ejemplo, un array para los de música, videos, juegos, etc. y no lo he podido lograr.

Esto he hecho hasta ...