Foro - Perl en Español

Hola amigos, un saludo.

El día de hoy, les quiero preguntar lo siguiente.

Si yo ejecuto...


system(qq(./crypter/cifranick "$valor" "$valor"));



¿Puedo obtener la salida del programa 'cifranick'?


# Usando

<STDOUT>; # ¿Es posible?

Hola, tengo un problema con el siguiente código. El problema es que no me devuelve los enlaces que le pido a las dos funciones. Probé sacando download_all() y hacer lo mismo y sí funciona, pero el problema es que cuando está en la función no devuelve nada.

¿ Alguien me podría explicar por qué?

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...

Mi intención es realizar una especie de proxy caché de imágenes de la web hacia mi red interna.

Buscando encontré un código que hace la mitad del objetivo, lo que falta es poder guardar la imagen en disco.

#!/usr/bin/perl
use LWP::Simple;
print "Content-type: image/png\n\n";
getprint ('http://www.google.com.bo/images/srpr/logo4w.png');
# AQUÍ FALTARÍA EL CÓDIGO DE GUARDAR EL STDOUT

Como se habrán dado cuenta este CGI muestra o imprime la imagen al navegador mientras éste se descarga, ...

¿Saben dónde puedo encontrar el módulo Crypt?

Unidad 1
• ¿Por qué es tan útil?
• Perfiles de un bioinformático

Unidad 2
• ¿Qué es un lenguaje de programación?
• Código interpretado vs. compildo
• ¿Por qué PERL?
• Instala PERL
• Mi primer programa en PERL

Unidad 3
• Nombres
• Nombres de variables
• Variables escalares

Unidad 4
• Matrices
• Matrices asociativas
• File Handling

Unidad 5
• If - elsif - else
• Operadores comparativos para números y ...

Hola :D

Ahora me encuentro creando una base de datos en .txt


#Con esta función cuento las líneas que tiene el archivo.
sub GetLines
{
my $ARCH = shift;
my $lim;
open(DATA,$ARCH);
while (<DATA>)
{
$lim++;
}
close(DATA);
return($lim);
}

#Esta es la función que me daría el registro de la database.
sub do_bdd
{
my $lines = &GetLines("system/database/admins/listado.txt");
my $busca_bdd = lc($lectura);
my ...

Hola:

A ver si sé explicar mi problema.

Necesito recoger información de una web y lo hago mediante un post. Hasta aquí no tengo problema.

La información que necesito no me aparece en el código recogido con el método post.

Si entro en "Herramientas para desarrolladores" del IE veo el código que me devuelve Perl en la pestaña "SCRIPT", pero yo necesito información que veo en la pestaña "HTML".

Código en HTML:
<input name="recipientPostalCode" tabindex="5" ...

Hola amigos, yo molestando nuevamente.

Quiero exportar un archivo como módulo, el cual llevo trabajando.

Tengo lo siguiente

package BDD;

use lib 'system/modules'; # Se supone que así, selecciono el directorio que contiene los módulos
use parseChar; # este sería el módulo 'parseChar.pm'
sub GetBDD
{
my($registro,$Fichero,$Service,$user) = (shift,shift,shift,shift);
my $PunteroAFichero = &parseChar::GetCharsFile($Fichero); #Y esta es la subrutina del módulo
my $LimiteCadena;

open(BDD,$Fichero) or screen("$BOTS{\"$Service\") P $user :Error al acceder a la database\n"); ...

«
•Introducción
•Conocer los diferentes operadores y funciones pertenecientes a Perl y puedan aplicarlos en un contexto determinado
•Resolver un problema sencillo usando operadores y funciones de Perl. Objetivos»

Artículo

«Lenguaje Perl Dr. Orestes Febles Díaz
•Introducción
•Origen y uso
•Tipos de datos
•Operadores y funciones
•Entradas y Salidas
•Alternativas y ciclos
•Temas generales»

Artículo