#!perl
use strict;
use warnings;
use Finance::TW::TAIFEX;
my $rpt_dir = shift or die 'rpt dir required';
my $taifex = Finance::TW::TAIFEX->new(shift);
$taifex->is_trading_day
or exit(0);
$taifex->ensure_rpt($rpt_dir, 'futures', 'Daily_');
#!perl
use strict;
use warnings;
use Finance::TW::TAIFEX;
my $rpt_dir = shift or die 'rpt dir required';
my $taifex = Finance::TW::TAIFEX->new(shift);
$taifex->is_trading_day
or exit(0);
$taifex->ensure_rpt($rpt_dir, 'futures', 'Daily_');