[R] [..] Equivalent de GREP, SED, CUT, etc

[tibal]

Bonjour à tous,

Je fais mes premiers pas sur Autoit et suis habitué au shell Unix/Linux. Je suis à la recherche de correspondances pour des utilitaires tels que GREP, SED, CUT, etc ou tout utilitaire Unix/Linux.

Merci par avance pour votre aide.

[Tlem]

Bonjour tibal.
AutoIt est un utilitaire qui fonctionne sous Windows.
Ce qui fait que les commandes Unix dont vous parlez ne sont pas forcément connues par les membres de ce forum.
Il serait donc plus judicieux que vous donniez le maximum d'informations sur ces commandes (liens ou descriptions) afin d'éviter à celui qui veut vous aider, de perdre du temps en recherches.

Les commandes Unix étant très puissantes, vous ne trouverez sans doute pas l'exacte équivalence en AutoIt, mais quelques lignes de code bien argumentées feront très largement l'affaire.

Donnez nous des exemples concrets de ce que vous cherchez à faire, afin d'éviter une multitude de messages inutiles en demande d'explications divers et variées.

[sylvanie]

Bonjour,
pour apporter un début de réponse
sed : cf stringreplace et surtout stringregexpreplace
cut : stringsplit

pour grep, il faudra coder une fonction à base de findfilefirstfile et findfilenextfile pour le parcours, puis filread/filereadline et enfin stringinstr ou (surtout) stringregexp. Mais à mon avis les perfs vont s'écrouler (en utilitaire autre que Autoit sous windows je préconiserai Textcrawler)

Bonne continuation

[tibal]

Bonsoir et merci à Tlem et Sylvanie.

En fait, je souhaite faire deux boucles WHILE imbriquée, chacune parsant un fichier et pour chaque ligne extraite, je souhaite récuoérer le champs particulier. J'ai commencé à coder ça, mais ne suis pas sûre que le code soit optimale, et par ailleurs, la boucle interne devrait être exécutée autant de fois que la boucle externe a de lignes. Le problème est qu'elle ne s'exécute qu'une fois et que seule la boucle externe parse toutes les lignes de mon fichier. J'ai passé ma boucle interne par une fonction mais ça n'y change rien.

Je vous poste mon code, ça sera plus parlant :

Code : Tout sélectionner

#include <String.au3>
#include <Array.au3>
#include <file.au3>

If ( $CmdLine[0] <> 0 ) Then
    MsgBox(0,"Argument","Argument present")
Else
    MsgBox(0,"Argument","Argument manquant. Sortie du script")
    Exit
EndIf

Dim $VERSION = $CmdLine[1]
Dim $REP_RACINE = "C:\SCRIPT\AUTOIT"
Dim $SERVER_LIST = $REP_RACINE & "\server_list.list"
Dim $CONCESSION_LIST = $REP_RACINE & "\concession.list"
Dim $REP_DEST = $REP_RACINE
Dim $PATCH = $REP_RACINE & "\SOURCE\" & $VERSION & ".zip"
Dim $SERVER_LIST_LINE
Dim $CONCESSION_LIST_LINE
Dim $NB_SERVERS
Dim $COUNT_SERVER
Dim $NB_CONCESSIONS = 0
Global $COUNT_CONCESSIONS = 0

$SERVER_LIST_FILE = FileOpen($SERVER_LIST,0)
$CONCESSION_LIST_FILE = FileOpen($CONCESSION_LIST,0)

$NB_SERVERS = _FileCountLines($SERVER_LIST)
$NB_CONCESSIONS = _FileCountLines($CONCESSION_LIST)

MsgBox(0,"Nb Serveurs",$NB_SERVERS)
MsgBox(0,"Nb Concessions",$NB_CONCESSIONS)

If $SERVER_LIST_FILE = -1 Then
    MsgBox(0,"Ouverture de Fichier","Erreur lors de l'ouverture du fichier : " & @CRLF & $SERVER_LIST_FILE)
    Exit
EndIf
If $CONCESSION_LIST_FILE = -1 Then
    MsgBox(0,"Ouverture de Fichier","Erreur lors de l'ouverture du fichier : " & @CRLF & $CONCESSION_LIST_FILE)
    Exit
EndIf

While $COUNT_SERVER < $NB_SERVERS
    $SERVER_LIST_LINE = FileReadLine($SERVER_LIST_FILE)
    If @error = -1 Then ExitLoop
    If StringInStr($SERVER_LIST_LINE,"PROD") Then
        $SERVER = _StringBetween($SERVER_LIST_LINE,"PROD ","")
        MsgBox(0,"Variable LINE",$SERVER[0])
        $COUNT_CONCESSIONS = 0
        MsgBox(0,"$COUNT_CONCESSIONS avant _FCT_CONCESSION",$COUNT_CONCESSIONS )
        _FCT_CONCESSION()
        MsgBox(0,"$COUNT_CONCESSIONS apres _FCT_CONCESSION",$COUNT_CONCESSIONS )
    EndIf
    $COUNT_SERVER = $COUNT_SERVER + 1
WEnd

Func _FCT_CONCESSION()
    While $COUNT_CONCESSIONS < $NB_CONCESSIONS
        $CONCESSION_LIST_LINE = FileReadLine($CONCESSION_LIST_FILE)
        If @error =  -1 Then ExitLoop
        If StringInStr($CONCESSION_LIST_LINE,"FRF") Then
            $CONCESSION = $CONCESSION_LIST_LINE
            MsgBox(0,"Concession","Serveur : " & $SERVER[0] & @CRLF & "Concession : " & $CONCESSION)
        EndIf
        $COUNT_CONCESSIONS = $COUNT_CONCESSIONS + 1
    WEnd
EndFunc

FileClose($SERVER_LIST_FILE)
FileClose($CONCESSION_LIST_FILE)
 

[Tlem]

Ce code est totalement abstrait pour ceux qui ne connaissent pas les fichiers traités et le résultat attendu.
Dites nous ce que vous avez, et ce que vous voulez.

Ensuite, en ce qui concerne le code, la logique voudrait que le test d'ouverture du fichier soit fait après le FileOpen et qu'en cas d'erreur le script s'arrête (inutile de faire des choses qui n'aboutiront pas ...).

Ensuite, d'après la première boucle, vous cherchez à faire un traitement sur des lignes contenant l'expression "PROD ".
Il serait peut être judicieux de lire le fichier rapidement à la recherche de ces lignes, en les plaçant dans un tableau afin de les traiter dans l'autre boucle, mais cela dépend de ce que vous cherchez à faire.

[tibal]

En effet Tlem, j'ai oublié de vous fournir les fichiers parsés. En le contenu :

Fichier server_list.list :

Code : Tout sélectionner

PROD SERVER7
TEST SERVER8
PROD SERVER9
PROD SERVER10
PROD SERVER11
PROD SERVER12
PROD SERVER13

Fichier concession.list :

Code : Tout sélectionner

CONCESSIONBE01
CONCESSIONFR01
CONCESSIONFR13
CONCESSIONFR18
CONCESSIONFR20
CONCESSIONFR21
CONCESSIONFR27
CONCESSIONFR28
CONCESSIONFR31
CONCESSIONFR33
CONCESSIONFR37
CONCESSIONFR44
CONCESSIONFR45
CONCESSIONFR51
CONCESSIONFR53
CONCESSIONFR57
CONCESSIONFR59
CONCESSIONFR67
CONCESSIONFR69
CONCESSIONFR72
CONCESSIONFR73
CONCESSIONFR74
CONCESSIONFR77
CONCESSIONFR78
CONCESSIONFR782
CONCESSIONFR80
CONCESSIONFR84
CONCESSIONFR91
CONCESSIONFR92
CONCESSIONFR94
CONCESSIONFR95
CONCESSIONFRF01
CONCESSIONFRF02
CONCESSIONFRP01
CONCESSIONFRP02

En fait, je dois boucler sur chaque second champs des lignes du fichier server_list.list où le premier champs correspond à PROD. Ensuite, pour chaque itération de la boucle précédente, je dois boucler sur chaque ligne du fichier concession.list. Ensuite, pour chaque itération de la boucle interne, je dois faire un NET USE sur chaque serveur et décompresser un fichier dans chaque répertoire correspondant à la liste des concessions, via UNZIP.

[Tlem]

Avec AutoIt, il est possible de prendre les choses de différentes manières.
En ce qui me concerne, je lirais le fichier server_list.list ligne par ligne à la recherche du terme PROD et je construirais un tableau simple de ce genre

Code : Tout sélectionner

SERVER7
SERVER9
SERVER10
SERVER11
SERVER12
SERVER13

Ensuite je mettrais concession.list directement en tableau, avec la commande appropriée.

Ce qui nous donne donc deux tableaux ...
Après, rien de plus simple que de faire deux boucles FOR imbriquées pour effectuer les commandes nécessaires.

[tibal]

Merci Tlem. Je vais suivre votre conseil.

[sylvanie]

pour la mise en tableau, je préconiserai stringregexp, car celà a l'avantage de filtrer.
par exple :

► Afficher le texte

Code : Tout sélectionner

$title_srv="server_list.list"
$title_concess="concession.list"

$lst_srv=FileRead($title_srv)
$lst_concess=fileread($title_concess)

$lst_srv=StringRegExp($lst_srv,"PROD\s+([^\s]+)",3)
If Not IsArray($lst_srv) Then Exit 1


$lst_concess=StringRegExp($lst_concess,"(CONCESSION[^\s]+)",3)
If Not IsArray($lst_concess) Then Exit 2

$dim_lst_srv=UBound($lst_srv)-1
$dim_lst_concess=UBound($lst_concess)-1

For $srv_index=0 To $dim_lst_srv
 For $concess_index=0 To $dim_lst_concess
  ConsoleWrite("TODO : NETUSE + decompresseion "&$lst_srv[$srv_index]&" -> "&$lst_concess[$concess_index]&@CRLF)
 Next
Next


 

[tibal]

Merci à tous.

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[tibal]

Ok Tlem.

[Tlem]

ha !
Vous aussi, vous avez des problèmes avec la lecture du texte en rouge ... ?

[tibal]

Bonjour Tlem,
J'ai ajouté la balise [R] comme vous me l'avez rappelé. Ai-je oublié autre chose ?

[Tlem]

Ouaip ...

Je ré-écrit la phrase ci-dessous. Lisez attentivement ce qui est en rouge :
N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

[tibal]

Ca y est.
Je ferai mieux sur mon prochain post.
Merci encore.

[Tlem]

Je ferai mieux sur mon prochain post.

Et sur tous les suivants, ce serait sympa.