Moving files-that-I-wouldn’t-mind-losing to new drive as we speak. New total stats (less 80G from 1999 computer in bedroom that is usually turned off):

    Total Usable Space: 10,655,142,125,568   9923.4G    9.69T
    Total  Used  Space:   7,471,858,606,080  6958.7G    6.80T
    Total  Free  Space:   3,183,283,519,488  2964.7G    2.90T
Percentage Free (Full):                        29.88%  (70.12% full)

^ Generated using the “Free” command (“free c: d: e: f: g: h: etc”, I have a “fr.bat’ that is basically free followed by every valid drive letter), and then passed through to “frpost.pl”, a perl script that I use to postprocess the free command, giving gigabyte/terabyte conversions, and a multi-drive total at the bottom. Go past the jump for the code to that perl script, it’s quite useful for prettying up windows output to get a nice total like this.

Hell, here’s frpost.pl:

##
#!/usr/local/bin/perl

# Volume in drive C is STORM -- 40    Serial number is 463E:0E06
# 40,968,290,304 bytes total disk space
# 31,206,539,264 bytes used
# 9,761,751,040 bytes free
#
# Volume in drive D is STORM -- 60    Serial number is 2863:0DE6
# 61,452,451,840 bytes total disk space
# 46,054,440,960 bytes used
# 15,398,010,880 bytes free

my $showreald1;

while ($line=<>) {
 chomp $line;

 next if $line =~ /in use$/;

 $showreald1=0;
 if ($line =~ /([0-9,]+) bytes total disk space/i) {
 $total = $1;
 $showreald1=1;
 }#endif

 if ($line =~ /([0-9,]+) bytes used/i)             {
 $used  = $1;
 $showreald1=1;
 }#endif

 if ($line =~ /([0-9,]+) bytes free/i)             {
 $free  = $1;
 $showreald1=1;
 }#endif

 print $line;
 if ($showreald1) {
 my $reald1=$1;
 $reald1 =~ s/,//g;
 #print "reald1 is $reald1\n";
 $reald1 = sprintf("%3.1f",($reald1/1024/1024/1024))."G";
 print " ($reald1)";
 }
 print "\n";

 $totalnice = &nocomma($total);
 $usednice  = &nocomma($used);
 $freenice  = &nocomma($free);
 #print "total is $total\n";

 if ($totalnice) {
 $pctfull = $usednice / $totalnice * 100;
 $pctfree = $freenice / $totalnice * 100;
 }

 $pctfull = sprintf("%2.1f",$pctfull);
 $pctfree = sprintf("%2.1f",$pctfree);

 if ($line =~ /([0-9,]+) bytes free/i) {
 print sprintf("%27s","$pctfull\% full / $pctfree\% free\n");
 $totaltotalnice += $totalnice;
 $totalusednice  += $usednice;
 $totalfreenice  += $freenice;
 }
}#endwhile

$fullpct = sprintf("%2.2f",($totalusednice / $totaltotalnice * 100)) . "\%";
$freepct = sprintf("%2.2f",($totalfreenice / $totaltotalnice * 100)) . "\%";

my $USE_TERABYTES=0;
if ($totaltotalnice/1024/1024/1024) { $USE_TERABYTES=1; }

print "\n";
print "\t    Total Usable Space: ".sprintf("%19s",&comma($totaltotalnice))." ".sprintf("%8.1f",($totaltotalnice/1024/1024/1024))."G";
#if (($totaltotalnice/1024/1024/1024) > 1) { print "" . sprintf("%8.2f",($totaltotalnice/1024/1024/1024/1024)) . "T"; }
if ($USE_TERABYTES) { print "" . sprintf("%8.2f",($totaltotalnice/1024/1024/1024/1024)) . "T"; }
print "\n";
print "\t    Total  Used  Space: ".sprintf("%19s",&comma($totalusednice) )." ".sprintf("%8.1f",($totalusednice /1024/1024/1024))."G";
if ($USE_TERABYTES) { print "" . sprintf("%8.2f",($totalusednice/1024/1024/1024/1024)) . "T"; }
print "\n";
print "\t    Total  Free  Space: ".sprintf("%19s",&comma($totalfreenice) )." ".sprintf("%8.1f",($totalfreenice /1024/1024/1024))."G";
if ($USE_TERABYTES) { print "" . sprintf("%8.2f",($totalfreenice/1024/1024/1024/1024)) . "T"; }
print "\n";
print "\tPercentage Free (Full): ".sprintf("%23s","") . sprintf("%7s","$freepct  ($fullpct full)") . " " . "\n";

##########################################
sub nocomma {
my $s = $_[0];
$s =~ s/,//g;
return($s);
}#endsub nocomma
##########################################
#############################################
sub comma {
my $s = $_[0];
while ($s =~ /[0-9]{4}/) {
 $s =~ s/([0-9])([0-9]{3})$/$1,$2/g;
 $s =~ s/([0-9])([0-9]{3}),/$1,$2/g;
}
return($s);
}#endsub comma
#############################################

##

Mood: file-movey
Music: Screeching Weasel – Holy Hardcore