#!/usr/bin/perl

# ---- sizer.pl
# no comment.
# 
# 					White_E <white_e@iname.com>
# 					http://ttj.virtualave.net/

($file,$s1z3) = @ARGV;
die "usage: $0 <file> <size>\n" if (!$s1z3);
open(F,"+<$file") || die "ERR: open()\n";
while (<F>) { $size += length($_); }
$add = $s1z3 - $size;
print "original file size: $size\n";
die "ERR: this script can't reduce the file size.\n" if ($add<0);
print "adding $add spaces...\n";
for ($i=0;$i<$add;$i++) { print F " "; }
close(F);
print "done.\n";
exit;