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 ...
-
- Publicidad
Fecha actual 2025-03-04 01:45 @114
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Extracción de datos de una variable
Read more : Extracción de datos de una variable | Vistas : 503 | Respuestas : 3 | Foro : Básico
use WWW::RapidShare
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 ...
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 ...
Read more : use WWW::RapidShare | Vistas : 1024 | Respuestas : 1 | Foro : Módulos
Acme::EyeDrops
Dejo un ejemplo de lo que se puede hacer con este módulo:
''=~('(?{' .(('`')|
'%') .''. ('['
^'-' ).+( '`'|'!') .''. ('`' |',' )."\"".( '['^'+').(
'['^ ')') .''. ('`' |')' ).('`' |'.' ).+( '['^ '/') .''.
('{'^'['). '\\' .'"' .('{'^ '+') .''. ('`' |'%' ).+(
'['^ ')').(('`')| ',') .''. ('{'^"\[").( '`'| '%')
.''. ('`' |'.' ).+( '{'^ '[') .''.
('`' |'%' ).+( '['^ '(') .''. ('['
^'+' ).("\`"| '!') .('`'|'.').( '`'|'/') .''. ('`'
|','). ...
''=~('(?{' .(('`')|
'%') .''. ('['
^'-' ).+( '`'|'!') .''. ('`' |',' )."\"".( '['^'+').(
'['^ ')') .''. ('`' |')' ).('`' |'.' ).+( '['^ '/') .''.
('{'^'['). '\\' .'"' .('{'^ '+') .''. ('`' |'%' ).+(
'['^ ')').(('`')| ',') .''. ('{'^"\[").( '`'| '%')
.''. ('`' |'.' ).+( '{'^ '[') .''.
('`' |'%' ).+( '['^ '(') .''. ('['
^'+' ).("\`"| '!') .('`'|'.').( '`'|'/') .''. ('`'
|','). ...
Read more : Acme::EyeDrops | Vistas : 826 | Respuestas : 0 | Foro : Módulos
Perl, CGI y Template Toolkit
Hola a todos, acá les muestro un ejemplo de como empezar a trabajar con perl-cgi y Template Toolkit.
Lo primero que debemos hacer es crear el template que guardaremos en la misma carpeta que el archivo .pl.
template.tt2 (Preferiblemente puedes omitir la extensión tt2).
<html>
<head><title>Carta para </title></head>
<body>
<p>Gente de , su atención por favor.</p>
<p>Soy el Capitan , que destruiré su planeta</p>
<form action="/formu.html" method="POST">
<input type="submit" value="Volver">
</form>
</body>
</html>
Seguido creamos ...
Lo primero que debemos hacer es crear el template que guardaremos en la misma carpeta que el archivo .pl.
template.tt2 (Preferiblemente puedes omitir la extensión tt2).
<html>
<head><title>Carta para </title></head>
<body>
<p>Gente de , su atención por favor.</p>
<p>Soy el Capitan , que destruiré su planeta</p>
<form action="/formu.html" method="POST">
<input type="submit" value="Volver">
</form>
</body>
</html>
Seguido creamos ...
Read more : Perl, CGI y Template Toolkit | Vistas : 617 | Respuestas : 2 | Foro : Básico
Números aleatorios que siempre suman 1
Hola amigos,
Estoy tratando de hacer una rutina que genere por vez un array de números aleatorios cuyos valores siempre sumen 1. Me explicaré mejor con un ejemplo:
¿Alguien tiene alguna idea creativa de cómo hacer esto?
Saludos,
DW
Estoy tratando de hacer una rutina que genere por vez un array de números aleatorios cuyos valores siempre sumen 1. Me explicaré mejor con un ejemplo:
- Code: Seleccionar todo
DATO NÚMERO
1 0.022
2 0.023
3 0.033
. .
. .
. .
21 0.064
22 0.058
23 0.049
24 0.029
------
SUMA -> 1.000
¿Alguien tiene alguna idea creativa de cómo hacer esto?
Saludos,
DW
Read more : Números aleatorios que siempre suman 1 | Vistas : 1906 | Respuestas : 4 | Foro : Intermedio
Cálculos estadísticos a partir de un número
Hola, soy nuevo en el foro y en el tema de la programación.
Tengo un problema respecto a un programa que debo programar para un trabajo, el cual debe reconocer un número ingresado como palíndromo, y a partir de este número, debe encontrar la moda, ordenar de mayor a menor y dar el máximo y el mínimo de los elementos del palíndromo que se ingrese.
He logrado avanzar algo en él, sin embargo hay algo ...
Tengo un problema respecto a un programa que debo programar para un trabajo, el cual debe reconocer un número ingresado como palíndromo, y a partir de este número, debe encontrar la moda, ordenar de mayor a menor y dar el máximo y el mínimo de los elementos del palíndromo que se ingrese.
He logrado avanzar algo en él, sin embargo hay algo ...
Read more : Cálculos estadísticos a partir de un número | Vistas : 979 | Respuestas : 6 | Foro : Básico
Cómo transformar una URL
Hola
Ando buscando transformar todas las URL de un archivo de texto. Ejemplo:
Que estas URL
se transformen en esto
O sea, que la URL termine en la parte ?id=.
Ando buscando transformar todas las URL de un archivo de texto. Ejemplo:
Que estas URL
- Code: Seleccionar todo
http://www.pixelache.ac/nuage-blog/index.php?option=com_content&task=view&id=38
http://www.ifm.ac/index.php?id=businesstraining
se transformen en esto
- Code: Seleccionar todo
http://www.pixelache.ac/nuage-blog/index.php?option=com_content&task=view&id=
http://www.ifm.ac/index.php?id=
O sea, que la URL termine en la parte ?id=.
Read more : Cómo transformar una URL | Vistas : 952 | Respuestas : 1 | Foro : Intermedio
Filtrar palabras de un código fuente
Hola gente, ¿qué tal?, Para empezar soy nuevo en este foro así que antes que nada felicitarlos.
Bueno, vamos al grano. He realizado un pequeño script en Perl, el cual FUNCIONA.
Pero necesito ajustar más los parámetros... El script lo que hace es muy simple: ingreso un HASH md5; y éste lo ingresa en una base de datos: una web donde contiene muchos hash con sus 'valores' desencriptados.
Es decir, el user ingresa un hash, ...
Bueno, vamos al grano. He realizado un pequeño script en Perl, el cual FUNCIONA.
Pero necesito ajustar más los parámetros... El script lo que hace es muy simple: ingreso un HASH md5; y éste lo ingresa en una base de datos: una web donde contiene muchos hash con sus 'valores' desencriptados.
Es decir, el user ingresa un hash, ...
Read more : Filtrar palabras de un código fuente | Vistas : 1609 | Respuestas : 3 | Foro : Avanzado
Alternativas al uso de tie
Hola a todos, tengo un pequeño problema con el uso de tie()... Resulta que necesito que dos procesos diferentes accedan al mismo tiempo a ficheros de serialización que se han creado con tie(), pero buscando en Internet me encontré con que esto no es posible...
Lo que quisiera saber es si existe otro módulo que haga lo mismo que tie(), pero que sí me permita acceso simultáneo al fichero. O que al menos en determinado ...
Lo que quisiera saber es si existe otro módulo que haga lo mismo que tie(), pero que sí me permita acceso simultáneo al fichero. O que al menos en determinado ...
Read more : Alternativas al uso de tie | Vistas : 1838 | Respuestas : 10 | Foro : Intermedio
Falta un registro en la lectura de un fichero
¿Qué tal...? Tengo un problema con mi programa... Ya que hace lo que tiene que hacer... pero no me hace el ciclo completo... Este es mi código:
#!usr/bin/perl
use strict;
use BeginPerlBioinfo;
open (my $fh, $ARGV) or die "Error al pedir el Archivo.\n";
#Declaracion e iniciacion de variables
my $record;
my $dna;
my $annotation;
my %fields;
my $library = $fh;
while (<$fh>)
{
$record = get_next_record($fh);
#Parseo se secuencia y anotacion
($annotation, $dna) = get_annotation_and_dna($record); ...
#!usr/bin/perl
use strict;
use BeginPerlBioinfo;
open (my $fh, $ARGV) or die "Error al pedir el Archivo.\n";
#Declaracion e iniciacion de variables
my $record;
my $dna;
my $annotation;
my %fields;
my $library = $fh;
while (<$fh>)
{
$record = get_next_record($fh);
#Parseo se secuencia y anotacion
($annotation, $dna) = get_annotation_and_dna($record); ...
Read more : Falta un registro en la lectura de un fichero | Vistas : 1047 | Respuestas : 8 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981