G'day john.tm,

Welcome to the monastery.

Use Text::CSV instead of rolling your own solution with all those split and splice statements.

Populate a hash with the first part of the address from the master file then compare with addresses from the daily file.

This code shows the basic idea of how to do that:

#!/usr/bin/env perl -l

use strict;
use warnings;

my %seen;

for (qw{john.co.uk gim.com}) {
    ++$seen{get_first_part_of_address($_)};
}

for (qw{john.com gim elephant.com banana}) {
    print unless $seen{get_first_part_of_address($_)};
}

sub get_first_part_of_address {
    return (split /\./, shift)[0]
}

[download]

Output:

elephant.com
banana

[download]

-- Ken

In reply to Re: compare csv files only to first fullstop character by kcott
in thread compare csv files only to first fullstop character by john.tm

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.