Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
$ws->write('A1', \@data);
# Yes. IT IS transposed!
  2. or download this
    use Algorithm::Loops qw(MapCar);
# ....

$ss->write_row($_) for MapCar {[@_]} @data ;