fork download
copy 
  1. my @raw_array = ('H01578','H01579','H01580','H01581','H01582','H01583','H01584','H00536','H00537','H00538','H01585','H01586','H01587','H01588','H01589','H01590');
  2. my @sorted_array = sort {substr($a, 1) <=> substr($b,2)} @raw_array ;
  3.  
  4. print join("\n", @sorted_array);
Success #stdin #stdout 0s 4552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
H00536
H00537
H00538
H01578
H01579
H01580
H01581
H01582
H01583
H01584
H01585
H01586
H01587
H01588
H01589
H01590
https://ideone.com/trnfy
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!