Foro - Perl en Español

Hola.

Cuando intento entrar al subforo Juegos me lanza el siguiente mensaje:

No tiene los permisos requeridos para leer temas en este foro.

¿Están mal asignados los permisos o en verdad el acceso a dicho subforo es limitado?

Saludos.

Hola, les cuento de que se trata:

Soy nuevo con Perl, tengo un script para subir archivos pesados (pueden ser de varios GB) a un servidor web (una nube) escrito en bash. No lo escribí yo pero lo estuve retocando para agregarle funcionalidades.

Ahora necesito hacer lo mismo pero con un script de Perl y la función que se encarga de subir los archivos me está dando problemas:

upload()
{
local COUNT=$(((SIZE - OFFSET ...

Hola, ¿qué tal...?

Quisiera ver si me podrían ayudar con este problema que tengo...

Estoy haciendo un código en el cual tengo que contar un par de palabras que son "Pre y Post"... pero algo anda mal ya que me sí me imprime cuántas veces se encontraron dichas palabras pero tengo la duda de cómo separar mi archivo por el ">" que está al principio de cada línea para así hacerlo por segmentos...

Espero y ...

¿Qué tal?

Estoy haciendo un script en Perl en donde estoy utilizando el módulo Spreadsheet::WriteExcel para generar un archivo en Excel. El problema que tengo es que necesito alrededor de 400 columnas y cuando genero el documento solamente llega a la columna IV (256 columnas).

¿Hay alguna manera de poder aperturar más columnas usando el módulo Spreadsheet::WriteExcel?

Muchas Gracias por su ayuda.

Lo que quiero es ahorrar programar un código para buscar un artículo dada una categoría padre y que busque de ahí en todas las subcategorías hasta N nivel...

También si es posible que me retorne el árbol de categorías y subcategorías...

Verán: ya hice una función recursiva pero me pareció poco óptima... Encontré éste, pero no me agrada mucho.

http://search.cpan.org/~jlishev/WebTool ... egories.pm

Hola, buenas. Soy nuevo en Perl y poco a poco voy haciendo cosillas, pero aquí os pongo un par de dudas.

$busqueda=~ m/<b>(.*)<\/b><\/font><\/a><span class="mstrucos"><\/span> /;

En $busqueda tengo guardado un fichero de texto línea a línea. Contiene el código HTML del resultado de una búsqueda.

Con esta primera línea, guardo el nombre del primer cliente en $1, pero en $2, no me guarda la segunda coincidencia. ¿¿¿ Cómo podría coger las demás coincidencias ???

while ...

Disculpas, pero llevo días en tratar de resolver esto, y no avanzo.

Mi objetivo es firmar un archivo digitalmente. Tengo un archivo de clave (privatekey) y un archivo de certficado (cert).

Desde una aplicación Perl quiero hacer uso del OpenSSL de Linux. Tengo un código en Phyton que lo hace y no sé cómo hacerlo en Perl.

# Firmar el texto (tra), donde cert y privatekey son datos conocidos

out = Popen(["openssl", "smime", "-sign","-signer", cert, ...

Buenas tardes.

Abriendo un nuevo tema y gracias por la ayuda anterior.

Se quiere crear un mensaje de error dentro de un while() al conectar con una base de datos de MySQL donde, dependiendo del valor de una variable, muestre el error. Voy a mostrar el código:

$dbh = DBI->connect("DBI:mysql:otrs","root",'root');
$sql = "select name, ticket_id, history_type_id, create_time
from ticket_history where history_type_id in (1,16,27)and ticket_id =$algo";
$sth = $dbh->prepare($sql);
$sth->execute;
while( ($name, $ticket_id, $history_type_id, $create_time,) =$sth->fetchrow() ...

Siguiendo el tutorial de graficación del foro, compiló el programa correctamente y al ejecutarlo obtengo una serie de caracteres ilegibles y no entiendo qué tengo que hacer. El programa es:

#!/usr/bin/perl -w

use strict;
use CGI ':standard';
use GD::Graph::bars;

# <img src="http://localhost:8080/Perl Express/sripts/Grafica de barras.cgi" alt="Visitas Mensuales"> ;

# Defino los arreglos y la matriz
my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);

my $grafico ...

Estimados..

Estoy tratando de obtener la información de una tabla HTML con el módulo HTML::TableExtract, pero no funciona nada de nada...

He probado un ejemplo dado por explorer link, pero no me muestra absolutamente nada :s


#!/usr/bin/perl
use LWP::Simple;
use HTML::TableExtract;

my $pagina = get('http://www.bcentral.cl/');

my $te = HTML::TableExtract->new( attribs => { summary => 'Indicadores diarios' } );
$te->parse($pagina);

foreach $tabla ($te->tables) {
foreach $fila ($tabla->rows) {
print " ", join(', ', @$fila), ...