Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -lan
# Usage: thisscript.pl genes.txt
...
END {
    print for keys %uniq;
}

Select or download this

Linux version:
perl -lane '@u{@F}=() if $s{join "", sort @F}++ }{ print for keys %u' 
+genes.txt

Windows version:
perl -lane "@u{@F}=() if $s{join '', sort @F}++ }{ print for keys %u" 
+genes.txt