Discussion :

[SofEvans]

Bonjour,

Dans le cadre d'un developpement, j'ai a ma disposition un .bat dont le rôle et de lister plusieurs chaine sur l'ecran.

Un appel a ce .bat fait donc :

xxxxxx xxxxxxx
xxxxxx yyyyy
xxxxxx xxxxxxx
xxxxxx yyyyy

Ce que j'essaye de faire, c'est de compter le nombre de "yyyyyy".
Je ne dois pas passer par un fichier temporaire (donc exit la redirection) et le .bat ne repondait pas a mes attentes.

Je me suis donc orienté sur conseil vers perl.

Cependant, malgrès beaucoup de recherche google, je n'arrive toujours pas a réussir.
J'ai pensé a faire un pipe | et d'envoyer le tout dans un simple grep (comme en shell) mais pas moyen.

Je viens donc vous demander de l'aide s'il vous plait.
Avez vous une piste ou une fonction qui pourrait réaliser en partie ou totalement le script ?

Merci de votre lecture

[Philou67430]

Je ne saisis pas tout. Pourrais-tu préciser l'architecture système : windows, DOS, cygwin, Linux ?

Tu indiques qu'un |grep ne fonctionne pas. Peux-tu préciser pour quelle raison ?
Tu as envisagé perl, est-ce en utilisant un pipe du style mon_appli.bat | perl mon_grep_perl.pl ?
Quel est le format de yyyyy : texte constant, motif de texte, autre ?

[SofEvans]

Désolé.

Effectivement, je suis sous windows, total débutant en perl.

la chaine "yyyyy" que je cherche a matché est du texte constante.

Le grep ne fonctionne pas car j'essaye de le faire comme en shell, ce qui semble ne pas être le fonctionnement normal en perl.

En farfouillant encore, je suis tombé sur
http://articles.mongueurs.net/magazines/linuxmag55.html
qui semble detenir quelque reponse (notamment avec ``).
Reste a savoir si je peux le faire en lancant un .bat

[Philou67430]

Pourquoi ne peux-tu pas utiliser un pipe ?

Code :

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

mon_script.bat | perl -ne 'print if /yyyyy/'

[SofEvans]

Ce n'est pas que je ne peux pas, c'est que je ne sais pas.
On m'a donné ca a faire il y a quelque jour, c'est a ce moment que je me suis mis au perl.

j'ai essayer ce que tu m'as donné en ligne de commande DOS.

J'ai recolté ceci :

C:\WINDOWS>"C:\...\test.bat" | perl -ne 'print
if /yyyyy/'
Can't find string terminator "'" anywhere before EOF at -e line 1.

Mon .bat est comme ceci :

@echo off

echo "Bertand dumoulin"
echo "bernard strapin"
echo "Julie koala"
echo "nom prenom"
echo "Bertand pasfrere"
echo "Bertand adert"

Mon but est de savoir combien il y a de Bertrand en appelant ce .bat (le retour du .bat ne peut m'aider).
J'ai aussi eu comme consigne de ne pas passer par un fichier temporaire (donc exit la redirection + findstr en batch).

C'est la que perl entre en jeu.
Je vais voir ce que veux dire -ne en argument de perl.

Merci de me consacrer de ton temps, je dois avoier être perdu, c'est nouveau pour moi.
Mais en perseverant et grâce a vous, je vais bien finir par y arriver

EDIT : grâe au lien donné precedemment, j'ai pu effectué une partie de ce que je voulais faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
use strict;
use warnings;
 
my(@var) = `"C:\\...\\test.bat"`;
 
foreach my $val (@var)
{
	print($val."\n");
}

voila, ca a l'air tout simple mais c'est plutot dur à trouver
Il me reste le grep, mais je pense pouvoir y arriver maintenant que j'ai une chaine de caractere dans $val.

[mamax29]

il te suffit d'utiliser ce script:

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
17
 
#!C:\strawberry\perl\bin\perl -w
 
use strict;
my $compteur = 0;
 
# on boucle sur tout ce qui est envoyé au script perl via le pipe
while (<STDIN>) {
  # si la ligne reçue contient "Bertand"
  if ( $_ =~ m/Bertand/ )
  {
        # on incrémente le compteur
  	$compteur++;
  }
}
 
print "Il y a $compteur Bertand\n";

et il se lance comme ceci:

Code :

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

nom_script.bat | perl nom_script_perl.pl

[Philou67430]

Pour utiliser les unilignes en perl sous DOS (je préfère toujours utiliser un fenêtre bash sous cygwin), tu peux utiliser :

Code :

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

mon_script.bat | perl -ne "print if /bertrand/i"

(double quotes au lieu de simples quotes).

Ce script fait un grep, c'est à dire qu'il t'affiche les lignes avec bertrand.

Si tu souhaites juste les compter, voici une méthode également uniligne :

Code :

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

perl -e "$count = grep /bertrand/i, qx(mon_script.bat);print $count"

[mamax29]

avec une console bash (cygwin par exemple), y'a même pas besoin du perl:

Code :

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

./echo.bat | grep Bertand | wc -l

[Philou67430]

Je n'ai pas osé le proposer, histoire de laisser SofEvans découvrir perl

[SofEvans]

Bonjour,

Merci à tous pour vos réponses.
J'ai réussi à me débrouiller avec les lignes de code que j'ai mits en édit, c'etait plus du tatonnage qu'autre choses.

Je garde en memoire ce que vous m'avais conseillé, c'est très interressant car je debute donc forcement, je connais pas ^^

Merci beaucoup pour votre contribution.
Je ne manquerai pas de découvrir les joies du perl.