activation de service

Version imprimable

03/11/2008, 09h35
Chicard

activation de service

Bonjour,

je voudrais savoir comment je peux savoir si un service est installé sous Linux est le démarrer le cas échéant et tout cela en perl.

Le service en question est en fait Mysql.

Merci
03/11/2008, 09h47
matafan

La manière de démarrer un service varie d'une distribution à l'autre (en supposant que tu as installé mysql via un package de ta distbib). Fait comme tu ferais à la main.
03/11/2008, 10h21
Chicard

En ligne de commande je sais le faire (sans parler de distribution particulière) mais je ne sais pas comment je peux récupérer l'état d'un service avec des commandes perl dans script et ensuite les traiter.
03/11/2008, 10h42
Arioch

Citation:

Envoyé par Chicard

En ligne de commande je sais le faire (sans parler de distribution particulière) mais je ne sais pas comment je peux récupérer l'état d'un service avec des commandes perl dans script et ensuite les traiter.

J'avais fait ça à une époque chez moi sur mon Linux.

Lance la commande UNIX t'affichant la liste des services tournant actuellement sur ta machine (avec un p'tit grep qui va bien pour ne ressortir que les lignes concernant mysql). Fait travailler les expressions régulières sur le résultat retourné et à toi de jouer ensuite pour savoir s'il faut ou non lancer le démon de mysql

;)

PS : si ça peut attendre, je crois que j'ai encore mon script Perl quelque part à la maison, je ne peux rien dire de concret avant ce soir
03/11/2008, 10h50
matafan

Citation:

Envoyé par Chicard

En ligne de commande je sais le faire (sans parler de distribution particulière) mais je ne sais pas comment je peux récupérer l'état d'un service avec des commandes perl dans script et ensuite les traiter.

Dis nous comment tu fais à la main, on te dira comment faire ça en Perl. Sinon on va perdre du temps à parler dans le vide.
03/11/2008, 10h54
Chicard

Ce serait sympa de voir ton ancien script perl si tu le retrouves en moins de deux jours car plus tard mon projet sera fini.

(Faire un projet en trois jours en formation c'est pas cool :?)

+1 avec Matafan

Retourne nous les éléments suivants STP :

- la syntaxe exacte de la commande que tu tapes dans une console UNIX pour afficher la liste des process mysql actifs
- le résultat (fais un copié/collé) retourné dans la console
- la syntaxe de démarrage de ton sgbd

Edit :

Pour t'aider un peu, voici un rapide bout de code à mettre à jour selon tes besoins bien évidemment :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 use strict; use warnings; eval { $_ = `ta commande UNIX pour afficher les services tournant ICI`; }; die("pb en utilisant la commande UNIX : $@\n") if ($@); if ($_ =~ /mysql/i) # à peaufiner éventuellement { print "Le démon tourne\n"; } else { print "Démon non lancé\n"; system("commande mysql pour lancer le SGBD"); }
Les caractères ` dans la ligne $_ = ` ... s'obtiennent avec la touché 7 du pavé alphanumérique de ton clavier.

Code:

1
2
3
4
5
6
7
grp3-proxy:~# ps aux | grep mysql
root      3627  0.0  0.1   3892  1304 ?        S    11:13   0:00 /bin/sh /usr/bin/mysqld_safe
mysql     3758  0.0  1.6 127392 16180 ?        Sl   11:13   0:00 /usr/sbin/mysqld --basedir=/usr --datadir=/var/lib/mysql --user=mysql --pid-file=/var/run/mysqld/mysqld.pid --skip-external-locking --port=3306 --socket=/var/run/mysqld/mysqld.sock
root      3760  0.0  0.0   3004   608 ?        S    11:13   0:00 logger -p daemon.err -t mysqld_safe -i -t mysqld
root      3790  0.0  0.1   3500  1212 tty1     T    11:22   0:00 man mysql
root      3835  0.0  0.1   3500  1208 pts/0    T    11:43   0:00 man mysql
root      3890  0.0  0.0   3144   768 pts/0    S+   12:10   0:00 grep mysql

Ceci est sous Debian. Manque de chance Debian ne possède pas la commande service nom_du_service status que l'on pet trouver sous CentOS (découlant de RedHat)

Pour la syntaxe de la commande démarrage, je la connais pas encore en débian, désolé.

Code:

1
2
 /etc/init.d/mysql
Usage: /etc/init.d/mysql start|stop|restart|reload|force-reload|status

Ok, alors en adaptant mon code, ça doit donner ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
 
eval
{
	$_ = `ps aux | grep mysql`;
};
die("pb en utilisant la commande UNIX : $@\n") if ($@);
 
if ($_ =~ /mysqld .+basedir.+user=mysql/i)
{
	print "Le démon tourne\n";
}
else
{
	print "Démon non lancé\n";
	system("mysql start");	# pas sûr de la commande ici
}

A tester :)

03/11/2008, 13h19
Chicard

Merci pour l'aide apporté. Je ne ferme pas le sujet pour l'instant car je dois faire des manip avant de voir si cela fonctione.

Arioch au vu du post précédent le tiens je pense que la commande est:

system("/etc/init.d/mysql start");

mais comme toi ce n'est pas sûr.
03/11/2008, 13h27
Arioch

Citation:

Envoyé par Chicard

Arioch au vu du post précédent le tiens je pense que la commande est:

system("/etc/init.d/mysql start");

mais comme toi ce n'est pas sûr.

Il me semble me souvenir que c'est cette commande là sous mon ancienne Mandrake 10.1

J'ai retrouvé mon code :yaisse2:

Code:

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
use strict;
 
# Ne doit etre lancé qu'en root !
chomp($_ = `whoami`);
if ($_ ne "root")
{
	print "Ce programme doit etre lancé par \"root\" et non par \"$_\" !\n";
	exec ("su");
}
 
# On vérifie si le démon tourne déjà ou pas
$_ = `ps ax | grep mysql`;
if ($_ && $_ =~ /\/usr\/sbin\/mysqld/)	# si le démon est actif, on l'arrete
{
	eval { $_ = `/etc/rc.d/init.d/mysql stop`; };
	die "Eval : erreur d'arret du démon\n" if ($@);
	print "\a$_";
}
else	# lancement du démon
{
	eval { $_ = `/etc/rc.d/init.d/mysql start`; };
	die "Eval : erreur de lancement du démon\n" if ($@);
	print "\a$_";
}
exit;

Mon script me servait à l'époque pour démarrer ou couper le démon automatiquement.

04/11/2008, 14h10
Chicard

Je viens de voir que je pouvais voir les champs de ma table avec les commandes SQL mises dans Perl.

Je voudrais savoir s'il est possible d'avoir le même style de présentation ( ASCII style ;) ) que celui de cette page à la section D ou plus bas toujours en passant par Perl.
04/11/2008, 14h47
Arioch

Pour répondre à ta question (à moins que je ne sois hors sujet), tu peux piloter beaucoup de choses de ta base de données en Perl en utilisant le module DBI.pm dans ton script Perl.

Tu pourrais, depuis un script Perl, te connecter à ta BDD, lui poser des requètes SQL + ou - complexes, récupérer le résultat, travailler sur ce résultat (ou pas :mrgreen: ), mettre à jour ta base, etc.

PS : maintenant, à partir d'une console UNIX, il me semble qu'il est possible, en une seule ligne de commande, de se connecter à la bdd, lui poser une question simple du style "show databases" ou "show tables" et d'avoir le résultat dans la console en retour. Si c'est le cas, alors oui, en Perl tu pourras exécuter cette commande et en récupérer ce qu'elle t'aura retourné. Un peu comme dans le script que j'ai publié hier soir ;)
04/11/2008, 15h01
Chicard

Tu as du répondre quand je modifiais mon message (ou pas). Pour le show tables , j'ai trouvé la "solution" et j'ai bien mes champs qui s'affiche dans la console.

Si tu as déjà utilisé mysql en console sous linux quand tu fais un show tables tu te retrouves avec un tableau "desiné" en ASCII (lignes =_ et colonnes = |).

C'est le style d'affichage que je cherche à avec mon show tables sous Perl car il m'affiche tous mes champs les uns en dessous des autres et c'est pas agréables à voir (en même temps j'en ai pas 15000 j'en ai que 5 pour mes tests mais faut savoir être exigeant)
04/11/2008, 15h06
Arioch

Citation:

Envoyé par Chicard

C'est le style d'affichage que je cherche à avec mon show tables sous Perl car il m'affiche tous mes champs les uns en dessous des autres et c'est pas agréables à voir (en même temps j'en ai pas 15000 j'en ai que 5 pour mes tests mais faut savoir être exigeant)

Montre nous ton code dans lequel, via Perl, tu fais ton show tables et tu récupères le résultat :P

Et sinon, quels vont être tes autres besoins vis-à-vis de ta BDD MySql ?

Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#! /usr/bin/perl
 
use DBI;
use strict;
 
my $db = "DBI:mysql:informations_parc:localhost";
my $utilisateur = 'root';
my $mdp = 'administrateur';
 
my $dbconnect = DBI->connect($db, $utilisateur, $mdp);
 
my $query="describe test";
my $sql=$dbconnect->prepare($query);
$sql->execute();
while (my $row=$sql->fetchrow_arrayref)
        {
         print join("\t",@$row),"\n";
        }
 
$dbconnect->disconnect;
exit;

et le résultat

Code:

1
2
3
4
5
cpu     varchar(255)    NO
carte mere      varchar(255)    NO
catre video     varchar(255)    NO
carte son       varchar(255)    NO
alimentation    varchar(255)    NO

Mon retour et bon mais je préfèrerais avoir un retour qui ressemble à ça;

Code:

1
2
3
4
5
6
7
8
9
+--------------+--------------+------+-----+---------+-------+
| Field        | Type         | Null | Key | Default | Extra |
+--------------+--------------+------+-----+---------+-------+
| cpu          | varchar(255) | NO   |     | NULL    |       |
| carte mere   | varchar(255) | NO   |     | NULL    |       |
| catre video  | varchar(255) | NO   |     | NULL    |       |
| carte son    | varchar(255) | NO   |     | NULL    |       |
| alimentation | varchar(255) | NO   |     | NULL    |       |
+--------------+--------------+------+-----+---------+-------+

Ceci ne servira que pour mes test ensuite ça disparaitra de mon code.

Ce que je vais faire c'est lire un fichier ligne par ligne faire un imoprt dans mysql des divers champs (code Perl) puis faire de la consultations de tables par requete sql (hors code Perl)

04/11/2008, 15h29
Arioch
Ok, il va te falloir changer ton print join (...) en printf dans ton code pour pouvoir le formater comme tu le désires.

Pour te donner un petit exemple :
Code:

1 2 3 4 5 6 @_ = ("cpu","varchar(255)","NO"); print "| "; printf("%10s | ", $_[0]); printf("%15s | ", $_[1]); printf("%5s |\n", $_[2]);
Produit à l'affichage ceci :

Code:

| cpu | varchar(255) | NO |
05/11/2008, 08h52
Chicard

Merci pour vos aides.