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