Discussion :

[P3dr075]

Bonjour à tous,

Je suis nouveau sur Perl et j'aimerais savoir s'il est possible de rediriger la console d'une commande system()
dans un log plutot qu'a l'ecran. Pour logguer les infos j'utilise Log4perl. Voici mon bout de code :

Code :

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

1
2
 
system("sha256sum $backupdir/$databases-$timeStamp.sql.gz | tee $backupdir/$databases-$timeStamp.sql.gz.sha256sum");

ce que je voudrais rediriger c'est l'output de la commande dans mon fichier de log

Est ce possible ?

Merci à vous,

[JeanMi3000]

oui c'est possible, il existe plusieurs possibilités :
https://stackoverflow.com/questions/...a-file-in-perl

(pas tout lu) : https://www.perlmonks.org/?node_id=631760

[Puppet_Master]

Bonjour.


La fonction system() permet de lancer une commande et de récupérer l'état de sortie de celle-ci. (un entier en général)
Pour collecter la sortie d'une commande, il faut utiliser soit l'opérateur qx{} soit ``. Exemple:

Code perl :

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
use Modern::Perl;
use Data::Printer;
 
### lancer une commande systeme:
 
# recup etat de sortie de la commande
my @sys = system( 'ls -l' );
p @sys;
 
# recup la sortie de la commande avec opérateur qx{}:
my @qx = qx{ls -l};
p @qx;
 
# recup la sortie de la commande avec opérateur ``:
my @app = `ls -l`;
p @app;

PS Si besoin les accolades de qx peuvent être remplacées par autre chose, comme tous les opérateurs q...

[P3dr075]

@Puppet_Master et @ JeanMi3000 Merci pour vos réponses j'ai reussi à faire ce que je voulais grace a vos conseils

Merci à vous