blob: cd4ea63f55e33f9d4f06d7e4ef97a9cf23d95838 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
% $csv->combine(@$header); #or die $csv->status;
%
<% $csv->string %>\
%
% foreach my $row ( @$rows ) {
%
% if ( $opt{'fields'} ) {
%
% my @line = ();
%
% foreach my $field ( @{$opt{'fields'}} ) {
% if ( ref($field) eq 'CODE' ) {
% push @line, map {
% ref($_) eq 'ARRAY'
% ? '(N/A)' #unimplemented
% : $_;
% }
% &{$field}($row);
% } else {
% push @line, $row->$field();
% }
% }
%
% $csv->combine(@line); #or die $csv->status;
%
% } else {
% $csv->combine(@$row); #or die $csv->status;
% }
%
%
<% $csv->string %>\
%
% }
<%init>
my %args = @_;
my $header = $args{'header'};
my $rows = $args{'rows'};
my %opt = %{ $args{'opt'} };
#http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
http_header('Content-Type' => 'text/plain' );
my $csv = new Text::CSV_XS { 'always_quote' => 1,
'eol' => "\n", #"\015\012", #"\012"
};
</%init>
|
