Discussion :

[chadow]

Bonjour,
je suis une débutante en perl et je n'arrive pas a bien afficher ce qui m'intéresse, j'explique:

Le but de mon script est d'extraire d'un fichier la ligne qui contient le mot clé "ssh"
puis une fois les lignes extraites j'ai la colonne 2 et 3 que je dois garder
pourriez vous m'aider?

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w 
 
open (COLONNE, "/colonne.txt"); #ouvre mon fichier avec toutes les lignes et contient 5colonnes
open(ATTACH, ">listcolonne.txt") ||die "$!"; #creation de mon fichier de sortie la ou je voudrais mettre la ligne contenant le mot clé
while (<COLONNE>) 
{
print ATTACH "ligne$. ",(split /\s/,$_)[2,3],"\n" if $. % 3 == 2; # maffiche la ligne 2 et 5 mais j'avoue je ne comprend pas cette ligne 
}

comment chercher le mot clé ssh? grep?

exemple de fichier

premier1 deuxiemel1 troisiemel1 quatriemel1 cinquiemel1
premier2 ssh troisiemel2 quatriemel2 cinquiemel2
premier3 deuxiemel3 troisiemel3 quatriemel3 cinquiemel3
premier4 deuxiemel4 troisiemel4 quatriemel4 cinquiemel4
premier4 deuxiemel5 troisiemel5 quatriemel5 cinquiemel5
premier5 deuxiemel6 troisiemel6 quatriemel6 cinquiemel6

merci

[iblis]

Ce que tu lis, ce sont des lignes. Pour chaque ligne, tu extraies les champs correspondant aux colonnes.

Tu veux quelque chose dans ce goût-là :

Code :

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

1
2
3
4
5
while(<>) {
  chomp;
  my @fields = split /\s+/;
  print $fields[1], " ", $fields[2], "\n" if $fields[1] eq 'ssh';
}

[estofilo]

Cette expression:

Code :

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

if $. % 3 == 2

est vraie lorsque la division du numéro de ligne par 3 a un reste égal à 2. Ca permet de sauter 2 lignes sur 3 mais ça ne va pas aider à chercher un mot clef.

Pour garder uniquement les lignes qui ont ssh en tant que mot, il faudrait faire quelque chose du style:

Code :

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

1
2
3
4
5
6
7
 
while (<COLONNE>) 
{
  if (/\bssh\b/) {
    ...
  }
}

[Philou67430]

Décortiquons cette ligne :

Code :

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

print ATTACH "ligne$. ",(split /\s/,$_)[2,3],"\n" if $. % 3 == 2;

Code :

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

split /\s/, $_

On découpe le contenu de $_ en prenant comme séparateur UN espace (\s : espace ou tabultation).

Code :

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

(split /\s/,$_)[2,3]

Le résultat de la fonction précédente retourne un tableau : ici, on récupère les éléments indicés 2 et 3 (si tu souhaites récupérer la 2e et la 3e colonne, il faudrait utiliser les indices 1 et 2, puisqu'ils commencent à 0).

Code :

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

if $. % 3 == 2

On n'exécute la fonction print que si le numéro de ligne du fichier en cours de lecture est un multiple de 3 moins 1 (2, 5, 8, ...).
Pour ce faire, on utilise le modulo 3 de $. (numéro de ligne commençant par 1).

Ainsi, la ligne complète ne cherche pas ssh, mais prend arbitrairement certaines lignes.

Pour répondre à ta question initiale, il faudrait donc plutôt écrire :

Code :

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

print ATTACH "ligne$. ",(split /\s/,$_)[1,2],"\n" if /\bssh\b/;

Edit : hum... ça se bouscule sur ce topic

[chadow]

Merci des explications j'ai reussie a obtenir ce que je voulais^^

En fait je cherchais lune adresse IP j'ai donc fais comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#! /usr/bin/perl -w
 
open (COLONNE, "lacmd |"); # execute la commande
open(ATTACH, ">>##.txt") ||die "$!"; # rajoute a la suite des données sinon s'arrête
 
        while (<COLONNE>)
        {
                $date=localtime;
                print ATTACH "le $date  de ",join (' ' ,(split /\s+/,$_)[1,2],"\n") if /[0-9]+\b.\b[0-9]+\b.\b[0-9]+\b.\b[0-9]+/ ; #met dans le ##.txt la colonne 1 et 2 (cpt commence a 0) s'il y a une adresse IP
        }