1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| #!/usr/bin/perl
use POSIX qw(strftime);
$Time = strftime "%Y%m%d", localtime;
while (<>) {
undef @free;
chomp;
if ( /System information for \\\\(.*)\:/ ) {
$host = $1;
}
if ( /Fixed/ ) {
push @free, split ();
} else {
next;
}
$Volume = $free[0];
$Type = $free[1];
$Format = $free[2];
if ( $#free == 7 ) {
$Size = "$free[3] $free[4]";
$Frees = "$free[5] $free[6]";
$Freep =$free[7];
}
if ( $#free == 8 ) {
$Label = $free[3];
$Size = "$free[4] $free[5]";
$Frees = "$free[6] $free[7]";
$Freep =$free[8];
}
write STDOUT;
}
format STDOUT_TOP =
@<<<<<<<;@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
Date, Hostname, Volume, Label, Size, Frees, Freep
.
format STDOUT =
@<<<<<<<;@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
$Time, $host, $Volume, $Label, $Size, $Frees, $Freep |
Partager