Add competitors for comparison

Author: H.Merijn Brand - Tux

README

@@ -0,0 +1,19 @@
+sh$ for i in $(seq 1 1000000); do echo 'hello,","," ",world,"!"'; done > /tmp/hello.csv
+sh$ time perl csv.pl < /tmp/hello.csv
+
+Text::CSV_XS		  0.038
+Text::CSV_PP		  0.651
+Text::CSV::Easy_XS	  0.022
+Text::CSV::Easy_PP	  0.018
+Pegex::CSV		  1.947
+csv.pl			 12.543
+test.pl			256.985
+
+time perl  csv-easy-pp.pl < /tmp/hello.csv
+time perl  csv-easy-xs.pl < /tmp/hello.csv
+time perl  csv-test-pp.pl < /tmp/hello.csv
+time perl  csv-test-xs.pl < /tmp/hello.csv
+time perl  csv-pegex.pl   < /tmp/hello.csv
+time perl6 csv.pl         < /tmp/hello.csv
+time perl6 test.pl        < /tmp/hello.csv
+

csv-easy-pp.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Text::CSV::Easy_XS qw(csv_parse);
+
+my $sum = 0;
+while (my $line = <>) {
+    my @row = csv_parse ($line);
+    $sum += @row;
+    }
+print "$sum\n";

csv-easy-xs.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Text::CSV::Easy_XS qw(csv_parse);
+
+my $sum = 0;
+while (my $line = <>) {
+    my @row = csv_parse ($line);
+    $sum += @row;
+    }
+print "$sum\n";

csv-pegex.pl

@@ -0,0 +1,13 @@
+#!/pro/bin/perl
+
+use 5.16.2;
+use warnings;
+
+use Pegex::CSV;
+
+local $/;
+my $sum = 0;
+for (@{Pegex::CSV->load (<>)}) {
+    $sum += scalar @$_;
+    }
+say $sum;

csv-test-pp.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Text::CSV_PP;
+
+my @rows;
+my $csv = Text::CSV_PP->new ({ binary => 1, auto_diag => 1 } )
+    or die "Cannot use CSV: ", Text::CSV->error_diag ();
+
+my $sum = 0;
+while (my $row = $csv->getline (*ARGV)) {
+    $sum += scalar @$row;
+    }
+print "$sum\n";

csv-test-xs.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Text::CSV_XS;
+
+my @rows;
+my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 } )
+    or die "Cannot use CSV: ", Text::CSV->error_diag ();
+
+my $sum = 0;
+while (my $row = $csv->getline (*ARGV)) {
+    $sum += scalar @$row;
+    }
+print "$sum\n";