Question

Is there a way in perl to export data from a file to csv file.
What I mean is,

Say I have a file as follows..

field1=value1,filed2=value2
field1=value3,filed2=value4
field1=value5,filed2=value6

I want to export this to excel format as follows.

field1  field2
value1  value2
value3  value4
value5  value6

anyway of doing this??

Also, there is a little problem here.
Suppose I export one more file to same CSV file…which has contents like..

field1=value1,fields2=value8

my CSV should look like

field1  field2
value1  value2
        value8
value3  value4
value5  value6

is there a simpler way to do it. Right now I am doing it manually. Any idea if there is a better way.

Thank you.

Answer 1

Here you go

#!/usr/bin/env perl

open (IMPORT, "import.txt") || die "Unable to read import file";

my @lines = <IMPORT>;
my @formatted = ();

for my $line (@lines) {
    $line =~ s/^.*=(.*?),.*?=(.*?)/$1\t$2/g;
    push(@formatted, $line);
}

my $current_field;

for my $format_line (sort @formatted) {
    my($field1, $field2) = (split(/\t/, $format_line));
    if ($field1 ne $current_field) {
        print "$field1";
    }
    print "\t$field2";

    $current_field = $field1;
}

import.txt contains

field1=value1,filed2=value2
field1=value3,filed2=value4
field1=value5,filed2=value6
field1=value1,fields2=value8

which results in

value1  value2
        value8
value3  value4
value5  value6