Foro - Perl en Español

Hola todos:

En primer lugar me gustaría agradeceros la ayuda que prestáis en este foro, porque aunque es la primera vez que posteo vengo leyéndoos desde hace tiempo.

Os cuento mi problema:

Estoy escribiendo un script (en realidad ya está escrito) para detectar similaridades entre registros, para ello tengo que comparar la tabla dónde están estos registros consigo misma. En un principio probé a crear un producto cartesiano en la consulta SQL y funcionaba bien, ...

¡Hola gente!

Soy nuevo en el tema de Perl, me ha llamado mucho la atención la estructura de los scripts.

Yo tengo un script que me han pasado en .pl y no consigo hacerlo funcionar, ya que hago todo bien, abro el cmd, pongo cd c:\ y luego perl loot.pl (script.pl es el archivo que se tiene que lanzar). Y cuando hago todo eso me da el siguiente error:



Y también miré para ponerlo ...

¡Hola!

Me gustaría saber cómo podría averigüar si una sección de un vector es nula o no. Lo he intentado poniendo:

my @nulo = undef;
if(@vec != @nulo)

incluso

if( @vec != (undef,undef,undef,undef) )

pero no funciona. ¿Cómo podría conseguirlo?

Gracias.

Hola.

¿Alguien me podría decir cómo busco en un texto normal las arrobas e ir agregándole un '\' antes quedando así: '\@' en un script sencillo.

Antes que nada disculpen por molestar tanto...

Hola a todos:

En primera no estoy muy seguro si esta duda debo plantearla en este foro o en otra parte.
A ver si alguien puede ayudarme:

Hice una especie de Generador de Reporte usando una base de datos MySQL y cuando tengo que seleccionar solo algunos campos de una tabla, pues todo bien, los selecciono uno a uno y todo funciona bien.

Pero si quiero seleccionar todos los campos de alguna Tabla, que algunas ...

Hola,

¿Es posible meter un AND en una expresión regular? Me explico con un ejemplo:

Supongamos que quiero comprobar que en la variable $var existe la subcadena "si" y "no". Con dos expresiones regulares sería:

if ($var =~ /si/ && $var =~ /no/)

¿Se puede simplificar ese "if", haciendo dicha comprobación en una sola expresión regular? Hay que tener en cuenta que podría aparecer el "si" antes del "no" y viceversa.

¡Gracias!

Hi!

Ando flojeando con las expresiones regulares y no sé cómo extraer un email de un código fuente.

La duda es cómo identificar cualquier email de cualquier página e ir guardándolo en un log.

ejemplo: [email protected]

Hi!

Me he dado cuenta de que mi nivel en Perl es bajísimo y no me da vergüenza decirlo.

Ya posteé éste en Intermedio pero necesito un script básico en Perl, para convertir esta URL

http://www.bullcariez.es/index1.php?id= ... ,2,3,4,5,6

a esta

http://www.bullcariez.es/index1.php?id=

terminando la URL en ?id=

Disculpa y adiós.

Saludos a todos,

Esta es mi primera participación en un foro. Soy nuevo en el manejo de Perl, y tengo esta situación:
tengo un archivo CGI en el cual recibo por POST un texto correspondiente a un archivo .mol (donde se encuentran datos de moléculas) como este:

MOLECULE=353;CONFORMATION=0;

21 23 0 0 0 0 0 0 0 0999 V2000
-0.3756 0.2209 0.0342 N 0 0 0 0 0 0 0 0 0 0 0 0 ...

Hola amigos.
Instalé este módulo: WWW::RapidShare, y sus dependencias: Class::Accessor y WWW::Mechanize.

Utilicé el siguiente código:
use WWW::RapidShare;

my $rapid = WWW::RapidShare->new();

$rapid->url(’http://rapidshare.com/files/file.zip’);
$rapid->account_id(’xxxxxx’);
$rapid->password(’xxxxxx’);

# Download the file associated with the above URL.
# It will be saved in current directory.
$rapid->download_file();

Al ejecutarlo me lanza el siguiente error:

Can't locate version/vpp.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.8/i686-linux /usr/local/lib/perl5/5.8.8 /usr/local/lib/perl5/site_perl/5.8.8/i686-linux /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl .) at (eval 3) line 2.
BEGIN failed--compilation aborted at (eval 3) line ...