Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: How to make unique entries

by tybalt89 (Monsignor)
on Jun 02, 2023 at 08:46 UTC ( [id://11152601] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
      }
    
    use Data::Dump 'dd'; dd sort values %unique;
    
  2. or download this
    (
      ">4kt0_M|P72986\nMALSDTQILAALVVALLPAFLAFRLSTELYK\niiiiiiiiiMMMMMMMMM
    +MMMMMMMMIIIII\n",
      ">5oy0_m|P72986\nMALSDTQILDIFFERENTAFLAFRLSTELYK\niiiiiiiiiMMMMMMMMM
    +MMMMMMMMIIIII\n",
      ">7oy0_m|P72996\nMALSDTQILAALVVALLPAFLAFRLSTELYK\niiiiiiiiiMMMMMMMMM
    +MMMMMMMMIIIII\n",
    )