in reply to 'sort -u' in perl

In the spirit of TIMTOWTDI!:

#!/usr/bin/perl -w use strict; ues Tie::File; my @ry=(); tie @ry,"Tie::File","a.txt" or die $!; my %een=(); @ry = grep !$een{$_}++,sort @ry; untie @ry;
Sort of an implementation of an inline unique sort.

HTH


Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg