Foro - Perl en Español

Un cordial saludo.

Alguien que me pueda orientar sobre cómo desarrollar un servicio web en Perl, haciendo uso de Apache. Estuve indagando y lo más cercano que encontré a lo que quiero hacer es algo como esto:

use JSON;
use Data::Dumper;

$json = '{"nombre":"jero2528","ip":"200.1.223.58","interfaz":"GigabitEthernet1","serviceid":99998,"accion":"cancelar"}';

$text = decode_json($json);
print Dumper($text);


Básicamente quiero recibir como parámetro el JSON indicado anteriormente, pero no sé cómo hacer para guardar por ejemplo este .pl y que sea ...

Hola,

Necesito coger la dirección incorrecta del correo de "Delivery Status Notification (Failure)".

Para ello me he montado un script que se encarga de acceder a todos los correos con este asunto. El problema es al ejecutar el patrón de búsqueda en el interior del contenido del correo.

while ( my ( $html ) = getTextIMAP('Delivery Status Notification (Failure)') ) {

print "entro en primer while \n";
if ($html) {

while ( $html =~ ...

Hola.

Estoy intentando crear una restricción a una función y para ello necesito aplicar algo parecido al código que pongo un poco más abajo. El problema es que me da el error: Use of uninitialized value $titulo in pattern match (m//) at ./Aviso_modificaciones_BOE_actualizado.pl line 94.

Lo que yo quiero es aplicar la función siempre y cuando el título empiece por lo que pone en el if.
if ( $titulo =~ /Constitución(.*?)/ ) {
$file_concuerda ...

Hola a todos:

Tengo una aplicación para la Captura de Calificaciones por Alumno en una escuela particular.

Actualmente me funciona bien, pero le quiero meter la característica Ajax para hacerla más práctica y eficiente.

El dato principal de entrada es el Código del Alumno (primer programa), con este acceso la Tabla de Alumnos y obtengo datos como su Nombre, Nivel (Kinder, Primaria o Secundaria), el Grado (primero, segundo, tercero, etc.), el Grupo (a, b, c, ...

Ayuda, explorer. No logro usar el módulo de CGI-Session-4.48.tar a pesar de leer el tutorial de CPAN. Intento e intento y no lo logro, te muestro el código:

Script1:
use CGI;
use CGI qw':standard *table';
use DBI;
use POSIX;
use CGI::Session;
use CGI qw(:standard :netscape :shortcuts);
use CGI::Carp qw 'fatalsToBrowser warningsToBrowser';

###################################
#######Object Initialization#######
###################################
$session = CGI::Session->new();
$CGISESSID= $session->id();
print $session->header();

###RECIBO PARAMETROS

my $p_event = param("evento");
my $f_ini = param("date1");
my $f_fin = ...

Hola, buenas tardes, quiero abrir un cgi desde otro cgi de la siguiente manera:

print "<form name=forma1 method=get action='http://10.26.6.15/cgi-bin/site/charts/economia.pl?vengo_de=paso1&cve=$cve_hom&clas=$clasif&date1=$date1&date2=$date2'>";

Previo a la llamada corroboré que se reciben los parámetros antes de formar el <form> y, efectivamente, están llegando pero al momento de usar <form> no se están enviando los parámetros, le agradeceré su valeroso apoyo.


Gracias.

Buenas tardes, amigos.

Nuevamente en líos. para resumir este es el trozo de código que estoy tratando de ejecutar:

@out = $conn1->cmd( String => "set system login user jero uid 21152\n", Timeout => 120 );
foreach $line1 (@out) {
$salida .= "$line1<br>";
print "-*-*-> $line1\n\n";
sleep(4);
}

#@out=$conn1->waitfor ('/#/');
@out = $conn1->cmd( String => "set system login user jero class mycl-wheel\n", Timeout => 300 );
foreach $line1 (@out) {
$salida .= "$line1<br>";
print ...

¿Cómo puedo copiar un directorio entero en Perl, ojalá sin usar File::Copy...?

La idea es que tengo que clonar un directorio, por decirlo colocándole un nuevo nombre al directorio clonado... :(

Hola a todos.

Estoy manejando una aplicación en la cual, todo usuario debe registrarse para poder acceder sus datos y la aplicación en general.

Esto lo hago, como es clásico, con una clave de usuario y una contraseña. Ambos campos son char(10) y los guardo en una tabla de usuarios en MySQL.

El problema es que algunos usuarios más avanzados están pudiendo leer las contraseñas de otros usuarios y esto me puede traer problemas en ...

En la codificación de los programas desarrollados declaro use utf8, sin embargo al acceder por ejemplo al proceso de Actualizar e ir navegando en el sistema la Codificación en Internet Explorer 11.0.9600.17126 se convierte a Europeo Occidental (ISO) y se pierde el UTF8. Supuse la probabilidad de que fuera el navegador y probé con el Google Chrome pero sucede lo mismo. ¿De qué manera puedo visualizar correctamente todos los caracteres?

Gracias.