require PERL

require PERL - Perl - Programmation

Marsh Posté le 07-06-2006 à 17:23:40    

Salut tout le monde,  
 
je fais un programme en perl avec le module CGI et j'interagis avec une base de données...
 
J'aimerais ne pas réécrire chaque fois le même code au debut de chacun de mes fichiers perl. Par exemple,tous mes fichiers commencent par :  
 
#!/usr/bin/perl
 
use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Date::Calc qw(:all);
 
my $dbname = 'Projet';
my $user = 'user';
my $pass = 'pass';
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", $user, $pass) or die DBI::errstr;
 
y'a t-il un moyen d'ecrire ces lignes dans un autre fichier et de tout importer dans le fichier principal ?
 
g essayé require "fichier.pl" mais ca ne marche pas !

Reply

Marsh Posté le 07-06-2006 à 17:23:40   

Reply

Marsh Posté le 07-06-2006 à 20:28:23    

Salut,
 
tu crées un module et dans ton script tu peux utiliser
 

Code :
  1. use lib "/chemin/vers/ton/module";
  2. use Module::DBConnect; # dans /chemin/vers/ton/module/Module on trouve le module DBConnect.pm


 
Voilà mon exemple. Pour ne par répeter les même lignes j'ai créé 3 fonctions et je les appelles.
 

Code :
  1. #! /usr/bin/perl -w
  3. package Module::DBConnect;
  4. require Exporter;
  6. our @ISA = qw(Exporter);
  7. our @EXPORT = qw(connexion selection insertion);
  9. use strict;
  10. use DBI;
  12. # utilisation : connexion("nom_base" )
  13. sub connexion {
  14.         my $db = $_[0];
  15.         my $db_connexion = DBI->connect("DBI:mysql:database=$db;host=localhost;mysql_socket=/tmp/mysql.sock",
  16.                                      "root","xxxxxxxx",{ RaiseError => 1 } );
  17.         return $db_connexion;
  18. }
  20. # utilisation : selection("nom_base","nom_table",tableau_champs)
  21. sub selection {
  22.         my ($db,$tbl,@champ) = @_;
  23.         my $champ;
  24.         if(@champ){
  25.           if(@champ==1){
  26.            $champ=$champ[0];
  27.           }else{
  28.            $champ = join ",", @champ;
  29.           }
  30.         }else{
  31.          $champ='*';
  32.         }
  33.         my $db_ = connexion($db);
  34.         my $query = $db_->prepare("SELECT $champ FROM $tbl" );
  35.         return $query;
  36. }
  38. # utilisation : insertion("nom_base","nom_table",reference tableau_champs, reference tableau_valeurs)
  39. # utilisation : insertion("nom_base","nom_table",\tableau_champs,\tableau_valeurs)
  40. sub insertion {
  41.         my $db  = connexion(shift @_);
  42.         my $tbl = shift @_;
  43.         my $chp = shift @_;
  44.         my $val = shift @_;
  45.         my ($champ,$valeur);
  47.         if (ref($val)){
  48.          foreach(@$val) {
  49.                 $_=$db->quote($_);
  50.          }
  51.         }else{ $val=$db->quote($val) }
  53.         if(ref($chp)){
  54.                 $champ  = join ",", @$chp;
  55.         }else{ $champ = $chp }
  57.         if(ref($val)){
  58.                 $valeur = join ",", @$val;
  59.         }else{ $valeur = $val }
  61.         $db->do("INSERT INTO $tbl ($champ) VALUES ($valeur)" );
  62. }


 
et le script ou j'utilise le module

Code :
  1. #! /usr/bin/perl -wT
  3. use CGI;
  4. use lib "/home/cgibin/cgi-bin";
  5. use Module::DBConnect;
  7. my $cgi=new CGI;
  8. my $mysql_sock='/tmp/mysql.sock';
  10. my $cmd      = $cgi->param('cmd')       ;
  11. my $question = $cgi->param('question')  ;
  12. my $reponse  = $cgi->param('reponse')   ;
  13. my $exemple  = $cgi->param('exemple')   ;
  15. my @valeurs = ($question,$reponse,$exemple);
  16. my @champs = qw( q r ex );
  18. #alter table message convert to character set utf8;
  19. #set character set utf8;
  20. #alter table nom_table auto_increment=0
  22. my $db_;
  23.         if($reponse eq "" ){
  24.                 insertion('chap_cmd_question',$cmd,'question',$question);
  25.         }else{
  26.                 insertion('commandes_linux',$cmd,\@champs,\@valeurs);
  27.         }

C'est juste un exemple. Lit plutôt la doc pour les modules.
 
lami20j


Message édité par lami20j le 07-06-2006 à 20:31:43
Reply

Marsh Posté le 07-06-2006 à 21:02:43    

si tu veux importer des fonctions (comme pour CGI) ou utiliser un pragma (comme strict) alors il te faut normalement explicitement les user dans ton module.
Mais il existe tout de meme une solution, Toolset:
http://search.cpan.org/~dagolden/ToolSet

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed