Bonjour à tous,
 
Bon dejà je précise je debute en perl ...
Ensuite je souhaiterais lancer une commande système qui renvoi beaucoup de ligne ..  
Je voudrais récupère ce résultat et afficher les N premières lignes ...
Je ne sais pas du tout comme m'y prendre j'ai effectué ceci :
 
open COMMAND, $command ;  
while (<COMMAND> ) {
      print "$_<br>";
}    
close COMMAND;
 
 
Mais ça ne fonctionne pas ... j'ai rien qui sors ...
 
Merci d'avance !

my @results = `$command`;
print @results[0..5];
 
où les bornes peuvent être modifiés

Ca fonctionne mais ça ne m'affiche que la première ligne du résultat ..

Je pense qu'il faudrait separer les resultats sur le caracètre de fin de ligne, mais je n'ai aucune idée de comment m'y prendre ... Je ne trouve pas de fonction 'split' ou quelque chose comme ça ...

split(/\n/, $foo);
 
sinon fait un print scalar(@results) pour voir combien de ligne la commande te retourne

Non j'ai bien ttes les lignes ...

bin alors il est ou le problème?

bon j'ai avancé mais lorsque je fais print @results[0..3] il ne va pas à la ligne ... et je suppose que je ne peux pas placer un \n au milieu ..

il affiche les 5-6 lignes sur une seule? si c'est ca­...
 
print join("\n", @results[0..5]);

C'est bon j'ai reussi merci pour ton aide