Foro - Perl en Español

¡¡Hola a todos!!

Necesito de su orientación ya que estoy haciendo un programilla para abrir archivos con día juliano mediante la función getOpenFile, el problema es que no todos los archivos los reconoce.. ¿¿¿alguna idea??? :D


for (1..365) {
push(@A,"*.$_");
}

$type=[
,
,
];

$filename = $m->getOpenFile(
-filetypes => $type,
-initialdir => Cwd::cwd(),
-initialfile=> "",
-title => "Abrir ...

Hola,

necesito convertir fechas expresadas en segundos a formato hh:mm:ss dd/mm/aaaa.

Es decir yo recibo por ejemplo 1160949098 y tengo que convertirlo a la fecha correspondiente en formato hh:mm:ss dd/mm/aaaa

¿Cómo puede hacerlo?
8)

Hola.

Me gustaría ejecutar una serie de comandos durante el funcionamiento de mi programa en Perl. Usando el comando 'system' he obtenido buenos resultados. Por ejemplo:

#!/bin/perl

system (ifconfig);


Ahora bien, si lo que yo quiero es ejecutar un comando que todavía no conozco no me funciona. Veamos otro sencillo ejemplo:

#!/bin/perl

$comando = ifconfig;
system ($comando);
$argumento = Modo1
system (/home/user/seleccion $argumento)

Lo que no sé es como debo ejecutar comandos que tenga almacenados ...

Tengo el siguiente problema. Necesito imprimir en pantalla cierta información, pero dependiendo del tamaño de la ventana (consola linux), de manera que la información no quede en dos líneas, sino que al llegar al extremo de la terminal, se corte.

¿ es posible ?

Hola a todos, primero mis mas sentido pesames para familiares y amigos de nuestro Genio.

Necesito saber como trabjar con Hlist??

Tengo este codigo, corre perfecto, ahora no se come meter valores desde variables en las diferentes columnas y filas de este hlist, Me pueden ayudar..

Gracias................

use Tk;
use Tk::HList;
use Tk::Scrollbar;

sub icmd {
my ($path, $state) = @_;
print "path is '$path', state is '$state'\n";
}

my $mw = MainWindow->new;



$hlist = ...

Saludos lista,

se me plantea la necesidad de usar fetchmail+procmail y un script en PERL que extraiga los ficheros adjuntos de cada mensaje recibido y los guarde en una carpeta concreta. Luego el mensaje será descartado.

He visto que tal vez se haga con Mime::Explode pero no tengo claro por donde empezar porque la documentación que he encontrado no me aclaraba nada.

Si alguien fuese tan amable de orientarme un poco se lo agradecería muchísimo. ...

Estimados Perleros :

Sé que por allí hay un tutorial de cómo utilizar módulos de Perl, sin instalarlos... pero hoy me encuentro con un pequeño problema. Tengo un cliente que en su hosting no le quieren instalar un módulo, para ser específicos, Apache::Session::MySQL.
Mis preguntas :

1. ¿ Es posible instalarlo dentro de otra carpeta (a la que tengamos acceso) dentro del servidor web ?
2. ¿ Cómo lo instalo ? ¿Sólo se copia la ...

Hola ¿Que tal?
Bien, como es de esperarse no se puede hacer un flock a un directorio (el nombre lo dice todo file lock) así que esa es mi pregunta, cómo se puede hacer un flock a un directorio.
Ahora ustedes se preguntarán y eso para que, pues me pusieron un rootkit hace poquito (4 días) y me di cuenta al mirar /etc/passwd que había un usuario con UID 0 (root) y que root corría ...

Saludos a todos...

Estoy leyendo datos de un archivo de texto y todo va bien, saco la información perfectamente, hago un split para separar los datos por línea, pero el problema viene cuando voy a imprimir algunos valores el cual me arroja la siguiente salida

valor1
^Mvalor2
^Mvalor3
^Mvalor4
.
.
.

la primera vez lo hace bien pero de la segunda en adelante me adiciona el ^M he buscado info y no he podido ...

Hola a todos

Quisiera saber cómo puedo redondear una cantidad. Por ejemplo, si mi cantidad es 2.60 debe dar un resultado de 3 y si es 2.4 debe imprimir 2. Yo utilicé la función

Code: Seleccionar todo

sprintf("%d", 2.60);

pero me da como resultado 2 en vez de 3.

¿Se puede realizar con otra función o como podría hacerlo?