Foro - Perl en Español

Yo de nuevo, muchas gracias por la ayuda.

Pero tengo el mismo problema de nuevo. Tengo otro programa que tampoco entiendo, de forma muy general lo que hace es asociar a cada pixel de la imagen una coordenada celeste, que consta de una posición en grados minutos y segundos, más una declinación.

Tiene muchos comentarios que no sé si sacar o no.

El programa funciona, pero no sé qué es lo que hace.

¿Por favor ...

Hola.

Bueno, si en UNIX/Unix-Like ven /var/mail/usuario o /var/spool/mail/usuario podrán ver que todos los e-mails están en un archivo ( separado por "\n" ).

La pregunta es: ¿ Cómo separa los mails ?
Yo tenía planeado usar Tie::File que da mejores opciones que DB_File, y sacar los headers definidos por el RFC-4021 así que en teoría solo tendría que saber que un mail va así:

Code: Seleccionar todo

Header
"\n"
Body
"\n"

Todo va bien usando una que ...

¡Hola!

La verdad es que sé bien poco de Perl, pero necesito entender un programa de forma urgente.

Estoy trabajando con fotografías en formato fits tomadas por un telescopio. La idea es mezclar 3 fotos en distintos filtros para crear una imagen a color. El programa funciona pero necesito entender cómo lo hace.

Si alguien me puede ayudar estaré eternamente agradecida.

use PDL;
use PDL::NiceSlice;
use Vtools;
use strict;
use PDL::Graphics::PGPLOT::Window;
#use PDL::ImageRGB;

use PDL; ...

Hola a tod@s.

Quiero pasar un array bidimensional como parámetro a un cgi, pero a la hora de de recoger los datos en el destino solo me coge el primer elemento del array.

Se lo paso de la siguiente forma:

<IMG SRC='./mostrarGrafico.cgi?dias=@dias'>

¿Quién me puede ayudar?

Saludos y muchas gracias

Como sabéis gpg no soporta la encriptación de carpetas, así que decidí hacerme un par de funciones para ello en Bash, la cosa no cuajaba y decidí hacerlas en Perl.

Las pongo aquí con la esperanza de que me ayudéis a resolver un pequeño problema que indico en los comentarios del código (no sé cómo parar el script en caso de que la clave introducida sea errónea para evitar que borre los archivos), y de ...

Hola, que tal.

Me dejaron un proyecto el cual consiste en crear un script en Perl que formatee un disco duro que se le indique, para así automatizar la limpieza de algunas pc's.

¿Hay alguna forma de crear un script que formatee un disco duro o unidad que se le pida?

Gracias. :lol:

Tengo un problema con el Ajax:

Necesito pasar los valores de la función de Ajax a una función de JavaScript, y como figura en el manual utilizo:

onClick="exported_func(,);"

en la salida de la función del script de Perl tengo

my $output = $valores;
return( $output );

Y luego lo recibo en la función de Perl de la siguiente manera:

function js_process_func(datos){
alert(datos);
}

¿Los pasos están bien? ¿Por qué la función al hacer el alert ...

Hola a tod@s.
¿Existe alguna función o módulo en Perl para manejar fechas?

Es decir, si en un cgi selecciono un año bisiesto y el mes de febrero, que el número de días de ese mes sea 29 si no que sea 28.

O si selecciono mes de Junio, a la hora de desplegar el día me aparezca solo del 1 al 30.

Un saludo
Gracias.

Hola a todos, tengo un problemilla con un trozo de código que hasta hoy me funcionaba perfectamente.

my $p;
open(WHOAMI, "/cvsaux/controlScripts/conf/noFBusers.conf") || die "Cannot open noFBusers\n";
while ($p = <WHOAMI> {
chop ($p);

if ($p eq $whoami) {
print "\n\n";
print "OK $whoami is an authorized user\n\n";
exit 0;
}
else {
}
}
print "\n\n";
print "ERROR $whoami is NOT an authorized user\n\n";
close (WHOAMI);

Hasta día de hoy este código habría el archivo, ...

Hola a todos.

Tengo un problema a la hora de usar esta función sobre un fichero.

Tengo el código siguiente.

######################################
use File::SortedSeek ':all';

open DATOS,'./datos.log' or die $!;
$begin=alphabetic(*DATOS,'2007-11-26');
$end=alphabetic(*DATOS,'2007-11-31');
@lineas=get_between(*DATOS,$begin,$end);
close(DATOS);
######################################

En teoría se deberían cargar en el array @lineas todas las líneas del log comprendidas entre $begin y $end, pero a la hora de mirar el array si $begin es la primera línea del log no me la carga o ...