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 = (); } }
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,
planetscapeIn reply to Re^3: Best way to compare my data?
by planetscape
in thread Best way to compare my data?
by Lavezzi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |