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

这是一段简单的Perl脚本，能够将CSV文件转换为HTML表格，并支持自定义表头和颜色。

#!/usr/bin/perl

use strict;
use warnings;

my $csv_file = 'input.csv';
my $html_file = 'output.html';

# 打开CSV文件并读取数据
open(my $csv, '<', $csv_file) or die $!;
my @rows = ();
while (<$csv>) {
    chomp;
    push @rows, [split /,/];
}
close $csv;

# 配置表头和样式
my @header = qw(Header1 Header2 Header3);
my $table_style = 'border: 1px solid black; background-color: lightgrey;';
my $header_style = 'background-color: grey; color: white;';

# 生成HTML表格
open(my $html, '>', $html_file) or die $!;
print $html "<table style=\"$table_style\">\n";
print $html "<tr style=\"$header_style\">";
foreach my $header_col (@header) {
    print $html "<th>$header_col</th>";
}
print $html "</tr>\n";
foreach my $row (@rows) {
    print $html "<tr>";
    foreach my $cell (@$row) {
        print $html "<td>$cell</td>";
    }
    print $html "</tr>\n";
}
print $html "</table>\n";
close $html;

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