Script to convert a CSV to a forum BBCode table

Started by Scott5114, January 29, 2023, 09:06:12 PM

Previous topic - Next topic


Who knows if anyone else but me will ever find this useful, but, hey, if you do, knock yourself out.

No guarantees this does anything right. Licensed under whatever the latest GPL is whenever you read this.


use Text::CSV;
use strict;

# CSV parse object
my $csv = Text::CSV->new ({
  binary    => 1,
  auto_diag => 1,
  sep_char  => ','    # not really needed as this is the default

my $file = $ARGV[0] or die "No CSV file specified\n"; # Path to CSV file
open(my $data, "<", $file) or die "Could not open '$file' $!\n"; # Open file

print "[table]\n";

# Read file in line by line.
while (my $line = <$data>)
    print "[tr]";
    chomp $line;
    if ($csv->parse($line))
        my @fields = $csv->fields();
            print "[td]";
            print $_;
            print "[/td]";
    print "[/tr]\n";

print "[/table]\n";
uncontrollable freak sardine salad chef


It's good to see well-written Perl in the wild. Bookmarked.
My first SF/horror short story collection is available: "Young Man, Open Your Winter Eye"


Calling my code well-written warms my heart. Thanks. :)
uncontrollable freak sardine salad chef

Opinions expressed here on belong solely to the poster and do not represent or reflect the opinions or beliefs of AARoads, its creators and/or associates.