Foro - Perl en Español

Tengo el siguiente código:

use Cwd;

my $ruta = getcwd();

system("start $ruta");


Y devuelve esto:

El sistema no puede encontrar el archivo D:/Mis.

Necesito saber por qué no carga el directorio por el tema de los espacios en blanco y cómo puedo arreglarlo para que ande.

¿ Alguien me puede ayudar ?

¡Saludos! Estoy usando un ejemplo que vi en el foro para realizar envío de correos desde CGI::Application, pero tengo un error


# MODO RECUPERAR CONTRASEÑA #
sub index_recuperar_contrasena{
# 1.- Cargo todas mis librerías en la variable self.
my $self = shift;

# 2.- Recibo el query que viene desde el navegador y lo guardo en la variable q
my $q = $self->query();

# 3.- Asigno variables a cada uno de los parámetros ...

Hola,

¿Me pueden aconsejar?

Necesito ejecutar un botón el cual exporta a Excel el contenido de una grilla. Todo esto a través de un .pl

Creo que con LWP se puede pero no puedo simular o activar el botón.

De antemano, gracias.

«Perl es un poco cabrón, para los novatos como yo, pero tiene cosas guapas guapas. Un ejemplo WWW:Mechanize para hacer scripts que 'interaccionen' con páginas web. Aquí pongo un script que se logea a una página web y se baja un informe que después parsea para incrustarlo en una wiki (dokuwiki). Además, como tengo varios centros, hago que el script solicite el informe para cada centro.»

Artículo

Mmmmm, bueno, no entiendo mucho acerca de expresiones regulares y me surge la siguiente duda:
tengo que sustituir una línea en XML como la siguiente:

sello="DM3kr0vff+6D4GOlSQQ+R/cVoLjka8Mt38vaSCyeXyf="

por otra muy parecida a esta. Lo que llevo en código es lo siguiente:

$line =~ s/sello=""/sello="$sello"/g;

Lo que no sé es cómo decirle al programa que me sustituya sello y todo lo que hay dentro de las "" de sello.

Esto lo hago en un bucle, ...

Buenos días.

Tengo una duda sobre cómo añadir un color de background en un entry.

Lo que quiero hacer es ponerle el color rojo a un Gtk2::Entry si no está escrito y cuando se introduzca el texto cambie a color verde. Lo que no sé cómo hacer es ponerle un color en concreto. He buscado por Internet y solo he encontrado esto:


$entry->modify_bg('GTK_STATE_NORMAL', '#ffff00');


Y me salta el siguiente error: expected a ...

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é ...