====== Simuler la consommation mémoire ======

  #!/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 [[http://download.velannes.com/Perl/memoryhog.pl|programme]]