#!/usr/bin/perl -w
# -------------------------------------------------
use strict;
use Getopt::Long;
use Pod::Usage;
use File::Spec;
Getopt::Long::Configure ("bundling");
use Statistics::R;
# -------------------------------------------------
my $help = 0;
my $force = 0;
my $verbose = 0;
my $result = GetOptions(
	"help|h" =>\$help,
	"force|f"=>\$force, 
	"verbose|v"=>\$verbose,
	);
#--------------------------------------------------
# Assign input data to an arrray
#---------------------------------------------------
scalar (@ARGV) == 1 or die pod2usage(1);
my $fname = $ARGV[0];
my $fnameout = $fname;
$fnameout =~ s/\.\w\w\w$/_conv.csv/;
# -------------------------------------------------
(-e $fname) or die "Unable to find input file: $fname\n";
(-e $fnameout and $force) and die "Output file already exisys. Use -f to force: $fnameout\n";
my ($fin, $fout);
open ($fin, "<$fname") or die "Unable to open file: $fname\n";
open ($fout, ">$fnameout") or die "Unable to open output file: $fnameout\n";
my @headers = qw (Col_1 Col_3 Mean St_Dev);
print $fout (join (",", @headers),"\n");
# -------------------------------------------------
# Chomp all data
# -------------------------------------------------
my $cnt = 0;
my @data=();
my $line;
while (defined($line=<$fin>))
{
	$cnt ++;
	next unless $cnt > 1;				# Skip Header
	chomp($line);
    next if $line =~ /^\s*$/;
    my @cols = split(',',$line);
         push @data,[@cols];
}