File Coverage

lib/LEOCHARRE/BogusFile.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	15	20	75.0
condition	3	10	30.0
subroutine	8	8	100.0
pod	2	2	100.0
total	65	77	84.4

package LEOCHARRE::BogusFile;
use strict;
use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @ISA @CHARS $CHARLAST $MAXLENGTH);
use Exporter;
use Carp;
$VERSION = sprintf "%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)/g;
@ISA = qw/Exporter/;
@EXPORT_OK = qw(make_bogus_file arg2bytes);
%EXPORT_TAGS = ( all => \@EXPORT_OK );
@CHARS = (0 .. 9);
$CHARLAST = scalar @CHARS;
$MAXLENGTH = 100000;




sub make_bogus_file {
   my ($path, $size_arg) = @_;
   $path or confess("missing path argument");
   (Carp::cluck("$path already on disk") and return) if -e $path;


   my $size = $size_arg ? arg2bytes($size_arg) : _randlength();


   # size should be in k?

   open(F,'>',$path) or Carp::Cluck("cant open for writing '$path', $!") and return;
   print F _randstring($size);
   close F;

   # cant return size here so simply..
   # it may not have been defined..
   $size || (stat($path))[7];
}


sub _randlength { int( rand($MAXLENGTH) + 1 ) }

sub _randstring {
   my $length = shift;
   $length ||= int( rand($MAXLENGTH) + 1 );

   #print STDERR "randstring() length: $length\n" if $DEBUG;

   my $string;

   for ( 0 .. ($length - 1)){
      $string.=$CHARS[int(rand($CHARLAST))];
   }

   $string;
}


sub arg2bytes {
   defined $_[0] or confess("missing arg");
   $_[0]=~/^\d+$/ and return $_[0];

   my $totalbytes = $_[0];


   #print STDERR "\n\ninitial bytes arg at $totalbytes\n" if $DEBUG;
   $totalbytes=~/^\d/ or confess("invalid size ammount spec $totalbytes");

   my %unit = (
      B => 1,                          # in bytes
      K => 1024,                       # kilobytes
      M => ( 1024 * 1024 ),            # megabytes
      G => ( 1024 * 1024 * 1024 ),     # gigabytes - too big.. ??
   );
   if($totalbytes=~s/([BKMG]{1}).*$//i){
      my $unit = $unit{uc($1)};
      #print STDERR " [$totalbytes] ";
      $totalbytes = int ($totalbytes * $unit);

      #printf STDERR "totalbytes [unit %s] resolved to total bytes: $totalbytes\n", $unit{uc($1)};
   }

   $totalbytes and $totalbytes=~/^\d+$/ or die("invalid size resolved: $totalbytes");

   $totalbytes;
}









1;

__END__