Foro - Perl en Español

Hola a todos, tengo el siguiente problema:

Tengo varios directorios (alrededor de 40) de nombre images/ y dentro de ellos tengo ficheros llamados nombre-pst-1.tex, nombre-pst-2.tex, nombre-pst-3.tex, etc, donde nombre es cualquier nombre (o número), todos los ficheros tiene la siguiente forma:
\documentclass{article}
\usepackage{uno}
\usepackage{dos}
\begin{document}
me interesa esto 1 ...
\end{document} Me interesa leer el contenido de todos estos ficheros entre las líneas:
\begin{document}
me interesa esto 1 ...
\end{document} sin considerar éstas, ...

Hola.

No tengo mucha experiencia en Perl, y necesito crear un programa que busque archivos repetidos.

El programa recibe un directorio como argumento y a partir de ese directorio busque si hay archivos repetidos.
Los archivos repetidos son aquellos que tienen el mismo nombre y mismo tamaño, cuando encuentre archivos repetidos debe listarlos.

Esto es lo que tengo hecho:

#!/usr/bin/perl
use Cwd;

estructura;

# recibe un directorio y construye la estructura
sub construirEstructura {
my ...

Buenas tardes, desde México.

Tengo una duda tal vez muy básica... lo que quiero hacer es poder comparar dos archivos con el primer archivo ~~~...~,

y el segundo archivo ~~~...~

El separador es '~'.

Al estar buscando en el foro encontré el siguiente código:

#!/usr/bin/perl
use common::sense; # sentido común
use autodie; # y sacrificio
use File::Slurp; # sin dejar de chupar
## Leer ficheros
my @primer_archivo = read_file('Nuevo.txt');
my @segundo_archivo = read_file('Viejo.txt');

## Transformación ...

Hola, tengo el siguiente código

#!usr/bin/perl

menu();

sub menu {

$SIG{INT} = \&menu;

while(1) {
print "opciones 1 2 3\n";
print "option : ";
chomp(my $op = <stdin>);

if($op eq 1) {
while(1) {
print "test1\n";
}
}
elsif($op eq 2) {
while(1) {
print "test2\n";
}
}
else {
print "Mal";
}
}
}

Cuando lo cargo normal va bien pero cuando lo compilo con perl2exe tiene un problema el cual no sé ...

Buenas tardes, me gustaría saber si existe alguna forma de borrar las cookies del navegador.

He estado buscando por ahí y no he encontrado ninguna forma de forzar un borrado de las cookies. Cuando cierro sesión se quedan almacenadas y no soy capaz de destruirlas.

Muchas gracias de antemano.

Lo primero es dar las gracias a la gente que hace posible este foro, ya que estoy empezando a programar y aquí hay mucho donde aprender.

Ahora mi problema: estoy intentando crear una lista de hashes mediante un bucle, pero no sé si se puede hacer y lógicamente mi código no funciona.

La pregunta en definitiva sería: ¿se pueden crear variables usando otras variables como parte del nombre?

#!/usr/bin/perl

use strict;
use warnings; ...

Quería preguntar cómo podía sacar todos los valores que se encuentren en un listbox para mostrarlos a cada uno con un print()

La Unidad de Bioinformática del Instituto Leloir dirigida por la Dra. Cristina Marino Buslje organiza un curso introductorio a Perl con modalidad intensiva entre los dias 4 y 7 de junio de 2012. El mismo será dictado por la M.Sc. Edita Karosiene quien pertenece al Centro de Análisis de Secuencias Biológicas de la Technical University of Denmark (www.cbs.dtu.dk). El curso será dictadoen inglés pero contará con apoyo en español ...

La verdad, no sé si mi pregunta corresponde aquí. Soy nueva en Perl y no entiendo casi nada de lo que mencionan anteriormente pero mi pregunta es algo similar.

Quiero crear un archivo XML con un solo dato que tengo en mi BD. Bueno, en realidad ya tengo guardado el código del XML en la BD, solo quiero extraer el código de la BD y generar el archivo XML en algún directorio de mi servidor, ...

Hola, buenas tardes.

Necesito copiar, en Perl, unos ficheros de una máquina Linux a otra.

De momento lo hago en scp en shell: $ scp fitxer.xxx enric-2:/path y luego me pide el login

¿Cómo sería en Perl?

#!/usr/bin/perl
use Net::SCP;
$hostname = "server.ip.address";
$username = "enric";
$file = "temp.dat";
$folder = "/home/$username/";
$scp = Net::SCP->new( { "host"=>$hostname, "user"=>$username } );
$scp->put("$file","$folder$file") or die $scp->{errstr};

Gracias