Foro - Perl en Español

por **edwardmorfa** » 2015-11-05 07:47 @366

Hola, mis amigos de Perl internacional, quiero saber cómo puedo crear un log para cuando se ejecute este script guarde la fecha, hora y usuario que corrió este script. Debe ser almacenado en una ruta específica.

#!/usr/bin/perl
use strict;
use warnings;
use Filesys::DiskSpace;

# file system /home or /dev/sda5
my $dir = "/home";

# get data for /home fs
my ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir;

# calculate free space in %
my $df_free = (($avail) / ($avail+$used)) * 100.0;

# display message
my $out = sprintf("Disk space on $dir == %0.2f\n",$df_free);
print $out;

Gracias

Llamamos log a un archivo -casi siempre en modo texto-, que consiste en registros -casi siempre son líneas terminadas en uno o dos caracteres de fin de línea-, que se van añadiendo al final del archivo, poniendo la marca de tiempo al comienzo de la línea.

Entonces, el trabajo del programa consiste en:
1) abrir el log en modo añadir (usar '>>' como indicador al open().

2) cuando suceda algo que queramos que quede registrado, creamos la marca de tiempo (usando el localtime() o la función strftime() del módulo POSIX (ver ejemplo en perldoc -f localtime). El resto de la línea queda a nuestro gusto. Lo sacamos con print() dirigido al gestor de archivo abierto obtenido con el open().

3) cuando vaya a terminar el programa, cerramos el archivo con el close().

A ver si con esto te vale. Si no, insiste. Y repasa las notas que te dio el profesor, porque seguro que la solución está ahí.

Aquí hay un ejemplo.

por **edwardmorfa** » 2015-11-12 13:54 @621

Mil gracias, hermano.

Foro - Perl en Español

Cómo hacer log en Perl

Cómo hacer log en Perl

Publicidad

Re: Cómo hacer log en Perl

Re: Cómo hacer log en Perl

Re: Cómo hacer log en Perl

Re: Cómo hacer log en Perl

¿Quién está conectado?