test files for perlito

Author: H.Merijn Brand - Tux

csv-pi-easy-pp.pl

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

csv-test-pp-pi.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";

pj-epp.pl

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