Forums PostgreSQL.fr

 
sub par_default{
	my $valeur=$_[0];
	if ($valeur eq "" or $valeur == 0){
		my $valeur="default";
		return $valeur;
	}
	else {
		return $valeur;
	}
}

 		
                        while ($ligne=<NEW_DONNE>){
			chomp($ligne);
			my ($module,$elem,@rest)= split /;/,$ligne;
			if ($module eq "" or $elem eq""){
				print "Les informations sont manquante \npas d'insertion dans la base pour la ligne $ligne \n";
			}
			else {
				my $req1="select nom_module from description_module where nom_module=?";
				my $modul_existe=$db->prepare($req1);
				$modul_existe->execute($module);
				my $test=$modul_existe->rows;
				if ($test == 0){
					print "$module n'existe pas \n";
					#on crée
					if ( $elem =~ /^([0-9]{1,3}\.){3}[0-9]{1,3}$/){
						if (&adresse_valide($elem)){

							my ($surv,$freq_ex,$periode,$freq_attente)= @rest;
							$surv = &par_default($surv);
							$freq_ex = &par_default($freq_ex);
							$periode = &par_default($periode);
							$freq_attente = &par_default($freq_attente);

                                                        my $req_add_module="insert into description_module (nom_module, surveillance_recherche, requence_d_execution_du_module, Periode_d_attente_entre_deux_executions, Frequence_d_interogation_du_module, Adresse_ip) VALUES (?,?,?,?,?,?)";
                                                        my $add_module=$db->prepare($req_add_module);
                                                        print "$module,$surv,$freq_ex,$periode,$freq_attente,$elem\n";
                                                       $add_module->execute($module,$surv,$freq_ex,$periode,$freq_attente,$elem);


							$add_module->finish();
						}
						else{

							print "adresse non valide, l'ajout dans la base impossible \nVeuiller indiquer une adresse conforme pour la ligne $ligne \n";
						}
					}