Foro - Perl en Español

Intento crear un script que busque en un directorio todos los archivos terminados en .jpg y que los mueva a un directorio:
#!/usr/bin/perl

use strict;
use File::Find;

my $dir = ' C:\img ';

find(\&imprimir_archivo_img, $dir);

sub imprimir_archivo_img{
my $elemento = $_;

if(-f $elemento && $elemento =~ /\.jpg$/)

{

my $img = $elemento ;

my $dest = 'C:\';

move( $img, $dest);

}

Pero al intentar interpretarlo me da:

C:\Documents and Settings\user\Escritorio\Programando\Perl\project>Img.pl
Can't find string terminator "'" ...

Estimados usuarios

Tengo un script Perl, el cual necesita conectar a una base de datos Oracle utilizando el módulo DBI...

Al momento de instalar el driver específico para Oracle "DBD::Oracle" me genera el siguiente error::
Trying to find an ORACLE_HOME
Your LD_LIBRARY_PATH env var is set to ''

The ORACLE_HOME environment variable is not set and I couldn't guess it.
It must be set to hold the path to an Oracle installation directory
on ...

http://cevug.ugr.es/perl/

Organiza:
CEVUG.Centro de Enseñanzas Virtuales de la Universidad de Granada.
FEUGR. Fundación Empresa-Universidad de la Universidad de Granada.

Duración:
40 horas virtuales.

Fechas:
Del 12 de noviembre al 21 de diciembre de 2007.

Precio:
180 euros
120 euros para estudiantes hispanoamericanos

No se contemplan becas para este curso.

Plazo de matrícula:
El plazo de matrícula concluirá el 5 de noviembre de 2007

Breve descripción:
Los objetivos del curso ...

Hola, dispongo de un listado de clusters (cadenas de 3 a 8 palabras) y me gustaría buscar el número de ocurrencias de dichos clusters en varios ficheros de texto contenidos en un directorio.

De momento tengo el siguiente código:


foreach my $nombre_fichero ( <C:\\MI_DIRECTORIO\\*.txt> ){

open(TEXTO, $nombre_fichero);
@lineas=<TEXTO>;
close(TEXTO);
print @lineas;

while($cluster=<DATA>){
chomp($cluster);
$numero_de_veces=()=@lineas=~/$cluster/misg;
print "$cluster: $nombre_fichero: $numero_de_veces\n";
}
}
#LISTADO DE CLUSTERS
__DATA__
IN ORDER TO
THE EFFECT OF
THE NUMBER OF
DUE ...

Que tal amigos Perleros.

Estoy siguiendo un manual de manipulación de objetos y al parecer no lo compila mi Perl (ActiveState 5.6)...

Estoy pensando que es debido a la versión y este manual es viejo, tal vez @ISA ya no se utiliza... Este es el mensaje que me envía y abajo el código. ¿Alguien sabe por qué pasa esto?

Mensaje del compilador

Code: Seleccionar todo

Unrecognized character  \x93 at animals.pl line 2

Este es el código
package Burro; ...

Tengo una duda:
¿Cómo llamo a funciones JavaScript dentro de otra función JavaScript?

Tengo el siguiente problema: yo tenía dos funciones JavaScript que corrían en el onclick de un botón:

<input class="boton" type="reset" value="Enviar mensaje" name="cargamensaje" onClick="exported_func( , , cambiarDisplay('scroll','formMensaje','botenv','mensajeok');">Bueno, lo que hice a este botón que se encuentra dentro de un formulario fue agregarle otra función que se encarga de validar los campos:

<input class="boton" type="reset" value="Enviar mensaje" name="cargamensaje" onClick="valida_mensaje(this),exported_func( , , cambiarDisplay('scroll','formMensaje','botenv','mensajeok');">Bueno, ahora ...

Hola. Disculpen. Necesito ayuda con esto. Estoy programando un script para conectarme a un sitio pero el problema es que a veces no está activo el servidor y me preguntaba cómo puedo hacer para que si no conectara ahí vuelva a intentarlo otra vez y así hasta que conecte.
my $send = new IO::Socket::INET (
PeerAddr => "$server",
PeerPort => "1200",
Proto => "tcp",
);
die "No se puede abrir el socket, Motivo: $!\n" unless ...

Hola,

Lo primero saludar ya que este es mi primer mensaje en este foro. He estado echando un vistazo y parece que está bastante bien. De momento empiezo pidiendo ayuda, espero poder aportar algo en el futuro.

Hace tiempo trabajé con Perl pero ahora no me acuerdo de mucho... Antes de ponerme a repasar, y para ver si este lenguaje me serviría, quería hacer una pregunta.

Necesito hacer una página que lea una URL de ...

Hola, soy nuevo en este foro,espero que me ayuden con un problema que tengo, cuento con un script que me captura el archivo adjunto del correo pero la verdad que cuando lo ejecuto me sale un error, no sé si me falta instalar algunas herramientas más para que funcione o algo así.

Les mando el código para que lo vean.

#! /usr/bin/perl

use Email::MIME;
my $parsed = Email::MIME->new($message); #Tome un mensaje de correo
#my $mail ...

Hola Amigos Perlianos:

Una pregunta, no sé si será loca, o rara.

¿Hay manera de pasar un hash, de la misma forma como podemos pasar variables de un script a otro?

Este es mi punto: hago un "request" a un ASP, utilizando LWP::UserAgent, me responde en XML, la estructura la tengo en un hash, ¿cómo puedo pasarla o manipularla dentro de un script para que sea "persistente", es decir, para no tener que estar haciendo ...