#!/usr/bin/perl
use strict;
use warnings;

use Finance::YahooQuote;


# ================================
# read_info
# @symbols = read_info( $file_name )
# ================================
sub read_info {
    open FILE, '<',  $_[0]        || die "Couldn't open file: $!";
    my @info;
    while ( <FILE> ) {
        chomp;
        push ( @info, $_ );
    }
    close( FILE );
    return @info;
}


my $symbols_filename        = shift @ARGV;
my $columns_filename        = shift @ARGV;
my $quotes_filename         = shift @ARGV;

unless ( defined( $symbols_filename ) ) {
    die "Error you must provide a symbols filename!\n";
}

unless ( defined( $columns_filename ) ) {
    die "Error you must provide a columns filename!\n";
}

unless ( defined( $quotes_filename ) ) {
    die "Error you must provide a quotes filename!\n";
}

my @symbols = read_info( $symbols_filename );

my @columns = read_info( $columns_filename );

my $arrptr = getcustomquote(\@symbols, \@columns);

my $i = 0;

open QUOTESFILE,  '>', $quotes_filename
       || die "Couldn't open file: $!";

foreach my $symbol (@symbols){
    my @quotes = @{$arrptr->[$i++]};
    print QUOTESFILE "$symbol\t@quotes\n";
}

close( QUOTESFILE );