Shell Programming and Scripting

 
#!C:/perl/bin
use warnings;
use strict;
use Text::CSV_XS;
my @rows = "";
my $row;
my $count;
my $fh;
my @fields = "";
my $csv = Text::CSV_XS->new ({binary =>1}) or
die "cannot use CSV:" .Text::CSV->error_diag ();
open $fh,"<:encoding(utf8)","week.csv" or die "week.csv";
while($row = $csv->getline($fh))
{
if($row->[20] == "null"){
for ($count=1; $count<=13; $count++)
{
 $row->[$count] = "null";
 
 }
 }
 push @rows,$row;
 }
 
 $csv->eof or $csv->error_diag ();
 
 close $fh;
 
$csv->eol("\r\n");
 open $fh,">:encoding(utf8)", "week.csv" or die "new.csv: $!";
 $csv->print ($fh,$_) for @$row;
 
 close $fh or die "new.csv:$!";

if($row->[20] eq ''){

$csv->print ($fh,$_) for @rows;