use strict;
use warnings;
use Date::Manip;
use Data::Dumper;
use File::Find::Rule;
use IO::Uncompress::Bunzip2 ();
use Net::Subnet;
my @LogDir = </cygdrive/c/Users/anon/Documents/logs/png1/>;
my @LogDir2 = </cygdrive/c/Users/anon/Documents/logs/png2/*/>;
#Find relevant files
sub get_files {
    my (@dirs) = @_;
	@ARGV = (@LogDir, @LogDir2);
	my @dirss = join "", map {@ARGV . $_} @dirs;
    my $level = shift // 3; # level to dig into
    my @files = File::Find::Rule->file()
    ->name( '*.bz2','*.log' ) #can insert regex too
    ->maxdepth($level)
    ->in(@dirss);
	#print @files;
    return @files;
}

#Matches IP address only
sub searchForIP {
	my ($files, $ip) = @_;
	my @files = @$files;
	
for my $file (@files){
	my $filename = $file;
	my $fh = IO::Uncompress::Bunzip2->new($filename)
    or die "bunzip2 $filename: $IO::Uncompress::Bunzip2::Bunzip2Error";

	while (<$fh>){
		print "$filename:$.:$_" if /$ip/;
    } 
   
  }
}
#This portion contains some code for user input, I will leave this out cause its not related to my problem
my $numberOfDays = $numdays .' days';
my $dateStart = ParseDate("$sdate");
my $dateEnd = DateCalc($dateStart, $numberOfDays);

# To find the every day date1 to date2
my @dates =ParseRecur("0:0:0:1:0:0:0","",$dateStart, $dateEnd);

my @datesFormatted = map { UnixDate($_, '%Y-%m-%d') } @dates;

my @filess = get_files(@datesFormatted);
searchForIP(\@filess, $ip);