#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $file='logs.txt';

my @ips;
my @agents;
my @timeresult;

open(my $fh, '<', $file) or die("error open $file ($!)\n");
while(my $line=<$fh>)
{
  if($line=~/([\d.]+) - - \[(.+?)\] "(.+?)" (\d+) (\d+) "(.+?)" "(.+?)"/)
  {
    my ($ip,$time,$request,$result,$filesize,$referer,$useragent)=($1,$2,$3,$4,$5,$6,$7);
    push(@timeresult,$time);
    push(@ips,$ip);
    push(@agents,$useragent);
  }
}
close($fh);

my $starttime=$timeresult[0];
my $endtime=$timeresult[-1];

print Dumper(\@ips);
print Dumper(\@agents);

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $file='logs.txt';

my @data;

open(my $fh, '<', $file) or die("error open $file ($!)\n");
while(my $line=<$fh>)
{
  if($line=~/([\d.]+) - - \[(.+?)\] "(.+?)" (\d+) (\d+) "(.+?)" "(.+?)"/)
  {
    push(@data,{
        ip       => $1,
        time     => $2,
        request  => $3,
        result   => $4,
        filesize => $5,
        referer  => $6,
        useragent=> $7,
      });
  }
}
close($fh);

my $starttime=$data[0]->{time};
my $endtime=$data[-1]->{time};

print Dumper(\@data);