Récupérer des variables Perl dans un script PHP
Bonjour à tous.
Malgré mes efforts, je n'ai pas trouvé d'information limpide sur ce que je recherche (probablement que ce que je cherche est un peu trop tordu)
Je code en PHP.
J'ai ponctuellement besoin de faire appel à un script PERL (langage que je ne maitrise pas) dans un de mes scripts.
J'aurais aimé savoir s'il était possible de récupérer des variables de PERL dans mon script PHP (et comment :wink: ?)
Après de nombreuses recherches, j'ai trouvé le moyen d'exécuter PERL depuis un programme PHP via la commande suivante :
Code:
1
2
3
4
|
<?php
exec("../bin/mon_perl.cgi");
?> |
Le script PERL (mon_perl.cgi) quant à lui se présente ainsi :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
`quota | tail -n1` =~ / +(\d+) +(\d+) +(\d+)/;
my $used_Ko = sprintf "%d", $1;
my $espace_utilise = sprintf "%.2f", ($1)/1024;
my $total_Ko = sprintf "%.0f", $3;
my $espace_total = sprintf "%d", ($3)/1024;
my $remain_Ko = sprintf "%.0f", $total_Ko - $used_Ko;
my $remain_Mo = sprintf "%.2f", ($total_Ko - $used_Ko)/1024;
my $pourcentage_disque = sprintf "%.2f", ($1/$3)*100; |
Ce code permet de connaitre les informations relatives à l'espace disque total/utilisé/restant sur mon serveur.
En PERL, les variables sont déclarées par
PHP est-il capable de récupérer la variable initialisée dans PERL ?
Merci de m'avoir prété attention jusqu'au bout (pour ceux qui lisent ces mots :roll: et qui ont la double compétence PHP/PERL)
Barabath
