Foro - Perl en Español

#!/usr/bin/perl-w
use CGI;

my $q = new CGI;


# load CGI routines

# create new CGI object

print $q->header;

# create the HTTP header

$q->start_html('hello world');

# start the HTML

$q->h1('hello world');

# level 1 header

$q->end_html;

# end the HTML

--------------------------------

el programa anterior no me funciona y no se porque, me muestra el siguiente error:


Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request. ...

Tengo algunas semanas ( o quizás ya mas de un mes ) trabajando en un pequeño modulo, el cual ofrece un nivel de abstracción mas alto, más sencillo y más orientado a objetos para el trabajo con Glade y Perl.

Glade es el modelador de aplicaciones visuales para Gtk2/Gnome, sencillo de usar, intuitivo y poderoso, el cual genera un archivo xml con toda la especificación de componentes y acciones a tomar de la aplicación en ...

He creado un formulario y un script perl cgi para el envío de datos del formulario por correo y todo funciona bien, salvo un pequeño problema, el orden de los campos está desordenado y no coincide con el orden en el formulario, no encuentro ninguna lógica, ¿alguien me puede echar una mano? Muchas gracias

script cgi:

#!/usr/local/bin/perl

$mailprog = '/usr/lib/sendmail';
$mimail= '[email protected]';
$asunto= 'reporte de Problemas';

######################################################################

push(@codigo,"");
push(@codigo,"");
push(@codigo,"gracias!"); ...

Saludos,

Estuve revisando el código del módulo y bueno, aquí van mis conclusiones, que aclaro, son ajenas a las finalidades del autor del módulo, es decir, el autor de un módulo generalmente crea para dar solución a un problema, y quizás su problema tenía como solución crear algún tipo de gestor de sesiones similar a la forma en la que PHP las maneja:

1) La primera es, quizás fue creado por fines educativos, ya que ...

Estoy trabajando con el modulo cgi, el pl recibe unos parametros:

$q->new CGI;

my $variable1= $q->param(parametro1);
my $variable2 = $q->param(parametro2);

Hasta aqui todo marcha bien, mi problema es que luego de realizar unas operaciones como alta o bajas , quiero inicializar en vacio o blanco "" los parametros "NO TODOS" , SOLO algunos, y no me funciona lo siguiente.

$q->delete('variable1', 'variable2');

Me podrian indicar como hacerlo. Muchas gracias. ...

Hola miren estoy desarrollando un sistema en perl usando cgis, el sistema maneja una sesion que me permita tener los datos del usuario, con una base de datos de sql, cuando inicia el sistema te pide un username y un password, se lo das y inicia tu pantalla principal, el problema es que no me mantiene la sesion ya que tambien de ella depende que el sistema te de acceso a ciertos menus, no se ...

Hola necesito hacer un menu desplegable algo mas o menos asi
http://posgrado.cicese.mx/ donde tengo mis opciones del menu y algunas de ellas otras a seleccionar, pero no se si se pueda hacer en perl, no se si alguien pueda proporcionarme alguna ayuda o tip. que pueda seguir.
No soy muy experta en perl que digamos,,, asi ke cualquier consejo me seria util.
ozzy

De los ficheros que se pasan como argumento, muestra el contenido solo del que tiene
mayor número de líneas.

Es decir: alejandroubuntu@alejandroubuntu:~$ ejercico.pl argumento1 argumento2 argumento3...

argumento1: ggggggggggggg
jjjjjjjjjjjjj

argumento2: ggggggggggggg

argumento3: rrrrrrrrrrrrr
eeeeeeeeeeeee
qqqqqqqqqqqqq

Debe mostrar solo el contenido del fichero argumento3.

Gracias ;)

¡Hola de nuevo! mira estoy haciendo un script que agrupe las veces que el campo 7 del fichero passwd contiene bin/false, bin/sh y bin/bash. Esto es lo que tengo hecho. El problema es que nunca termina el bucle. Necesito que la salida sea:
/bin/sh: 7
/bin/false: 19
/bin/bash: 2

open(F1, "passwd") or die "No existe el fichero";
$contador=0;
$contador1=0;
$contador2=0;
while ($linea=<F1>){
chomp $linea;
@line = split(/:/,$linea);
foreach $x(@line)
{
if ($x=="sh")
{
$contador++; ...

Teniendo este script que me da las líneas de un fichero, a partir de la línea 15, ¿cómo puedo validar que solo me permita un argumento por teclado? Si no es así me tiene que imprimir en pantalla: "Solo permite un argumento".

open(F1, $ARGV) or die "No existe el fichero";
$contador=0;
while ($linea=<F1>){
$contador++;
if ($contador>=15)
{
print $linea;
}
}
close F1;

Gracias de antemano.