# file to read 
# it has lines with events e.g.  
# [FILESYSTEM]	FILESYSTEM - data	93%  90% KO 
# [TABLESPACE]	TABLESPACE - 'ex2' BDD='test2'	 - 	91.12%  80%	(93.25Mo Free  1050Mo) KO 
# other... 
 
my $errFile = "c:\\KO\\test.txt"; 
open(FILE,$errFile); 
my @allExcludes; 
 
# processes to exclude (it will be as parameter, but for test purpose i put them in the variables 
my $processesToExclude = "some_process"; 
my $processesToExclude2 = "data"; 
my $processesToExclude3 = "ex2"; 
my $processesToExclude4 = "ex3"; 
my $processesToExclude5 = "ex4"; 
 
# if it's not null then put value into the allExcludes array.  
if ($processesToExclude ne "")  {push(@allExcludes,$processesToExclude);} 
if ($processesToExclude2 ne "") {push(@allExcludes,$processesToExclude2);} 
if ($processesToExclude3 ne "") {push(@allExcludes,$processesToExclude3);} 
if ($processesToExclude4 ne "") {push(@allExcludes,$processesToExclude4);} 
if ($processesToExclude5 ne "") {push(@allExcludes,$processesToExclude5);} 
 
# how many - not needed now  
my $allExcludesSize = scalar (@allExcludes); 
my $line; 
my $wholeLine; 
 
# reading the file 
while (<FILE>){ 
	$line = $_; 
	chomp($line); 
	$line =~ tr/\0-\037\177-\377//d; 
	$wholeLine = "$wholeLine$line\n";	 
} 
 
# splitting line-by-line 
my @res = split(/\n/,$wholeLine); 
 
# all excluded	 
my $allex; 
# all not excluded 
my $allnot; 
 
foreach $line(@res)	 
{	 
	foreach $re (@allExcludes) 
	{ 
		if ($line =~ /$re/) 
		{ 
			$allex = "$allex$line\n"; 
			#last; 
		} 
		else 
		{ 
			$allnot = "$allnot$line\n"; 
			#last; 
		} 
	} 
} 
print "match: \n$allex\n";	 
print "\n";	 
print "not match:\n $allnot\n";

use strict; 
use warnings; 
my $opt = 0; 
my @processesToExclude = @ARGV; 
my $RE = join '|', @processesToExclude; 
while (my $line = <DATA>) { 
    $line =~tr/\0-\037\177-\377//d; 
    print "$line\n" if $line !~ m/$RE/o or $opt; 
} 
__DATA__ 
hide data 
show this 
hide ex2 stuff 
display line 
do not show ex4