Come posso trovare lo spazio libero disponibile sui volumi montati usando Perl?

Question

Sto provando a decomprimere un file. Prima di decodificare vorrei conoscere lo spazio libero disponibile sul volume montato. Il piano è se non c'è abbastanza spazio che non lo spaccherò! Quindi, come posso trovare lo spazio libero disponibile su un volume montato usando Perl? A proposito, sto usando Perl per tar e untar.

Tutti parlano di df e dh ma questi comandi non funzionano sui punti di montaggio. Cosa succede se voglio trovare lo spazio libero su cui posso scrivere su un punto montato?

Answer 1

Utilizzando comandi di shell per generare un unico numero verde K che Perl può utilizzare:

Modifica nella directory in cui si desidera decomprimere (se non già presente) ed eseguire:

df . | grep -v '^Filesystem' | awk 'NF=6{print $4}NF==5{print $3}{}' 

Oppure sostituire "." con il punto di montaggio effettivo.

Il grep elimina l'intestazione e l'awk stampa i kilobyte disponibili sia per le linee split che per quelle non suddivise.

Questo si basa sulla seguente tipo di uscita, potrebbe essere necessario modificare se il vostro UNIX uscite qualcosa di diverso:

 
Filesystem 1K-blocks  Used Available Use% Mounted on 
/dev/sda4  206434224 56965356 139065176 30%/
varrun   1037296  132 1037164 1% /var/run 
varlock   1037296   0 1037296 0% /var/lock 
udev   1037296  68 1037228 1% /dev 
devshm   1037296  12 1037284 1% /dev/shm 
/dev/sda2   93327  43535  44973 50% /boot 
/dev/sdc1  155056484 29417456 117824612 20% /media/extra160 
gvfs-fuse-daemon 
       206434224 56965356 139065176 30% /home/pax/.gvfs 

Answer 2

Probabilmente si desidera il modulo CPAN Filesys::DfPortable.

Answer 3

Si potrebbe utilizzare built-in comandi Linux per ottenere il risultato:

my $vol = "/dev/volume"; 
my $freespace = `df $vol | grep '$vol' | awk '{print \$4}'`; 
# free space in megabytes. 
$freespace = sprintf("%01.2f", $freespace/1024); 

Answer 4

Prova Filesys::DF (sistema POSIX) o Filesys::DfPortable (Windows anche). Entrambi utilizzano il codice nativo per elencare le statistiche di FS.