Posted By

bionic on 03/03/10

Tagged

Versions (?)

Last Edited at 03/03/10 06:16pm

Statistics

Viewed 839 times

Favorited by 0 user(s)

Related snippets

csv2xml perl version

/ Published in: Perl

Useful perl snippet to convert csv docs to xml from Ankh on the freenode #xml irc channel

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

#! /usr/bin/perl
use warnings;
use strict;
use Text::CSV;
 
# generate XML from CSV files
#
 
 
my $csv = Text::CSV->new(
    {
        binary => 1, # binary for utf8, latin1 etc
        sep_char => "\t"
    }
) or die "Cannot use CSV: ".Text::CSV->error_diag ();
 
$csv->eol("
");
 
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
 
foreach (@ARGV) {
    open my $input, "<:encoding(utf8)", $_ or die "test.csv: $!";
 
    print "<csv filename=\"$_\">";
    while (my $colref = $csv->getline($input)) {
        print "<row>" .
        join("", map { "<cell>$_</cell>" } @$colref ) .
              "</row>\n";
    }
    print "</csv>\n";
}