I have uploaded my code to my scratchpad, but obviously it doesn't work, that's why I'm here. I'm a complete beginner with Perl (and coding in general, I only started in the last week), so please don't laugh at my effort, haha. Also I hope the formatting is OK since I'm new to that too!

Why don't you post your code here instead?

Instead of manually splitting up your source file, you could write a program to split up your source file and then compare the split up parts. You could also skip the part where you write out your input file into separate files and compare the split up parts in memory instead of writing them out to files and reading them back in.

So far, I get the impression that you have not really put much thought into possible approaches. Maybe you shouldn't attack the problem as a whole, but instead simplify the problem first:

• If you have two files, how do you determine their differences?
• If you have one file with two sets of routes, how can you read that file into two memory structures?
• If you have one file with more than two sets of routes, how will you determine the differences?

I have uploaded my code to my scratchpad, but obviously it doesn't work, that's why I'm here.

You mean this code?:

#!/usr/bin/perl -w

use strict;

my $infile = 'JPStream.csv';
my $outfile = 'new1.csv';

open IN, "< $infile" or die "Can't open $infile : $!";
open OUT, "> $outfile" or die "Can't open $outfile : $!";

my %seen;
my %seen2;
 
while (<IN>) {
     next if /^$/;
     chomp;
       if ( ! $seen2{$_} ) {
       print OUT "$_ Not in the last Traceroute ^\n";
       }
     last if /^$/;
     $seen{$_}++;
     %seen2 = ();
}

while (<IN>) {
     next if /^$/;
     chomp;
       if ( ! $seen{$_} ) {
       print OUT "$_ Not in the last Traceroute^^\n";
       }
     last if /^$/;
     $seen2{$_}++;
     %seen = ();
}
}
[download]

Why not post your code in the same node as your question? It certainly isn't due to length.

Please make it easier for us to help you help yourself.

HTH,

planetscape