Check out this very nice app. It was the only one, who converted my avi correctly without any errors.
Also it’s optimized for dual or quad cores!
http://www.dvdflick.net/
Freeware, open source
Posts Tagged ‘convert’
AVI to DVD convert Open source!
Thursday, January 22nd, 2009First steps in Perl parsing CSV from Mamut to Joomla Virtuemart
Monday, October 27th, 2008Today at the office I was asked to help migrating the webshop from Mamut to Joomla Virtuemart.
I installed the new webshop, and used the plugin CSVImport to import all data about the products.
As allways Mamut was a pain in the a**, you can export all products BUT:
- Without all descriptions you perfectly made of the last year
- Without all pictures chosen
- Without a normal layout in the Categories (messed up with some $$%# charcs)
I’m still working on the pictures and descriptions, found the correct database file but they work with MEMO fields. For some reason the format is not default and cannot be readout easily (keep in touch).
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.
Code for Category:
#! /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);