Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
my @articleid=qw(b1 b2 b3 a100 a5 a8 a10 a11);

print join("\n", nsort @articleid);

Select or download this
```
a5
a8
...
a100
b1
b2
```