Foro - Perl en Español

Esto es lo que tengo que realizar hasta aquí. Todo bien, lo único es que quisiera que leyera varias pasadas y fuera acumulando el total de las ventas perdidas por errores... El error es como si no regresara al primer goto.

Que la transacción sea aprobada
Que la transacción sea suspendida por las siguientes causas:
* Fecha de emisión caducada
* Rebaso el límite de crédito
* No es posible obtener autorización de tarjeta utilizada ...

Necesito ayuda. Lo que busco hacer es lo siguiente:

• Leer el archivo
• Seleccionar el tipo de actividad (esta puede ser, concierto, fútbol, baloncesto, desfile, cine
• Crear un archivo a partir del nombre de la actividad
• Almacenar ahí los registros correspondientes a esa actividad
• Imprimir el nombre del archivo y los registros correspondientes a cada archivo

Tendría que crear en este caso 5 archivos, cada uno a partir del tipo ...

Hola compañeros.

Os pido ayuda otra vez. ¿Cómo puedo hacer el promedio de cada columna? La primera fila tiene el nombre de cada columna:
Azores Cantabrico Gran Sol Vizcaya
1.50 2.00 3.00 3.00
1.75 2.24 3.10 3.20
2.00 2.50 3.30 3.10
1.75 2.40 3.50 3.30

Estos datos están en un fichero .dat, alturaolas.dat.

El resultado que quiero es
Azores Cantabrico Gran Sol Vizcaya
Promedio Promedio Promedio Promedio

He visto que se puede hacer con [perl ...

Buenas. Tengo un problema. Lo que intento hacer es introducir varios datos a un archivo pero solo me aparece un dato.

#!/usr/bin/perl
while (1) { # bucle infinito

print "introduzca datos \n";
print "ingrese número de tique: ";
chop( $numero = <STDIN> );
print "ingrese tipo de actividad: ";
chop( $actividad = <STDIN> );
open( IN, "+>D:/etc/ticketsven.txt" );
seek( IN, 0, 2 );
print IN "$numero:$actividad\n";
close IN;

last if $numero ...

¡Buenas tardes!

Escribo para que por favor me ayuden con lo siguiente: Necesito validar datos ingresados en un formulario. Esta validación debo hacerla necesariamente con un botón y a través del evento OnClick (JavaScript). Debo verificar que los datos ingresados estén almacenados en una Base de Datos. ¡Agradezco la ayuda!

Buenas ;)
Yo molestando nuevamente, resulta que no tengo claro un tema.

Los CGI, son aplicaciones programadas en C o Perl, pero el punto es que no logro correr alguna ;)

Ensayo con algunas de prueba, pero no me resultan, lo que me arroja el navegador es el error 500 Internal Server Error, es decir que algo anda mal, ...

Buenas, vengo aquí con una nueva duda (sí, soy un poco pesadete :lol: )

Veréis, en un archivo Perl tengo que cambiar los permisos de varios archivos, (en concreto el "passwd" y el "shadow"). El caso es que soy incapaz de cambiarles los permisos, he intentado con:

chmod(0640,"/etc/passwd");
chmod(0640,"/etc/shadow");

También he probado con:
system("chmod 640 '/etc/passwd'");

Y también tengo otra duda:
No sé cómo puedo ...

Hola.

Tengo un script que me devuelve la hora de la máquina en la que está trabajando.

Lo que necesito es cambiar esa hora a la hora que tengo yo.

Es decir, si me devuelve las 12.00 de la mañana y resulta que la máquina en la que está corriendo el script está en Japón, necesito convertir esa hora a la que tenemos en España.

¿Hay alguna forma de saber qué franja horaria hay en ...

Saludos a todos:

Deseo que alguien me ayude a encontrar cómo codificar en Perl, el cálculo de una arcotangente de un valor.

He visto en el CPAN que existe una función llamada ATAN(valor), pero no entiendo cómo instalar esa librería, pero si existe otra forma de calcular este valor, agradeceré mucho su ayuda.

Saludos desde México.
Ricardo.

¡Hola de nuevo! Lo que quiero es dar la opción de abrir un archivo y que si no lo encuentra te pida introducir un nuevo nombre.

Tengo esto, pero no funciona, si introduzco el nombre de un archivo que no encuentra, sale error y pide un nuevo nombre, pero luego al introducir el nuevo nombre, aunque sí lo encuentre y esté bien, sale error :" illegal division by 0"

unless ( open(DNAFILE, $dnafilename) ) ...