Foro - Perl en Español

Saludos a todos

Revisando en Internet estoy tratando de aprender hilos en Perl, lo que estuve viendo es para compartir una variable lo cual al parecer es muy simple:

use threads::shared;
use Thread::Semaphore;
use CGI qw(:all);

my $variable : shared = 10;

lo cual según he leído es usado para restringir el acceso a una variable con la función lock() pero quería saber si eso mismo se puede hacer con funciones, la verdad que todavía ...

Hola!. Vi en un sitio esta búsqueda:

if ($poc->content =~ m/____(.*?)____/ms)

Sé como va más o menos, pero no entiendo las ____ .

Tengo un problema con el siguiente script, capaz alguien me puede ayudar.


#!/bin/perl

use PDF::Report;

my $pdf = new PDF::Report(
PageSize => 'A4',
PageOrientation => 'Portrait'
);

$pdf->newpage(1);
$pdf->setFont('Helvetica-bold');
$pdf->setSize(14);
my ($width, $height) = $pdf->getPageDimensions();

$pdf->centerString(0, $width, $height-40, "Reporte de Seguridad");

$pdf->setFont('Helvetica');
$pdf->setSize(10);

open (DATOS,"hola.txt");
while (@linea = <DATOS>){
my $text1= "@linea";


$pdf->addParagraph($text1, 30, $height-70, $width-60, 30, 25, 10);
}


open(PDF, "> reporte.pdf") or die "ERROR: No puedo escribir en reporte.pdf: $!\n";
print PDF ...

Hola amigos

Soy nuevo en programación en Perl. Ahora estoy aprendiendo la parte de Programación orientada a objetos en Perl pero se me presenta el siguiente problema con un programa explicativo que encontré en Internet pero me manda el siguiente error:

Code: Seleccionar todo

Persona.pm did not return a true value at C:\Archivos de programa\OptiPerl53\Webroot\cgi-bin\prueba.cgi line 2.

BEGIN failed--compilation aborted at C:\Archivos de programa\OptiPerl53\Webroot\cgi-bin\prueba.cgi line 2.

La clase es Persona.pm. Aquí no me manda ningún error:

package ...

Bueno tengo el siguiente código en una web. Mi pregunta es ¿cómo puedo hacer para imprimir esa lista en Perl? ¿Es posible?

<td><font face="arial" size="-1">
1) castro<br>
2) peres<br>
.
.
.
x) vargas<br>
</font></td>
Al final quiero estoy buscando que quede así:

Code: Seleccionar todo

1) castro
2) peres
3) gantu
4) leyva
5) vargas

Hola

Tengo una cuestión acerca de archivos. ¿cómo puedo bloquear para que no se puedan subir archivos de más de 1 mega al servidor? ¿Qué es lo que puedo realizar para que no suban ese tamaño de archivos?

Tengo este código para agregarlo:
$File = "/encargosweb/$Stimestamp-$filename";
$File =~ s/ |-|://g;
if (open (OUTFILE,"> $ENV{'DOCUMENT_ROOT'}$File")) {
while ($bytesread=read($fh,$buffer,1024)) {
print OUTFILE $buffer;
}
close OUTFILE;
} else {
print "ERROR"; exit 0;
}

¿En qué ...

Hola,

Cuando uso el debugger de C, gdb, en emacs, puedo conseguir que tenga varias ventanas (depurador, variables, código fuente, pila, breakpoints), gracias a que tengo esto en el .emacs:

Code: Seleccionar todo

(setq gdb-many-windows t)

Cuando intento usar el debugger de perl:

Code: Seleccionar todo

M-x cperl-db

Me sale:

Code: Seleccionar todo

Run perldb (like this): perl

Le doy al enter y me sale el debugger, pero solo con la ventana del debugger.


Pregunto:

¿Hay alguna forma (añadiendo algo al .emacs, ...) de ...

Tengo un problema a la hora de colocar dentro de un array una palabra con comillas simples: Ejemplo:


@rray=('' hola', ' pepe');


Ahí las palabras que quiero meter en el array son:

Code: Seleccionar todo

 ' hola, pepe

Al poner la comilla simple, creo que se lía. Así que supongo que habrá que hacer uso de alguna expresión regular.

¡Hola!. He estado investigando acerca de cómo hacer búsquedas en Google.
Y me topé con este manual:

http://google.dirson.com/apis/ejemplo01.php

No me gusta la forma con la que lo hace en el manual.

Yo lo que quiero es poder hacer una búsqueda en Google a partir de una palabra que defina, y guardar las urls que me dio como resultado la búsqueda en un array. Quiero hacer más cosas, pero quiero ...

hola

Soy un novato en Linux y estoy programando un pequeño script que coge los parámetros una tabla de MySQL y ejecuta un comando, lo que quiero hacer es ejecutar unos comandos con unos parámetros y saber si se han ejecutado correctamente y otros recoger la captura, tengo algo así:

#!/usr/bin/perl

use strict;

use constant DIRECTORIO => '/home/manolo/ficheros'
use constant PROGRAMA => '/home/manolo/leedat'

my $base_datos="estadisticas";
my $usuario="estadisticas";
my $clave="*****";
my $driver="mysql";

#Conectamos con la BD, ...