X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=text%2Ffix_split_csv;fp=text%2Ffix_split_csv;h=64d2182ba661d593ff2be7bfe5e4322f97eda57e;hp=0000000000000000000000000000000000000000;hb=f9201dc2d1699f5161e5e29690a1634e8063bb85;hpb=d1812fa8c4c9e220978d650adb3611c978a2a56b

diff --git a/text/fix_split_csv b/text/fix_split_csv
new file mode 100755
index 0000000..64d2182
--- /dev/null
+++ b/text/fix_split_csv
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+my $delimiter = "\t";
+my $colcount = 11;
+
+my $running_field_count = 0;
+
+while (my $line = <>) {
+	chomp $line;
+	print $line;
+	my @f = split /$delimiter/, $line;
+	if (scalar(@f) != 1) {
+		$running_field_count += scalar(@f);
+	}
+	if ($running_field_count >= $colcount) {
+		$running_field_count = 0;
+		print "\n";
+	}
+}
+