Help for this page

Select Code to Download


  1. or download this
    # !/usr/bin/perl -w
use strict;
...
    [ [ 20070410, 20070415, 20070417, 20070418 ], [ 10, 20, 15, 42 ] ]
+,
    [ 'Dates', 'Values' ], 1 );
print $table->csv;
  2. or download this
    # !/usr/bin/perl -w
use strict;
...
my $quan  = "10, 20, 15, 42";
my $table = new Data::Table( [ [$dates], [$quan] ], [ 'Dates', 'Values
+' ], 1 );
print $table->csv;