Discussion :

[scrathi]

bonjour, j'ai un script qui remonte bien les infomations dans un fichier mais dans le fichier il a des ligne que je ne voudrais pas , j'avais pense faire une petit commande qui supprime tout les commencer par "enter" mais cela ne marche pas .

le resultat me donne :

Reponse obtenu pour 0.0.0.0

Resultat pour 0.0.0.0
:
Valeurs pour 0.0.0.0
enterprises.318.1.1= "2" (INTEGER)
enterprises.318.1.1= "1" (INTEGER)
enterprises.318.1.1. = "1" (INTEGER)
enterprises.318.1.1 = "1" (INTEGER)
enterprises.318.1.1.1= "1" (INTEGER)

voila j'aimerai bien savori comment faire pour enlever les enterprise merci

[djibril]

Il faudrait nous montrer ton code

[PadawanInPerl]

Hello,

Est-ce qu'une recherche de début de ligne ne suffirait-elle pas ?

du genre :

Code :

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

chomp $line;

Code :

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

1
2
3
4
5
if ($line =~ /^enterprises/){
  }
else {
  print OUT $line."\n";
  }

Bon, biensûr suivant ce que tu veux faire remonter c'est pas le top...

[Schmorgluck]

Pourquoi le chomp, Padawan ? Je ne vois pas à quoi il sert.

Et qu'est-ce que c'est que ce if suivi d'un bloc vide ? C'est n'importe quoi ton code !

[philouelgeek]

Salut,
Il te suffit d'utiliser les regex

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use warnings;
 
open FILE, "<toto.txt" or die "Le fichier n'existe pas !";
while (my $line = <FILE> )
    {
        if ( $line !~/^enterprises/)
         {
           print $line;
         }
}
close FILE;

J'ai pas eu le temps de le tester mais ça devrait fonctionner

@+

Edit : J'ai testé et ça marche