Help for this page

Select Code to Download

Select or download this

print sort {
    my ($aa) = $a =~ /(\d+)\s*$/;
...
 10.47.147.0   Free: 63    In-use: 99    P_InUse: 69
 10.47.147.0   Free: 63    In-use: 99    P_InUse: 63
 10.47.147.0   Free: 63    In-use: 99    P_InUse: 66

Select or download this

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$