#!/tool/pandora64/bin/perl5.8.8

#MODULES
use strict;
use warnings;
use Pod::Usage;
use Data::Dumper;
use Getopt::Long;
use File::Basename;
use Cwd 'abs_path';
use Data::Dump 'dd'; 
use Data::Dumper qw(Dumper);
use Text::CSV;


#my $output = readCSV($pathToCSV, $columnSeperatorChar, $cellEncapsualtingChar, $outputType, $headingAref, $readLineFrom, $readLineTo, $ignoreFirstLineBool);

my @headerArray = "a,b,c,d,e,f,g,h,i,j,k";
my $headerArrayRef = \@headerArray;

my $pathToCSV = "input.csv";
my $columnSeperatorChar = "";
my $cellEncapsulatingChar = "";
my $outputType = "";
my $headingAref = "$headerArrayRef";
my $readLineFrom = 8;
my $readLineTo = "";
my $ignoreFirstLineBool = 0;

$columnSeperatorChar = "," if ($columnSeperatorChar eq "");
$cellEncapsulatingChar = ""  if ($cellEncapsulatingChar eq "");
$outputType = 'aref' if ($outputType eq "");


my @output;
my $rowCounter = 0;
my @index;
my $currentIndex = 0;


open(my $file, "<", $pathToCSV) or die "File could not be opened $!\n";

=begin comment
if($headingAref ne ""){
    my @headerArrayCopy = @$headingAref;
    print ($file "@headerArrayCopy\n"); #adds header
}

=end comment
=cut


while (my $line = <$file>){
    chomp $line;
    $currentIndex++;

    if ($readLineTo eq ""){
        $rowCounter++;
        $readLineTo = $rowCounter;
    }


    for ($currentIndex >= $readLineFrom and $currentIndex <= $readLineTo){
        my @row = split ("$columnSeperatorChar", $line);
        foreach my $cell (@row){
            $cell = "$cellEncapsulatingChar$cell$cellEncapsulatingChar"
        }

        push @output, \@row;

    }
}

print Dumper(\@output);