Shell Programming and Scripting

$ cat infile
hi,i,"am , sam", y
hello ,good, morning
abcd, " ef, gh " ,ij
no, "good,morning", yes, "good , afternoon"

$ cat ./prog
#!/usr/bin/perl -w
use strict;

while (<>)
{
my @arr=split(',',$_);
my $startpos;
my $endpos;

#determining sarting and ending position of the quotes
for(my $i=0;$i<@arr;$i++)
{
        $startpos=$i    if ( $arr[$i] =~ /^( *)"/ );
        $endpos=$i      if ( $arr[$i] =~ /"( *)$/ );
}

#clubiing the elemnts between Starting and ending quotes in one element and removing redundant entities
for (my $i=0; $i<@arr; $i++)
{
        if ( defined($startpos) && $i == $startpos )
        {
                for ( my $j=$startpos+1; $j <=$endpos;$j++)
                {
                        $arr[$i] .= ",".$arr[$j];
                        $arr[$j] = undef;
                }
        }
}

#removing undef entities from the array
@arr=grep defined, @arr;

for(my $i=0;$i<@arr;$i++)
{
        print "\$arr[$i] = "."$arr[$i]"."\n";
}

}

no, "good,morning", yes, "good , afternoon"

$ ./prog infile
$arr[0] = hi
$arr[1] = i
$arr[2] = "am , sam"
$arr[3] =  y

$arr[0] = hello
$arr[1] = good
$arr[2] =  morning

$arr[0] = abcd
$arr[1] =  " ef, gh "
$arr[2] = ij

$arr[0] = no
$arr[1] =  "good
$arr[2] = morning"
$arr[3] =  yes
$arr[4] =  "good , afternoon"

$ ./prog infile
$arr[0] = hi
$arr[1] = i
$arr[2] = "am , sam"
$arr[3] =  y

$arr[0] = hello
$arr[1] = good
$arr[2] =  morning

$arr[0] = abcd
$arr[1] =  " ef, gh "
$arr[2] = ij

$arr[0] = no
$arr[1] =  "good,morning"
$arr[2] =  yes
$arr[3] =  "good , afternoon"

 #!/usr/bin/perl
    use strict;
    use warnings;
    use Text::CSV;

    my $file = 'MyCSV.csv';

 my $csv = Text::CSV->new({allow_loose_quotes=>0,
                                quote_space=>0,
                        allow_whitespace=>1});
    open (CSV, "<", $file) or die $!;

    while (<CSV>) {
        if ($csv->parse($_)) {
            my @columns = $csv->fields();
                for(my $i=0;$i<@columns;$i++)
{
        print "\$arr[$i] = "."$columns[$i]"."\n";
}
        } else {
            my $err = $csv->error_input;
            print "Failed to parse line: $err";
        }
    }
    close CSV;

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

my $flag=0;

while (<>)
{
my @arr=split(',',$_);
my $startpos;
my $endpos;
for(my $i=0;$i<@arr;$i++)
{
        #print " hi 3- $arr[$i] \n";
        if ( $arr[$i] =~ /\"/ && $flag eq 0) {
                $startpos=$i;
                $flag=1;
        } elsif ($flag eq 1 ) {
                        if( $arr[$i] =~ /\"/) {  $arr[$startpos] .= ",".$arr[$i];
                                                        print " \$arr[$startpos]  - $arr[$startpos] \n";
                                                        $flag=0
                                                     } else { $arr[$startpos] .= $arr[$i] }
        } else  {
                print "\$arr[$i]- $arr[$i] \n";
        }
}
}