if (!$skip)
{
while (<FILE>) {
- if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)IN=.*/) {
+ if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) {
if($1 eq $blacklist){
$log[$lines] = $_;
$lines++;
}
if (!$skip) {
while (<FILE>) {
- if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)IN=.*/) {
+ if (/^${monthstr} ${daystr} ..:..:.. [\w\-]+ kernel:.*BLKLST_(\w+)\s?IN=.*/) {
if($1 eq $blacklist){
$log[$lines] = $_;
$lines++;
foreach $_ (@slice) {
$a = $_;
# Check whether valid ipv4 or ipv6 address
- if (($_ =~ /BLKLST_(\w+)IN=/)) {
+ if (($_ =~ /BLKLST_(\w+)\s?IN=/)) {
if($1 eq $blacklist) {
my $in = '-'; my $out = '-';