Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
my @sorted = sort { $a <=> $b } keys %unique;
print "  unique:  @{[keys %unique]}\n";
print "  sorted:  @sorted\n";

Select or download this

test string: this 33,44 is a fix for mybug44,99 real
                        bug 99 again   bug33r bug1722,3 bUg:99,
...

  unique:  50 3 58 17 456 42 99 24 1722
  sorted:  3 17 24 42 50 58 99 456 1722