Estimados, soy nuevo en el foro y me gustaría me orientaran. Necesito enviar datos de un formulario a un archivo perl(.pl) y en éste poder realizar consultas a mi base de datos MySQL.
Aquí dejo mi archivo HTML.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>Untitled Page</title>
<style type="text/css">
body
{
background-color: #FFFFFF;
color: #000000;
}
</style>
<style type="text/css">
a
{
color: #C8D7EB;
text-decoration: underline;
} ...
-
- Publicidad
Fecha actual 2025-01-12 13:37 @609
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Pasar formulario HTML a Perl
Read more : Pasar formulario HTML a Perl | Vistas : 877 | Respuestas : 1
Extraer fecha y resaltarla
Buenas, amigos.
Necesito ayuda. Tengo un texto en txt. que lo abro y lo proceso. Y necesito extraer:
* cualquier fecha que exista en el artículo ( ejemplo: 4 SEP 2012 ) y resaltarla con asteriscos, o sea: **** 4 SEP 2012*****
* extraer cada frase del texto por separado
En resumen, ¿alguien sabe qué dos expresiones regulares puedo usar para:
1) extraer la fecha
2) extraer cada frase separada por un punto
¡Gracias!
Necesito ayuda. Tengo un texto en txt. que lo abro y lo proceso. Y necesito extraer:
* cualquier fecha que exista en el artículo ( ejemplo: 4 SEP 2012 ) y resaltarla con asteriscos, o sea: **** 4 SEP 2012*****
* extraer cada frase del texto por separado
En resumen, ¿alguien sabe qué dos expresiones regulares puedo usar para:
1) extraer la fecha
2) extraer cada frase separada por un punto
¡Gracias!
Read more : Extraer fecha y resaltarla | Vistas : 679 | Respuestas : 3
Cómo escapo "\" en split
Saludos, Perl en Español.
Tengo esta dirección:
dentro de la variable $posdespacho.
Me interesa únicamente 29 agosto 2012 por lo cual hice esto:
my @vector = split("\\",$posdespacho);
$vector =~ s/.xls//;
pero al correr el programa
¿Cómo me escapo de la \?
Gracias por adelantado.
Tengo esta dirección:
P:\Públicos\2012\Posdespachos\29 agosto 2012.xls
dentro de la variable $posdespacho.
Me interesa únicamente 29 agosto 2012 por lo cual hice esto:
my @vector = split("\\",$posdespacho);
$vector =~ s/.xls//;
pero al correr el programa
Trailing \ in regex m/\/ at match.pl line 51.
¿Cómo me escapo de la \?
Gracias por adelantado.
Read more : Cómo escapo "\" en split | Vistas : 553 | Respuestas : 1
Corre bien en Ubuntu y se tira en Win7
Bueno la cosa es que tengo un script que me corre buenísimo en Ubuntu y me sale un montón de errores en Win7.
Tengo las mismas versiones de Perl en ambos S.O. Al hacer correr perl -v me sale "This is perl 5, version 14, subversion 2 (v5.14.2)" solo que mi Ubuntu es 32 bits y el Win7 es 64 bits.
En Win7 estoy utilizando ActivePerl.
A continuación se puede ver los errores que me ...
Tengo las mismas versiones de Perl en ambos S.O. Al hacer correr perl -v me sale "This is perl 5, version 14, subversion 2 (v5.14.2)" solo que mi Ubuntu es 32 bits y el Win7 es 64 bits.
En Win7 estoy utilizando ActivePerl.
A continuación se puede ver los errores que me ...
Read more : Corre bien en Ubuntu y se tira en Win7 | Vistas : 2686 | Respuestas : 5
Cómo agregar una línea nueva a un documento
Chicos, ¿cómo están? Espero que bien. De antemano, muchas gracias por ayudar. Y vuelvo a recurrir a ustedes.
Esta vez lo que necesito hacer es agregar una nueva línea con algo que me llega por parámetro a un documento. En este caso en particular es /etc/hosts. He logrado ingresar lo que necesito y agregarlo en un archivo X pero no entiendo cómo leer el archivo y decir en qué lugar en específico deseo poner la ...
Esta vez lo que necesito hacer es agregar una nueva línea con algo que me llega por parámetro a un documento. En este caso en particular es /etc/hosts. He logrado ingresar lo que necesito y agregarlo en un archivo X pero no entiendo cómo leer el archivo y decir en qué lugar en específico deseo poner la ...
Read more : Cómo agregar una línea nueva a un documento | Vistas : 696 | Respuestas : 3
Problema al obtener xml
Buen día. ¿Me pueden ayudar con este tema?
Tengo el siguiente código:
sub gets {
my $xml = 'mensaje xml q envio';
my ($url) = @_;
my $curl = new WWW::Curl::Easy;
$curl->setopt( CURLOPT_URL, $url );
$curl->setopt( CURLOPT_CONNECTTIMEOUT, 30 );
$curl->setopt( CURLOPT_RETURNTRANSFER, 1 );
$curl->setopt( CURLOPT_POST, 1 );
$curl->setopt( CURLOPT_POSTFIELDS, $xml );
$curl->setopt( CURLOPT_SSL_VERIFYPEER, 1 );
$curl->setopt( CURLOPT_SSLCERT, 'pem.pem' );
$curl->setopt( CURLOPT_SSLKEY, 'key.key' );
$curl->setopt( CURLOPT_SSL_VERIFYHOST, 1 );
$curl->setopt( CURLOPT_VERBOSE, 0 );
my $code ...
Tengo el siguiente código:
sub gets {
my $xml = 'mensaje xml q envio';
my ($url) = @_;
my $curl = new WWW::Curl::Easy;
$curl->setopt( CURLOPT_URL, $url );
$curl->setopt( CURLOPT_CONNECTTIMEOUT, 30 );
$curl->setopt( CURLOPT_RETURNTRANSFER, 1 );
$curl->setopt( CURLOPT_POST, 1 );
$curl->setopt( CURLOPT_POSTFIELDS, $xml );
$curl->setopt( CURLOPT_SSL_VERIFYPEER, 1 );
$curl->setopt( CURLOPT_SSLCERT, 'pem.pem' );
$curl->setopt( CURLOPT_SSLKEY, 'key.key' );
$curl->setopt( CURLOPT_SSL_VERIFYHOST, 1 );
$curl->setopt( CURLOPT_VERBOSE, 0 );
my $code ...
Read more : Problema al obtener xml | Vistas : 466 | Respuestas : 1
XML::Simple / Excel::Writer::XLSX
Estimados,
Tengo un parser XML el cual debo entregarle como argumento un directorio y este se encarga de parsear todos los XML que se encuentren en él.
El problema que tengo es que me parsea todo y me lo guarda en la columna "A" porque yo puse que sea así, pero me gustaría en verdad que las URL sean guardadas en la columna correspondiente a su dominio/hosts, ya que tengo muchos XML que parsear.
Ejemplo ...
Tengo un parser XML el cual debo entregarle como argumento un directorio y este se encarga de parsear todos los XML que se encuentren en él.
El problema que tengo es que me parsea todo y me lo guarda en la columna "A" porque yo puse que sea así, pero me gustaría en verdad que las URL sean guardadas en la columna correspondiente a su dominio/hosts, ya que tengo muchos XML que parsear.
Ejemplo ...
Read more : XML::Simple / Excel::Writer::XLSX | Vistas : 2587 | Respuestas : 29
Sumar cantidades con .
Hola, pongamos que tengo cantidades de euros almacenadas así:
3.456.850,00
223.456,00
1.225,00
Quiero ir sumándolas, pero no sé de qué forma está sumando Perl.
Se me ocurre quitar los puntos y las comas para sumar y luego volverlos a añadir, pero ¿hay alguna otra forma de sumar esto?
#!/usr/bin/perl
my @cantidades = qw(223.790,92 1.225,00 3.567.833,00);
map $pasta += $_, @cantidades;
print "¿$pasta" . "?\n";
for(@cantidades){
print $prueba += $_;
print "\n";
}
3.456.850,00
223.456,00
1.225,00
Quiero ir sumándolas, pero no sé de qué forma está sumando Perl.
Se me ocurre quitar los puntos y las comas para sumar y luego volverlos a añadir, pero ¿hay alguna otra forma de sumar esto?
#!/usr/bin/perl
my @cantidades = qw(223.790,92 1.225,00 3.567.833,00);
map $pasta += $_, @cantidades;
print "¿$pasta" . "?\n";
for(@cantidades){
print $prueba += $_;
print "\n";
}
Read more : Sumar cantidades con . | Vistas : 686 | Respuestas : 2
Duda con barra usando q()
Hola. Tengo el siguiente problema con q() cuando hay \\.
El código es:
my $re = q(hola \\ chau);
print $re;
Y devuelve:
hola \ chau
Lo solucioné con \\\\.
¿ Pero, qué otras soluciones tengo ?
El código es:
my $re = q(hola \\ chau);
print $re;
Y devuelve:
hola \ chau
Lo solucioné con \\\\.
¿ Pero, qué otras soluciones tengo ?
Read more : Duda con barra usando q() | Vistas : 455 | Respuestas : 1
Contar número de usuarios en el sistema
Buenos días.
Recurro a ustedes porque estoy intentado hacer un contador el cual me muestre cuántos usuarios tienen bash por defecto. El problema es que siempre me retorna 0. No entiendo por qué. Y el segundo código es para contar todos los usuarios que se encuentran alojados en passwd.
Soy nuevo en programación y leyendo tutoriales hice el código que pongo más abajo.
Espero me puedan ayudar.
¡¡ Muchas gracias !!
#cuanta cuántos ...
Recurro a ustedes porque estoy intentado hacer un contador el cual me muestre cuántos usuarios tienen bash por defecto. El problema es que siempre me retorna 0. No entiendo por qué. Y el segundo código es para contar todos los usuarios que se encuentran alojados en passwd.
Soy nuevo en programación y leyendo tutoriales hice el código que pongo más abajo.
Espero me puedan ayudar.
¡¡ Muchas gracias !!
#cuanta cuántos ...
Read more : Contar número de usuarios en el sistema | Vistas : 1198 | Respuestas : 8
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981