Perl script for XML to TSV (tab separated) allowing fast MySQL import

strip.pl

#!/usr/bin/perl -w
use strict;

### Begin

my $file = shift;

open (XML, "</home/scripts/cod/" . $file . ".xml") || die($!);
open (TSV, ">/home/scripts/cod/" . $file . ".tsv") || die($!);

my $header_end = 0;

while(my $line = <XML>) {
        if(!$header_end) {
                if($line =~ m/<root>/) {
                        $header_end = 1;
                }
                next;
        }
        if($line !~ m/<record>/ && $line =~ m/<(.*)>(.*)<\/\1>/) {
          print TSV $2 . "\t";
        }
        if($line =~ m/<\/record>/i) {
                print TSV "\n";
        }
}