Quel methode à adopter avec une Bdd??

il faudrait donc que tu développe un petit script

je ne sais pas sous quel OS tourne ton serveur principal

open FICHIER,"< monfichier.log"
    or die "Le fichier n'existe pas ! : $!\n";

#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;

my $cgi = new CGI;
my ($block,$soft);

print "Content-type: text/html\n\n";

system(edquota -u)
    or die "Le fichier n'existe pas ! : $!\n";

#Connection à la base de données mysql 
my $db = DBI -> connect (("dbi:mysql:dbname=penst;host=localhost;","root","******"
))
                or die "connection impossible!";

while ($ligne = <FICHIER>){
# récupération des éléments
 ($block,$soft) = split /;/,$ligne;
# et on insere dans la base
  $db->do("insert into utilisateurenst values ('$block', '$soft')");
          or die "pb de requete : $DBI::errstr";
}# fin de traitement de fichier


exit;

edquota -u user | grep "^blabla$"

#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;

my $cgi = new CGI;
my $recup = ` sed -e '1,/-\+/d;/^$/,$d' repquota -v/chemin` 
my ($user1,$used1,$soft1,$hard1,$grace1,$used2,$soft2,$hard2,$grace2);

print "Content-type: text/html\n\n";

#Connection à la base de données mysql avec le module dbd::mysql (conncetion à distance)
$dbh = DBI->connect("DBI:mysql:database=$db;host=$host",
                      $user, $password, {RaiseError => 1});

#Requete sur la base de donnée 
my $query = sprintf("INSERT INTO foo VALUES (%d, %s)",
                      $number, $dbh->quote("name"));
  $dbh->do($query);

while ($ligne = $recup){
# récupération des éléments
 ($user1,$used1,$soft1,$hard1,$grace1,$used2,$soft2,$hard2,$grace2) = split /;/,$ligne;
# et on insere dans la base
  $db->do("insert into client values ('$user1','$used1','$soft1','$hard1','$grace1','$used2','$soft2','$hard2','$grace2')");
          or die "pb de requete : $DBI::errstr";