Help for this page

Select Code to Download


  1. or download this
    use strict;

...
    }
    print "\n";
}
  2. or download this
    0 0 -> A10a1
0 1 -> img4
...
3 1 -> img3
3 2 -> x456
3 3 -> y789
  3. or download this
    A1a1
A1a12
A10a1
A12a1
  4. or download this
    my @sorted_matrix = grep {s/(^|\D)0+(\d)/$1$2/g,1} sort {$a->[0] cmp $
+b->[0]} grep {s/(\d+)/sprintf"%06.6d",$1/ge,1} @matrix;