en utilisant PHP pour afficher la sortie d'un script perl

Question

Je suis nouveau sur PHP et j'ai un script perl qui fonctionne essentiellement dans les serveurs distants, un fichier journal et affiche certaines informations du fichier journal dans STDOUT. Je veux que cela soit maintenant visible en tant que page web, donc je regarde PHP pour afficher cette sortie. Je veux juste voir la même sortie que celle que je vois sur le terminal pour le moment. L'objectif serait alors d'améliorer le formatage/présentation de ces données.

En outre, toutes les idées/exemples sur la meilleure approche pour formater la sortie via PHP serait grande. Merci!!

Voici le script perl: (exécuté en passant quelques arguments)

Usage: ./statsinfo.pl Jul 26 2010 /var/log/server.log server1 

my($mon,$day,$year,$file,$server) = @ARGV; 
my $regex_flag = 0;     
splice(@ARGV, 0, 4,());    
foreach my $server (@ARGV) {  
    print "===================================================================================\n"; 
    print "REPORTING SUMMARY for BACKUP SERVER : $server\n"; 
    open(my $fh,"ssh $server cat $file |") or die "can't open log $server:$file: $!\n"; 
    while (my $line = <$fh>) { 
     if ($line =~ m/.* $mon $day \d{2}:\d{2}:\d{2} $year:.*(ERROR:|backup-date=|backup-size=|backup-time=|backup-status)/) { 
      print $line; 
      $regex_flag=1; 
     } 
    } #end while loop 
     if ($regex_flag==0) { 
      print "NOTHING TO REPORT FOR $server: $mon $day $year \n"; 
     } 
    $regex_flag=0; 
    close($fh); 
} 

Answer 1

utilisation: exec ("votre commande (exécution du script perl)", sortie $);

Les données écrites dans stdout doivent être dans la variable de sortie $. Rappelez-vous que le serveur http attend cette commande jusqu'à la fin de votre script, alors soyez attentif à l'attente depuis l'entrée au clavier, etc.

Answer 2

Juste pour montrer la sortie, il n'y a pas vraiment besoin de PHP ici. Redirigez la sortie Perl vers un fichier que le serveur Web peut traiter de manière statique et accédez-y avec un navigateur.