My Daily Computer Solutions

I started to write a C# program to fix all this for me, an hour later my college asked me in what language I was coding. He told me “Ohh please write this kinda conversion in Perl”. Until today I never touched Perl, so that was a new experience. He wrote me a very simple program of about 10 lines of code as example and start up.

After some syntax reading I started to write code. I have to admit, 2 hours later the whole job (except images and descriptions) was done..

So take his (and my) advice, if you want to covert or parse a CSV file don’t use Java, C++, C# or whatever use Perl.

This code can be used to parse the exported product data from Mamut to the format used while importing products in Virtuemart.

To use this, install perl and save the code to a new textfile name FILENAME.pl.

#! /usr/bin/perl -w

use strict;
# the input file (place in same dir as the script)
my $file = “in.csv”;

# output file (will be created in the script dir)
my $outfile = “catout.csv”;

# check for input file
open(IN, “<$file”) or die “Could not open $file\n”;

#check for permission to write output
open(OUT, “>$outfile”) or die “Could not open $outfile\n”;

# while there are input lines
while (<IN>)
{

chomp;
# split the input line at the comma char (you can change this)
my @line = split(“,”);

# Replace the Mamut category mess with the \ char
$line[3] =~ s/\%\%/\//g;

# print the parsed line to the output file.
# Note: You have to use \ to escape the ” char \”\” means an empty entry.
print OUT “$line[3],\”\”,\”\”,\”\”,\”\”,\”managed\”,\”flypage.tpl\”,\”y\”,\”\”,\n”;

}

# close input file
close(IN);
# close output file
close(OUT);

Code for products:

#! /usr/bin/perl -w

use strict;

my $file = “in.csv”;
my $outfile = “out2.csv”;

open(IN, “<$file”) or die “Could not open $file\n”;
open(OUT, “>$outfile”) or die “Could not open $outfile\n”;

while (<IN>)
{
chomp;
my @line = split(“,”);
$line[3] =~ s/\%\%/\//g; # replace the category
print OUT “$line[0],\”\”, $line[3], $line[1],\”\”,\”\”,$line[11],\”\”,\”\”,\”\”,\”\”,\”EUR\”,\”\”,\”\”,\”\”,\”\”,\”Y\”,\”N\”,\”\”,\”\”\n”;
}

close(IN);
close(OUT);