Discussion :

[Joelindien]

Salut

Explications :

Je voudrais qu'un script perl déclenche un backup de deux tables avec une condition et ce toutes les 24 heures.

Ces fichiers devront être en CSV et devront être backupé dans un répertoire sur un serveur FTP accessible donc...

Pensez vous que celà est possible et si oui comment ?

Merci de votre coup d'pouce

[Jedai]

Oui, ça devrait être très possible, en fait je ne vois pas très bien ce que tu veux demander ? Perl a un très bon support de MySQL et comme c'est un manipulateur de fichier né, il n'y a absolument aucun problème !
Tu utilise un cron pour programmer son lancement et voilà....

[Joelindien]

Je suis content de voir que toi aussi tu penses ça possible

Mais tu n'aurais pas la solution ! lol

[Arioch]

le bout de code suivant exporte le contenu d'une table TABLE_TOTO dans un fichier CSV (séparateur = ";" ) table_toto.csv :
$serveur, c'est ta connexion au SGBD.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
open(CSV, ">table_toto.csv") or die "err créa .csv : $!";
$requete = $serveur->prepare("select * from TABLE_TOTO");
$requete->execute();
while (@_ = $requete->fetchrow_array) {
    print CSV join(";", @_);
    print CSV "\n";
}
close(CSV);

Pour une gestion via FTP, voir peut être du côté du module Net::Telnet.

[Joelindien]

Ok c'est déjà pas mal ;à Merci

Si jamais qqun y arrive en perl c'est vraiment cool !

[Joelindien]

ça marche pô

Voila ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
require("adm/conf/conf.php3");
 
 
open(CSV, ">table_toto.csv") or die ("err créa .csv : $!"); 
$requete = $sql_serveur,$sql_user,$sql_passwd->prepare("select * from TABLE_TOTO"); 
$requete->execute(); 
while (@_ = $requete->fetchrow_array) { 
    print CSV join(";", @_); 
    print CSV "\n"; 
} 
close(CSV);

Et voilà l'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Parse error: parse error, unexpected ',' in e:\websites\eba\backup.php3 on line 7

Qu'est ce qu'il va pas ?[/code]

[Arioch]

Heu, question : tu programmes en Perl ou en PHP ??? Parce que si c'est du PHP (comme en témoigne ton require en début de code), tu n'es pas dans la bonne section, ici c'est Perl

[Joelindien]

Ah merde
La honte

Non mais je connais rien en pearl, le seul truc que j'ai besoin c'est d'un script qui fasse ce que j'ai expliqué au dessus et comment le faire tourner.

Tu penses que tu peux m'aider ?

Car je vois pas comment ça se déclenche etc..

[Arioch]

Tu penses que tu peux m'aider ?

En PHP, non
En Perl, je ne sais pas comment gérer l'envoi de tes 2 csv via ftp

[Joelindien]

Et en envoi par mail ?
Ou en download direct quand on se pointe sur la page ?

En c'est pas trop de l'envoi par FTP, c'est juste que ça sauvegarde le fichier csv dans un rep accessible par du ftp

[Arioch]

Et en envoi par mail ?
Ou en download direct quand on se pointe sur la page ?

Jamais géré d'envois de mail via Perl

En c'est pas trop de l'envoi par FTP, c'est juste que ça sauvegarde le fichier csv dans un rep accessible par du ftp

Créer un fichier en local dans un répertoire donné, fastoche en Perl comme en PHP

On manque d'infos sur ce qui concerne ton blème.

1) Quel est le SGBD que tu utilises ?
2) Quel OS ?
3) Le prog que tu veux doit-il être stocké sur le même ordi que le SGBD ?
4) As-tu Perl ou PHP d'installé ?

[Joelindien]

1) Quel est le SGBD que tu utilises ?
2) Quel OS ?
3) Le prog que tu veux doit-il être stocké sur le même ordi que le SGBD ?
4) As-tu Perl ou PHP d'installé ?

1) J'utilise MySQL 3.23
2) Linux Red Hat sur un Sun Cobalt Raq 550 ou 551 je sais plus exactement
3) Oui
4)Oui les deux sont installé

[Arioch]

Ok, tout ce que je peux faire, c'est un script Perl qui exporte tes 2 tables dans 2 fichiers csv distincts.

Il te restera juste à insérer le script dans les tâches périodiques de ton OS (crontab) et voilà.

Tu veux ?

[Joelindien]

Oui je veux bien Merci

Comment on touche à la crontab ?

[Arioch]

laisse moi encore 10 min et je t'apporte le prog sur un plateau

[Joelindien]

C'est vraiment cool de ta part ! Merco beaucoup

[Arioch]

Voilà un bout de code qui ne fait que ça :
- se connecte à la BDD MySql
- exporte les enregistrements de 2 tables

Il est tiré d'un code récent sur lequel je bosse (avec Perl + MySql 3.23 + Mandrake 9.0).

Pour faire fonctionner ce code, il faudra :
- faire un copié-collé de tout le code dans un fichier à enregistrer avec extension ".pl" (pas obligatoire mais bon)
- changer les droits du fichier pour qu'il soit exécutable (chmod +x fichier.pl)
- attribuer les valeurs correctes de ta base dans le programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl -w
# Exporte le contenu de 2 tables MySql dans 2 fichiers CSV
# Basé sur Perl version 5.8.0 et MySql 3.23
 
# PRAGMAS/LIBRARIES
use strict;
use DBI;
 
# CONSTANTES
use constant	DATABASE	=> "DBI:mysql:TOTO";	# remplacer TOTO par vrai nom de la bdd
use constant	USER		=> "TOTO";				# idem pour le nom du user
use constant	PASSWD		=> "TOTO";				# idem pour son mot de passe
 
# VARIABLES
my $dbh;					# future connexion à MySql
my $requete;				# pour traiter requètes SQL
my %Table;
	$Table{1} = "TRUC";		# à remplacer par les vrais noms des Tables ...
	$Table{2} = "MUCHE";
my %FicCsv;
	$FicCsv{1} = "export$Table{1}.csv";
	$FicCsv{2} = "export$Table{2}.csv";
my $FicLog = "export.log";				# fichier log pour suivre un peu le déroulement du prog
 
# connexion à MySql + création log
open(STDERR, ">$FicLog") or die "err création $FicLog : !$\n";
if (! ($dbh = DBI->connect(DATABASE, USER, PASSWD))) {
	die "Connexion à MySql [ERREUR] : $!\n";
}
 
# exports des tables
for (my $i = 1; $i <= 2; ++$i) {
	open(CSV, "$FicCsv{$i}") or die "err création $FicCsv{$i} : !$\n";
	warn "export de table $Table{$i} dans fichier $FicCsv{$i}\n";
	$requete = $dbh->prepare("select * from $Table{$i}");
	$requete->execute();
	if ($DBI::errstr) {
		die "impossible de récup les enregistrements : $DBI::errstr\n";
	}
	while (@_ = $requete->fetchrow_array) {
		print CSV join(";", @_);
		print CSV "\n";
	}
	close(CSV);
	warn "export terminé\n";
}
 
# on se déco du SGBD en fin de traitement
close(STDERR);
$dbh->disconnect();

En visuel, ça doit être mal indenté mais bon, en principe il marche.

Voili voilou !

[Arioch]

Dernier ajout : pour le nom du user, du mot de passe comme le nom des tables, respecte bien la casse, table "TOTO" est différente de table "toto" !

Pour lancer ce prog en auto périodiquement, poste une question là dessus en rubrique Linux

[Joelindien]

Ok merci beaucoup

[Joelindien]

Bon bah j'ai le message d'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
 Can't locate DBI.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 /usr/lib/perl5/site_perl .) at ./eba_backup.pl line 7.