Much better would be to use the unix sort command. This is one of the exact reasons it was designed. It is written in very optimized C, and as such, will always beat out Perl.

It's surprisingly mellow thrash-wise, actually. I just do

 

#SETUP DELETED, CODE WON'T RUN

my @file1 = <FILE1>;
my @file2 = <FILE2>;

my $lc = List::Compare->new(\@file1, \@file2); 

my @file1only = $lc->get_Lonly; 
my @file2only = $lc->get_Ronly; 

print OUT "Files that exist only in FILE1:\n";
print OUT "IGNORING FILES WITH Tmp OR Temp IN PATHNAME!!!\n\n";
foreach my $file1(@file1only) {
    unless (($file1 =~ "Tmp") or ($file1=~"Temp")) {
        print OUT $file1;
        
    }
}

print OUT "\n\n";

print OUT "Files that exist only in FILE2:\n";
print OUT "IGNORING FILES WITH Tmp OR Temp IN PATHNAME!!!\n\n";
foreach my $file2(@file2only) {
    unless (($file2 =~ "Tmp") or ($file2=~"Temp")) {
        print OUT $file2;
    }
}
[download]

and it takes less than a minute to run on my box here at work.

Unfortunately, we're an all-Windows shop. I've managed to infiltrate a couple of FreeBSD boxes into the test department (cool network tools and a neato disk imaging system called Frisbee), but it's hardly worth moving all of the files over there and back just to save a few seconds using "sort" instead of List::Compare.

Am I missing something or is List::Compare in your context giving you nothing that this code does not? This is probably faster and will use less memory as well.

my @ary1 = ( 1..10 );
my @ary2 = ( 5..15 );
my %h;
$h{$_}++ for ( @ary1, @ary2 );
unique( "Only in ary1", \@ary1, \%h );
unique( "Only in ary2", \@ary2, \%h );
common( "Common to ary1 and ary2", \%h );

sub unique {
    my ( $text, $ary, $hash ) = @_;
    print $text, $/;
    do{ print "$_\n" unless $hash->{$_} == 2} for @$ary;
}

sub common {
    my ( $text, $hash ) = @_;
    print $text, $/;
    do{ print "$_\n" if $hash->{$_} == 2} for keys %$hash
}
[download]

cheers

tachyon

Check out both Cygwin and Microsoft's own Unix tools. I am currently developing the same Perl modules on Solaris9, Redhat9, and Cygwin (both on Win2k Pro and WinXP Pro).

Unix tools are available in most places you'd care to look, if you know where to look. :-)

------
We are the carpenters and bricklayers of the Information Age.

Then there are Damian modules.... *sigh* ... that's not about being less-lazy -- that's about being on some really good drugs -- you know, there is no spoon. - flyingmoose