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 only turned on a couple days a year):

    Total Usable Space:  12,177,246,543,872  11340.9G   11.08T
    Total  Used  Space:   9,678,221,062,144   9013.5G    8.80T
    Total  Free  Space:   2,499,025,481,728   2327.4G    2.27T
Percentage Free (Full):                        20.52%  (79.48% full)

^ Generated using the “free” command (“free c: d: e: f: g: h: etc”), piped through “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 the output of the “free” command.Hell, here’s frpost.pl. The formatting is pretty much nuked at this point (here, not in my actual file), but it works:

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

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

Mood: paranoid
Music: Meatjack – Iceman (by Descendents)