使用Perl将CSV文件转换为HTML表格

这是一个用Perl编写的脚本程序，它的主要功能是将CSV文件转换为HTML表格。脚本采用了简单的逐行读取和处理CSV文件数据的方法，使用HTML标记和样式创建一个漂亮的表格，并将其输出到HTML文件中。此脚本可用于数据可视化、数据发布等应用场景。

#!/usr/bin/perl
 use strict;
 use warnings;
 use Text::CSV;
 my $csv = Text::CSV->new();
 open my $fh, "<", "data.csv" or die "Can't open file: $!";
 my @rows;
 while (my $row = $csv->getline($fh)) {
     push @rows, $row;
 }
 close $fh;

 # Create HTML table
 my $html = "<table>\n";
 foreach my $row (@rows) {
     $html .= "<tr>";
     foreach my $col (@{$row}) {
         $html .= "<td>$col</td>";
     }
     $html .= "</tr>\n";
 }
 $html .= "</table>\n";

 # Output to HTML file
 open my $out_fh, ">", "table.html" or die "Can't open file: $!";
 print {$out_fh} $html;
 close $out_fh;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com