Buenas, alguien sabe cómo hacer para que cuando un usuario deba escribir algo con stdin, si se equivoca y desea borrar generalmente aparece ^H, pero no deseo que esto pase, quiero que simplemente se borre la letra como es normal que suceda.
De ante mano, gracias, y espero darme a entender.
-
- Publicidad
Fecha actual 2025-01-21 19:35 @858
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.Configurar Apache e IIS a la vez
Tengo un servidor con IIS (Windows) y otro con Linux (Red Hat). El servicio web lo hace IIS y la aplicación está en Linux. Necesito configurar un reverse proxy en el servidor de Windows para ocultar esta petición a Linux y que sea transparente, esto es, para hacer el servicio público :? y evitar ataques. No sé por dónde empezar, si montando un Apache junto con el ...
Read more : Configurar Apache e IIS a la vez | Vistas : 3653 | Respuestas : 5 | Foro : Programación en general
Script para importar contactos de Yahoo, Gmail, Hotmail
Qué onda, banda,
Traigo un proyecto muy problemático en el cual necesito un script que pueda mostrarme mis contactos de mis cuentas de correo (Yahoo, Gmail, Hotmail) y poder seleccionarlos para agregarlos a mi base de datos. El problema es que no sé cómo puedo mostrar la lista de mis contactos de correo.
Encontré un código que hace lo que necesito pero es de pago. ¿Alguien me puede ayudar?
http://www.linkprobd.com/perl_ci/
Gracias de antemano.
Salu2
Traigo un proyecto muy problemático en el cual necesito un script que pueda mostrarme mis contactos de mis cuentas de correo (Yahoo, Gmail, Hotmail) y poder seleccionarlos para agregarlos a mi base de datos. El problema es que no sé cómo puedo mostrar la lista de mis contactos de correo.
Encontré un código que hace lo que necesito pero es de pago. ¿Alguien me puede ayudar?
http://www.linkprobd.com/perl_ci/
Gracias de antemano.
Salu2
Read more : Script para importar contactos de Yahoo, Gmail, Hotmail | Vistas : 1773 | Respuestas : 1 | Foro : Web
Duda con Listbox
Hola tengo el siguiente código:
use Tk;
my @test = ("sdds","dfdf","dfdf");
my $new = MainWindow->new();
$new->resizable(0,0);
$new->title("Test");
$new->geometry("300x350+20+20");
$new->Label(-text=>"Test")->pack();
my $lists = $new->Listbox()->place(-y=>"60",-x=>"80");
$lists->insert('end',@test);
MainLoop;
Mi duda es cómo puedo reconocer qué frase se ha seleccionado en el listbox.
¿Alguien me puede ayudar?
use Tk;
my @test = ("sdds","dfdf","dfdf");
my $new = MainWindow->new();
$new->resizable(0,0);
$new->title("Test");
$new->geometry("300x350+20+20");
$new->Label(-text=>"Test")->pack();
my $lists = $new->Listbox()->place(-y=>"60",-x=>"80");
$lists->insert('end',@test);
MainLoop;
Mi duda es cómo puedo reconocer qué frase se ha seleccionado en el listbox.
¿Alguien me puede ayudar?
Read more : Duda con Listbox | Vistas : 436 | Respuestas : 3 | Foro : Básico
Ocultar consola en Windows
Hola.
Ando teniendo una duda porque tengo una ventana Tk que cuando la ejecuto sale la consola. Mi duda es cómo puedo ocultar la consola para que la ventana libremente sin tener que usar Win32::Console::Free().
¿Alguien me puede ayudar?
Ando teniendo una duda porque tengo una ventana Tk que cuando la ejecuto sale la consola. Mi duda es cómo puedo ocultar la consola para que la ventana libremente sin tener que usar Win32::Console::Free().
¿Alguien me puede ayudar?
Read more : Ocultar consola en Windows | Vistas : 437 | Respuestas : 1 | Foro : Básico
Cerrar ventana Tk
Hola.
Necesito saber cómo cerrar una ventana Tk de repente, sin depender del típico botón con la función
-command=>
¿Alguien me podría ayudar?
Necesito saber cómo cerrar una ventana Tk de repente, sin depender del típico botón con la función
-command=>
¿Alguien me podría ayudar?
Read more : Cerrar ventana Tk | Vistas : 509 | Respuestas : 1 | Foro : Básico
Renovar variables
Hola.
Ando teniendo un problema con el siguiente código.
use Win32::Process::List;
&ya;
sub ya {
system 'cls';
my $new = Win32::Process::List->new();
my %process = $new->GetProcesses();
for my $pid (keys %process) {
print "$pid\n";
}
print "opcion = 1 = ver\n";
print "escoge:";
$op = <STDIN>;
chomp $op;
if ($op eq "1") { &ya; }
}
El problema es que al recargar con la opción 1 , el programa siempre muestra los mismos pids ...
Ando teniendo un problema con el siguiente código.
use Win32::Process::List;
&ya;
sub ya {
system 'cls';
my $new = Win32::Process::List->new();
my %process = $new->GetProcesses();
for my $pid (keys %process) {
print "$pid\n";
}
print "opcion = 1 = ver\n";
print "escoge:";
$op = <STDIN>;
chomp $op;
if ($op eq "1") { &ya; }
}
El problema es que al recargar con la opción 1 , el programa siempre muestra los mismos pids ...
Read more : Renovar variables | Vistas : 418 | Respuestas : 0 | Foro : Básico
Dudas varias con emails
Hola nuevamente...
Estoy enviando emails con un ejemplo sacado de este foro, pero la información es muy acotada... Está bien para comenzar, pero ya comencé y deseo enviar emails más sofisticados...
Tengo esto:
open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: prueba\@email.com\n";
print MAIL "From: panterozo\@email.com\n";
print MAIL "Subject: Prueba de envio de email\n\n";
$email .= "\n\n\n\tHola que tal\n\n\n ";
$email .= "\n\n\n\t\tOtra entrada tabulada\n\n\n ";
print MAIL $email;
close(MAIL);
exit(1);
El email llega correctamente, pero ...
Estoy enviando emails con un ejemplo sacado de este foro, pero la información es muy acotada... Está bien para comenzar, pero ya comencé y deseo enviar emails más sofisticados...
Tengo esto:
open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: prueba\@email.com\n";
print MAIL "From: panterozo\@email.com\n";
print MAIL "Subject: Prueba de envio de email\n\n";
$email .= "\n\n\n\tHola que tal\n\n\n ";
$email .= "\n\n\n\t\tOtra entrada tabulada\n\n\n ";
print MAIL $email;
close(MAIL);
exit(1);
El email llega correctamente, pero ...
Read more : Dudas varias con emails | Vistas : 704 | Respuestas : 4 | Foro : Básico
Ayuda con código Perl + script en JavaScript
Hola, un saludos a todos. Soy nuevo en el foro :mrgreen: Quisiera pedirles una ayuda con un código que estoy armando en Perl. El problema es en el siguiente fragmento:
print "Content-type: text/html\n\n";
print<<EOF;
<HTML>
<head>
<style type="text/css">
<!--
.Estilo1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<SCRIPT language=javascript>
mensaje=
'<p align="center">Mensaje 1</p>'+
'<p align="center">Mensaje 2</p>'+
'<p align="center">Mensaje 3</p>'+
'<p align="center">Mensaje 4</p>'
line=0 ...
print "Content-type: text/html\n\n";
print<<EOF;
<HTML>
<head>
<style type="text/css">
<!--
.Estilo1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<SCRIPT language=javascript>
mensaje=
'<p align="center">Mensaje 1</p>'+
'<p align="center">Mensaje 2</p>'+
'<p align="center">Mensaje 3</p>'+
'<p align="center">Mensaje 4</p>'
line=0 ...
Read more : Ayuda con código Perl + script en JavaScript | Vistas : 2443 | Respuestas : 9 | Foro : Web
Módulo facturación
Agradecería si me pudiesen orientar para lo siguiente.
Tengo un sistema web desarrollado en Perl y necesito generar facturas y que los clientes que acceden desde la web puedan hacer download de las mismas. Agradecería muchísimo si me pudiesen orientar en qué módulo puedo usar para generar estas facturas, es decir ¿qué usar? ¿¿ XML, PDF ??
Toda la información me será de gran ayuda. ¡¡¡Muchas gracias!!!
...
Tengo un sistema web desarrollado en Perl y necesito generar facturas y que los clientes que acceden desde la web puedan hacer download de las mismas. Agradecería muchísimo si me pudiesen orientar en qué módulo puedo usar para generar estas facturas, es decir ¿qué usar? ¿¿ XML, PDF ??
Toda la información me será de gran ayuda. ¡¡¡Muchas gracias!!!
...
Read more : Módulo facturación | Vistas : 1381 | Respuestas : 2 | Foro : Módulos
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981