[PERL]- traduire du shell en perl

lami20j@debian:~/trash$ cat compfic.pl
#!/usr/bin/perl
use strict;use warnings;

open CONF,"fichier.conf"
   or die "E/S : $!\n";
open ANALYSE,"fichier.analyse"
   or die "E/S : $!\n";
open TMP,">fichier.tmp"
   or die "E/S : $!\n";

my @conf=<CONF>;
chomp @conf;
while(my $e=<ANALYSE>){
        chomp($e);
        print TMP $e,"\n" unless grep { $e=~/$_/ } @conf;
}
__END__

lami20j@debian:~/trash$ cat fichier.analyse
vmonitor ntpd: kernel time sync status 0040
vmonitor ntpd: synchronized to LOCAL(0), stratum 10
vmonitor ntpd: ntpd 4.2.0a@1.1190-r Thu Oct 5 04:11:32 EDT 2006 (1)
vmonitor ntpd: precision = 18.000 usec
vmonitor ntpd: Listening on interface wildcard, 0.0.0.0#123
vmonitor patate: chou
lami20j@debian:~/trash$ cat fichier.conf
vmonitor ntpd: kernel time
vmonitor ntpd: synchronized to
vmonitor ntpd: ntpd 4.2.0a@1.1190-r
vmonitor ntpd: precision =
vmonitor ntpd: Listening on
lami20j@debian:~/trash$ perl compfic.pl
lami20j@debian:~/trash$ cat fichier.tmp
vmonitor patate: chou
lami20j@debian:~/trash$

open (my $fh_conf, $conf_file) or die("impossible d'ouvrir le fichier $fichier_conf, $!\n");
	close($fh_conf);
	my @data_temp;
	my @conf_file= <$fh_conf>;
	 
	# Lecture fichier analyse
	open (my $fh_analyse, $file_analyse) or die("impossible d'ouvrir le fichier $fichier_analyse, $!\n");
	while(my $ligne_analyse = <$fh_analyse>) {
	  chomp($ligne_analyse);
	  my $compt = 0;
	  # Lecture fichier conf
	  foreach my $ligne_conf (@conf_file) {
	    chomp($ligne_conf);
	    # comparaison
	    if($ligne_analyse =~ /$ligne_conf/i ) {
	      $compt ++;
	      last;
	    }
	  }
	  if($compt == 0) {
	    push (@data_temp, $ligne_analyse);
	  }
	}
	close($fh_analyse);
	 
	open (my $fh_focal, ">>$file_focal") or die("impossible d'ecrire dans le fichier $fichier_focal, $!\n");
	open (my $fh_analyse2, ">$file_analyse") or die("impossible d'ecrire dans le fichier $fichier_analyse, $!\n");
	foreach my $temp (sort @data_temp) {
	  print {$fh_focal} "$temp\n";
	  print {$fh_analyse2} "$temp\n";
	}
	close($fh_focal);
	close($fh_analyse2);

  	$keep_length=(&nbLignes ($file_analyse));
   	unlink ($file_tmp);

#!/usr/bin/perl
use strict;use warnings;

open CONF,"fichier.conf"
   or die "E/S : $!\n";
open ANALYSE,"fichier.analyse"
   or die "E/S : $!\n";
open TMP,">fichier.tmp"
   or die "E/S : $!\n";

my @conf=<CONF>;
chomp @conf;
while(my $e=<ANALYSE>){
        chomp($e);
        print TMP $e,"\n" unless grep { $e=~/$_/i } @conf;
}
__END__

open CONF,"$conf_file" or die "E/S : $!\n";
	open ANALYSE,"$file_analyse" or die "E/S : $!\n";
	open TMP,">$file_tmp" or die "E/S : $!\n";

	my @conf=<CONF>;
	chomp @conf;
	while(my $e=<ANALYSE>){
        chomp($e);
        print TMP $e,"\n" unless grep { $e=~/$_/i } @conf;
	
	
		open (my $fh_analyse1, ">$file_analyse") or die("impossible d'ecrire dans le fichier $file_focal, $!\n");
		open (my $fh_tmp, "$file_tmp") or die("impossible d'ecrire dans le fichier $file_analyse, $!\n");
		while(my $temp= <$fh_tmp>) {
	 	 	print {$fh_analyse1} "$temp\n";
		}
		close($fh_analyse1);
		close($fh_tmp);
	}

	open (my $fh_focal, ">$file_focal") or die("impossible d'ecrire dans le fichier $file_focal, $!\n");
	open (my $fh_analyse2, ">$file_analyse") or die("impossible d'ecrire dans le fichier $file_analyse, $!\n");
	while( my $analyse=<$fh_analyse2>) {
	  print {$fh_focal} "$analyse\n";

	}
	close($fh_focal);
	close($fh_analyse2);
  	$keep_length=(&nbLignes ($file_analyse));

my @conf=<CONF>;
	chomp @conf;
	while(my $e=<ANALYSE>){
        chomp($e);
        print TMP $e,"\n" unless grep { $e=~/$_/i } @conf;       

	}
       CONCATENER .TMP APR7S AVOIR FAIT UN PTIT SORT DANS MON .FOCAL