in reply to Re: Re: Re: List::Compare
in thread List::Compare
It's surprisingly mellow thrash-wise, actually. I just do
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.
and it takes less than a minute to run on my box here at work.#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; } }
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Re: Re: List::Compare
by tachyon (Chancellor) on Mar 25, 2004 at 23:36 UTC | |
by graff (Chancellor) on Mar 26, 2004 at 04:32 UTC | |
by McMahon (Chaplain) on Mar 26, 2004 at 15:37 UTC | |
by jkeenan1 (Deacon) on Jun 04, 2004 at 14:48 UTC | |
by QM (Parson) on Mar 26, 2004 at 22:27 UTC | |
Re: Re: Re: Re: Re: List::Compare
by dragonchild (Archbishop) on Mar 26, 2004 at 13:23 UTC |
In Section
Module Reviews