Help for this page

Select Code to Download


  1. or download this
    my $rows = [
            { 'column number 4' => 'data row 1, col 4',
...
              'column number 2' => 'data row 2, col 2',
            }
        ];
  2. or download this
    my %rownames;
$rownames{$_} = $_ for sort keys %{@{$rows}[0]};
unshift @$rows, \%rownames;
  3. or download this
    [
          {
...
            'column number 4' => 'column number 4'
          },
# ...