Discussion :

[d1g-2-d1g]

Bonjour,

j'ai un programme Perl qui et sensé ne rien faire si on lui donne rien sur l'entrée standard dès le début.

Tout fonctionne bien lorsque je le fourni (par un cat par exemple) mais si je ne lui passe rien j'ai l'impression qu'il tourne en boucle attendant que je saisisse quelque chose au clavier...

Ce que je voudrais c'est vérifier dès le début si quelque chose est sur l'entrée standard...

Merci d'avance pour votre aide

[Arioch]

Bonjour,

peux-tu nous montrer les premières lignes de ton code stp ? En particulier, la ou les lignes qui traitent de l'entrée standard.

Merci

[d1g-2-d1g]

Ca donne un truc du genre :

Code :

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

1
2
3
4
5
6
7
 
my @in = <STDIN>;
 
foreach(@in)
{
    #traitement...
}

[lami20j]

Salut,

Ca donne un truc du genre :

Code :

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

1
2
3
4
5
6
7
 
my @in = <STDIN>;
 
foreach(@in)
{
    #traitement...
}

Comme tu stockes les données depuis l'entrée standard dans un tableau tu n'as qu' faire un Ctrl-D pour arrêter la saisie et ensuite traiter les éléments de ton tableau.
Ton tableau n'as pas une taille prédefini donc on attends toujours une saisie.
Par exemple

Code :

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

1
2
3
4
5
6
7
8
print "Entrez les éléments [ Ctrl-D ] pour quitter :\n";
 
my @in = <STDIN>;
 
foreach(@in)
{
    #traitement...
}

Mais vaut peut être mieux de savoir ce que tu veux faire pour trouver une solution meilleure.

lami20j

[d1g-2-d1g]

Je ne veux rien faire si il n'y a rien dans l'entrée standard. Le seul moyen de passer quelque chose à mon programme est un "|" (ex : cat mon_fichier | monscript.pl ).

C'est pour ca que je veux vérifier l'entrée standard dès le début mais pas proposer la saisie manuelle...

[lami20j]

Re,

Je ne veux rien faire si il n'y a rien dans l'entrée standard. Le seul moyen de passer quelque chose à mon programme est un "|" (ex : cat mon_fichier | monscript.pl ).

C'est pour ca que je veux vérifier l'entrée standard dès le début mais pas proposer la saisie manuelle...

En ce cas essaie ça

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl
use warnings;use strict;
 
while (<>) {
# traitement
}

Les données sont lues depuis | , il n'y a pas de l'entrée standard dans ton cas.

lami20j

[d1g-2-d1g]

Oui mais | renvoi sur l'entrée standard nan ?

Je test ce soir et te tiens au courant...

Merci

[lami20j]

Salut,

Oui mais | renvoi sur l'entrée standard nan ?

Je test ce soir et te tiens au courant...

Merci

Le | (pipe - à lire paip ) c'est comme un tube qui fait la liaison entre 2 extrémités.

Code :

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

programme1 | progamme2

Veut que la sortie de 1er programme et l'entrée de 2ème.

Quand tu fait cat fichier.txt le résultat est affiché sur la sortie standard STDOUT, mais comme tu préfères passer le résultat à ton script alors tu utilise |.

Ce n'est pas une explication très académique mais je crois que c'est assez claire.

lami20j

P.S. cherche de la doc pour les redirections
http://w3.uqo.ca/DOC/unx_pipes.html
http://abs.traduc.org/abs-3.8-fr/ch16.html

[BainE]

dsl, j'ai testé et le diamment ne marche pas (diamant cf. FAQ dvp :p), et je sais pas non plus comment faire ca...

[pospos]

la question c'est de savoir si on est appelé avec un pipe ou de savoir si il y a quelque chose à lire sur ce pipe?

si c'est la permiere alors il faut tester STDIN avec -t:

(-t STDIN) retourne vrai si STDIN est interactif, et faux sinon (et donc c'est sans doute un pipe)

Code :

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

print( (-t STDIN) ? "Lancement interactif\n" : "Lancement pipe\n" );

[lami20j]

Salut,

dsl, j'ai testé et le diamment ne marche pas (diamant cf. FAQ dvp :p), et je sais pas non plus comment faire ca...

Ca depend de ton code. Affiche ton code pour voir.Si ça ne marchais pas je n'aurai rien dit.

Il n'y a pas des doutes.

Code :

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

cat fichier | ./script.pl

c'est un pipe (à moins que tu mets ça entre // et | devient une alternative)

lami20j

[d1g-2-d1g]

la question c'est de savoir si on est appelé avec un pipe ou de savoir si il y a quelque chose à lire sur ce pipe?

si c'est la permiere alors il faut tester STDIN avec -t:

(-t STDIN) retourne vrai si STDIN est interactif, et faux sinon (et donc c'est sans doute un pipe)

Code :

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

print( (-t STDIN) ? "Lancement interactif\n" : "Lancement pipe\n" );

Merci, c'est ca qu'il me fallait !