#!/usr/bin/perl                                            
#                                                          
# Programme de simulation de charge memoire                

print "Entrez taille maxi en Go : ";
chop($max = <STDIN>);

print "Par paquets de quelle taille en Mo pour arriver a $max Go ? : ";
chop($step = <STDIN>);

print "Reservation de $max Go de memoire par etapes de $step Mo\n";

for ($i=0; $i < ($max * 1024 / $step); $i++) {
      push @_,"x" x ($step * 1024 * 1024);
      $size = ($i + 1) * $step;
      if ($size < 1024) {
              $unit = "Mo";
      }
      else {
              $unit = "Go";
              $size = $size / 1024;
      }
      print "$size $unit\n";
      sleep(1);
}
sleep(3600);

Télécharger le programme