in reply to Re: problem getting splits with Finance::QuoteHist-1.12
in thread problem getting splits with Finance::QuoteHist-1.12
These two lines:
#foreach (grep(/\w+/, split(/\s*,\s+/, $split_line))) {
#my($date, $post, $pre) = /^(\S+)\D*(\d+):(\d+)/m;
to these ones
foreach (grep(/\w+/, (split /(=?+\],*)/, $split_line))) {
my($date, $post, $pre) = /^(.+)\[(\d+):(\d+)/m;
Hope is works for you.
IsaacN
|
|---|