Script para mostrar la información de nuestro disco duro.

El enunciado lo dice todo. Es un código que encontré que he creido que puede ser de utilidad a alguién. Un código cortito y muy rápio en ejecución.

[code language="perl"]
#!/usr/bin/perl -w
# zfree.pl es un script que utiliza la lista de diálogo zenity para mostrar
# la información libre en el disco duro

my @df = qx "df -h";
my $cl = "zenity --list --width=500 --height=280 --title=\"Espacio libre en disco\" --text=\"Espacio utilizado y libre en los discos duros montados\" ";
my @cols = split /\s+/,$df[0];
shift @df;
pop @cols;
foreach(@cols){
$cl .= "--column=\"$_\" ";
}
@cols = ();
foreach (@df){
@cols = split /\s+/;
foreach(@cols){
$cl .= "\"$_\" ";
}
}system $cl;
exit;[/code]

Hasta el proximo script!