[any ideas...] the browser's error below:

couldn't find diagnostic data in /usr/local/lib/perl5/5.6.0/pods/perldiag.pod 
/usr/local/lib/perl5/5.6.0/i686-linux /usr/local/lib/perl5/5.6.0 
/usr/local/lib/perl5/site_perl/5.6.0/i686-linux /usr/local/lib/perl5/site_perl/5.6.0 
/usr/local/lib/perl5/site_perl . csvtest.pl at 
/usr/local/lib/perl5/5.6.0/diagnostics.pm line 241, <POD_DIAG> line 549.

was a response to this perl/cgi script... [any ideas?]

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);

use strict;  # option explicit, but better =o)
use warnings;
use diagnostics -verbose; enable diagnostics;

use CGI;
use CGI::Carp 'fatalsToBrowser';
print CGI->header, CGI->start_html, "<table border=1>\n";

open CSV, "csv.csv" or die $!;
  
while(<CSV>) {         
s/^/<TR><TD>/;      
s{,}{</TD><TD>}g;
s{$}</TD></TR>};    
print "$_\n}
close CSV;

print "</table>",CGI->end_html;

exit;

Reply via email to