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
-
- Publicidad
Fecha actual 2025-01-18 03:50 @201
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.Manipulación de categorías
Read more : Manipulación de categorías | Vistas : 798 | Respuestas : 0 | Foro : Módulos
Duda con bucles
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 ...
$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 ...
Read more : Duda con bucles | Vistas : 470 | Respuestas : 3 | Foro : Básico
Usar OppenSSL desde Perl
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, ...
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, ...
Read more : Usar OppenSSL desde Perl | Vistas : 3570 | Respuestas : 12 | Foro : Avanzado
Mensajes de error de una consulta en una base de datos
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() ...
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() ...
Read more : Mensajes de error de una consulta en una base de datos | Vistas : 1069 | Respuestas : 1 | Foro : Bases de datos
Gráficas de barras
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 ...
#!/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 ...
Read more : Gráficas de barras | Vistas : 583 | Respuestas : 1 | Foro : Básico
Problemas con HTML::TableExtract
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), ...
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), ...
Read more : Problemas con HTML::TableExtract | Vistas : 543 | Respuestas : 2 | Foro : Básico
Paginación en tabla HTML
Hola, a ver si podéis ayudarme.
Utilizo un template HTML con una tabla para mostrar los datos recuperados de una base de datos.
Me gustaría mostrarlos de 10 en 10. ¿Algún método recomendable y sencillo?
<HTML>
<HEAD>
<title> My users</title>
</HEAD>
<p ALIGN = "center" ><a href="?mode=new">Create new user</a>
<a href="?mode=upd">Update my account</a></p>
<br>
<h2 >List of users created by </h2>
<body>
<FORM METHOD=POST ACTION="app.pl">
<input type="hidden" name="mode" value="mod">
<table border=2 width="60%" ...
Utilizo un template HTML con una tabla para mostrar los datos recuperados de una base de datos.
Me gustaría mostrarlos de 10 en 10. ¿Algún método recomendable y sencillo?
<HTML>
<HEAD>
<title> My users</title>
</HEAD>
<p ALIGN = "center" ><a href="?mode=new">Create new user</a>
<a href="?mode=upd">Update my account</a></p>
<br>
<h2 >List of users created by </h2>
<body>
<FORM METHOD=POST ACTION="app.pl">
<input type="hidden" name="mode" value="mod">
<table border=2 width="60%" ...
Read more : Paginación en tabla HTML | Vistas : 6149 | Respuestas : 21 | Foro : Básico
GTK2 - Resolución de la pantalla
Hola a todos,
Estoy buscando las forma de obtener la resolución de la pantalla para redimensionar unas ventanas. He visto unos ejemplos que hablan sobre usar una librería llamada "Gtk2::Gdk::Screen" y según lo que he buscado, esta librería viene en el paquete "libgtk2-perl-doc" pero aunque lo he instalado, ésta librería no la logro usar porque sigue sin estar disponible en el sistema.
¿¿¿ Alguien me podría dar una ayudita ???
Gracias.
P.D.: Uso Ubuntu 10.10.
Estoy buscando las forma de obtener la resolución de la pantalla para redimensionar unas ventanas. He visto unos ejemplos que hablan sobre usar una librería llamada "Gtk2::Gdk::Screen" y según lo que he buscado, esta librería viene en el paquete "libgtk2-perl-doc" pero aunque lo he instalado, ésta librería no la logro usar porque sigue sin estar disponible en el sistema.
¿¿¿ Alguien me podría dar una ayudita ???
Gracias.
P.D.: Uso Ubuntu 10.10.
Read more : GTK2 - Resolución de la pantalla | Vistas : 514 | Respuestas : 3 | Foro : Básico
Imágenes sin extensión a convertir con script
Hola buenas, acá va una consulta interesante, a ver si con vuestra ayuda puedo solucionarlo; si es en Perl, mejor.
Tengo un programa que genera imágenes y las guarda en un formato sin extensión (no entiendo el porqué, pero bueno). Necesito saber cuál es el formato de las mismas o cómo convertirlas a jpg, bmp o algún formato conocido con algún script.
El programa fuente está en C++ y no encuentro más información que ésta ...
Tengo un programa que genera imágenes y las guarda en un formato sin extensión (no entiendo el porqué, pero bueno). Necesito saber cuál es el formato de las mismas o cómo convertirlas a jpg, bmp o algún formato conocido con algún script.
El programa fuente está en C++ y no encuentro más información que ésta ...
Read more : Imágenes sin extensión a convertir con script | Vistas : 3757 | Respuestas : 14 | Foro : Intermedio
Eliminar el último salto de línea de un texto
Tengo el siguiente código:
open( PASS, "< test.txt" );
my @contenido = <PASS>;
foreach my $linea (@contenido) {
chomp $linea;
print $linea;
}
close(PASS);
test.txt:
hola amigo
Hasta ahí todo funciona bien, pero si el archivo tiene más de una línea, la cosa se complica:
test.txt:
hola amigo
cómo estás
salida:
hola amigocomo estas
Lo que necesito es eliminar el salto de línea respetando las dos líneas para que quede así: ...
open( PASS, "< test.txt" );
my @contenido = <PASS>;
foreach my $linea (@contenido) {
chomp $linea;
print $linea;
}
close(PASS);
test.txt:
hola amigo
Hasta ahí todo funciona bien, pero si el archivo tiene más de una línea, la cosa se complica:
test.txt:
hola amigo
cómo estás
salida:
hola amigocomo estas
Lo que necesito es eliminar el salto de línea respetando las dos líneas para que quede así: ...
Read more : Eliminar el último salto de línea de un texto | Vistas : 2814 | Respuestas : 6 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981