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???