File "essai.pl.bak"

Full Path: /home/analogde/www/Sexy/Massage/PERL/essai.pl.bak
File size: 455 bytes
MIME-type: text/x-perl
Charset: utf-8

#!/usr/bin/perl -w                        
                                                                      
open(FILE, "< decoupe.txt")
    or die ("prob a l'ouverture du fichier");
@save = <FILE>;
close(FILE);
foreach (@save)
{
    $_ = "" if ($_ =~ m/255.255.255.255/);
    chomp $_;
}
#open(FILE, ">decoupe.txt")
#    or die ("prob a l'ouverture du fichier");
#foreach (@save)
#{
#    print FILE $_."\n" if ($_);
#}
#close(FILE);