Discussion :

[dx700t]

Bonjour tout le monde,

Je suis en train de me faire un petit script pour retirer les adresse IP des log de mon routeur. Mon script fonctionne a 99% mais je n'arrive pas a trouver le petit 1 % pour le faire fonctionner comme il faut, je vous montre mon code et vous explique ensuite le résultat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use warnings;
use strict;
my$fichier1= $ARGV[0];
my$fichier2= $ARGV[1];
open(SOURCE,"<$fichier1");
open (DESTINATION, ">$fichier2");
while (<SOURCE>) {
    if ($_ =~m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
        print DESTINATION $&  ;
        }
    }
close SOURCE;
close DESTINATION;

Lorsque je regarde le fichier de résultat, j'ai toutes mes adresse IP mais le hic c'est qu'elle sont une à la suite de l'autre. Je n'arrive pas à faire un saut de ligne entre chaque adresse et ça fait 1 semaine que je suis sur ce trouble. La réponse est probablement très évidente mais n'étant pas doué en perl, elle ne me viens pas. Quelqu'un à une suggestion pour moi???

[Jedai]

A l'avenir, pense à mettre ton code entre balises CODE (bouton # de l'interface d'édition du forum), c'est beaucoup plus agréable et tu augmentes ainsi tes chances d'obtenir une réponse rapide.

Pour répondre à ta question, je commencerais par te faire remarquer que l'emploi de $& est déconseillé en Perl, il ralentit globalement le moteur de regexp dans l'ensemble de l'application, alors qu'il est simple de faire sans. Sinon, c'est une simple affaire de rajouter un saut de ligne dans ta sortie :

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
18
19
#!/usr/bin/perl
use strict; use warnings;
 
my ($in_file_path, $out_file_path) = @ARGV;
open my($in_file), '<', $in_file_path
  or die "Couldn't open $in_file_path : $!\n";
open my($out_file), '>', $out_file_path
  or die "Couldn't open $out_file_path : $!\n";
 
while (<$in_file>) {
   if ( m/ ( \d{1,3} (\.\d{1,3}){3} ) /x ) {
      print {$out_file} "$1\n";
   }
}
 
close $in_file;
close $out_file;
 
__END__

--
Jedaï

[dx700t]

Jedai

Donc si je comprends bien, le $1 est le "résultat" de l'expression régulière, c'est ca?

[Jedai]

Donc si je comprends bien, le $1 est le "résultat" de l'expression régulière, c'est ca?

Pas exactement, $1 est le bout de chaîne de caractère reconnu par la portion de la regexp dans la première paire de parenthèses, exemple :

Code :

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

1
2
3
4
5
6
7
8
"hello world" =~ m/(\w+) \w+/;
print "$1\n"; # affiche "hello"
 
 
"567234" =~ m/(\d(\d\d))(\d{3})/;
print "$1\n"; # affiche "567" : la première paire de parenthèses commence à la première parenthèse de la regexp
print "$2\n"; # "67"
print "$3\n"; # "234"

--
Jedaï