My unless statement toward the bottom of the code simply is not working any help would be appreciated.

My goal is to only process a given src address once and not again I do not want to print this line again.

use strict;
use warnings;
use Cwd;
use LWP::UserAgent;
use DateTime;
use File::Slurp;

print "Type the malicious IP: ";
my $IP = <>;
chomp $IP;


#calculating times and dates
my $dt_now = DateTime->now;

$dt_now->subtract( hours => 5 );

my $now_Hour = sprintf("%02d",$dt_now->hour_12());
my $now_Year = $dt_now->year();
my $now_Month = sprintf("%02d",$dt_now->month());
my $now_Day = sprintf("%02d",$dt_now->day());
my $now_Min = sprintf("%02d",$dt_now->minute());
my $am_pm = $dt_now->am_or_pm();

my $oldSSO = qx{whoami};
chomp $oldSSO;
my ($sso) = $oldSSO =~ /.*(\w{2}\d{5})/;

my $ua = new LWP::UserAgent;
my $response = $ua->get("http://referencedatasite/$sso");
my $content = $response->content;

my ($newcontent) = $content =~ /<geid>(\d+)/;



my @textfiles = <*.txt *.log>;
my $input_file;
my $input_fh;
my $src;
my $dst;
my @srcs;
my %seen;
 

my $output_file = "simon.csv";
    
    open(my $output_fh, '>', $output_file)
        or die "Failed to open $output_file - $!";    
        print {$output_fh} "uploadfiles,submitter,description,SIP,DIP,
+Date_occurred_detected,Time_occurred_detected,Report_Severity,Inciden
+t_Type_Details\n";
    close $output_fh;

foreach my $textfile (@textfiles) {
    if ($textfile =~ /(\d+.\d+.\d+.\d+)/) {
    
    my ($ipaddy) = $textfile =~ /(\d+.\d+.\d+.\d+)/;
    
    print "Processing $textfile\n";
        
        my @lines = read_file( $textfile ) ;
            
        open($output_fh, '>>', $output_file)
            or die "Failed to open $output_file - $!";
        
            
        foreach my $line (@lines) {
        
        ($src) = $line =~ /\d{4}-\d+-\d+\s\d{2}:\d{2}:\d{2}\s\d+\s(\d+
+.\d+.\d+.\d+)/;
        
        %seen = ();
        unless ($seen{$src}++) {
        
        if ($line =~ $IP) {
                    print {$output_fh} "$src.zip,$newcontent,Malicious
+ activity found when mining proxylog data,$src,";
                    ($dst) = $line =~ /SG-HTTP-Service (\d+.\d+.\d+.\d
++)/g;
                    print {$output_fh} "$dst,$now_Month/$now_Day/$now_
+Year,$now_Hour:$now_Min $am_pm,3,24\n";
                    }
                }    
            }
        }
    }

[download]

In reply to Parsing out uniques by diamondsandperls

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.