#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;
use Text::CSV;
use File::Basename;
use Text::CSV::Easy(qw/csv_build csv_parse/);
use Getopt::Long::Descriptive(qw/describe_options/);

use lib '/var/app/orchard/collab/jgetter/perllib';
use Orchard::Session;
use Orchard::NameCase;
use Orchard::DB::Connect;
use Orchard::ETL::Extract::CSV;

my $file = shift @ARGV;

my $sales_csv = Orchard::ETL::Extract::CSV->new( $file, 1, undef, "\t" );
$sales_csv->csv->quote_char(undef);
$sales_csv->csv->escape_char(undef);

while ( my $row = $sales_csv->getrow() ) {

	## remove quotes from song 
	$row->{'song'} =~ s/"|'//g;
	$row->{'src_song'} =~ s/"|'//g;

	my $line = $sales_csv->getstr($row);
	
	## remove ^M from line
	$line =~ s/\cJ//; 

	print "$line\n";

}