Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
print +(join ', ', @$_), "\n" for @$arrayRef;

exit;
  2. or download this
    Joe, A, 1, 80, 99
Joe, A, 2, 50, 70
...
Rob, A, 2, 87, 89
Rob, B, 1, 82, 92
Rob, B, 3, 30, 51