Discussion :

[tintin22]

Salut à tous,

Je voudrais recuperer la sortie d'une commande linux avec freepascal, du meme genre que ce que fait la function shell_exec du php :
$output = shell_exec('ps -A');

Merci d'avance pour votre aide.

[Ultima]

Bonjour,
Je ne sait pas si cela va répondre à ta question, mais moi, quand je veux envoyer un élément à un programme, j’utilise la barre "|".
Exemple :
Voici le programme trouver_nbr,
il demande à l’utilisateur d’entrer un nombre entier, ensuite, il demande à l’utilisateur d’entrer une liste de nombre (le premier élément de la liste donne le nombre d’éléments dans la liste), enfin il dit combien de fois il à détecté le nombre donné.

Code :

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
program trouver_nbr;
var
  nbr, nbr_in, nb_elem, i, iteration : INTEGER;
begin
  iteration:= 0;
  writeln('Votre nombre:');
  readln(nbr);
  writeln('Votre liste (le premier element correspont aunomre total d''element):');
  read(nb_elem);
  for i:= 1 to nb_elem do
  begin
    read(nbr_in);
    if nbr_in = nbr then inc(iteration);
  end;
  writeln('iteration = ',iteration);
end.

Voici un fichier contenent des nombres séparés par un espace (liste_mot.txt).

6 54 -65 -666 669 842 723
le premier nombre est 6, il y a donc 6 nombres

Sous Linux;
je cherche le nombre négatif -666 dans mon fichier
commande:
[ultima@localhost Documents]$ (echo -666 ; cat liste_mot.txt ) | ./trouver_nbr

[Clandestino]

Voici un tutoriel sur le sujet dans le wiki de Lazarus :
http://wiki.lazarus.freepascal.org/E...al_Programs/fr