exp/num_NA.pl

   1 #!/usr/local/bin/perl
   2
   3 use Sort::Maker ;
   4
   5 my $sorter = make_sorter( 'GRT', number => '/\D/ ? 0 : $_' ) ;
   6 print "$@" unless $sorter ;
   7
   8
   9 print map "$_\n", $sorter->( qw( 22 1 10 NA 33 NA ) ) ;
  10
  11
  12
  13