[GNC] Issue with Finance::Quote

[bernard at deprez.biz]

Hi Bruce,

The version was in the C: path so didn't run the version command ;-) but 
ran it anyway, and I'm on {1.57}

-------- perl -V ----------

C:\Strawberry\cpan\build\Finance-Quote-1.57-0\Examples>perl -V
Summary of my perl5 (revision 5 version 32 subversion 1) configuration:

   Platform:
     osname=MSWin32
     osvers=10.0.19042.746
     archname=MSWin32-x86-multi-thread-64int
     uname='Win32 strawberry-perl 5.32.1.1 #1 Sun Jan 24 12:17:47 2021 i386'
     config_args='undef'
     hint=recommended
     useposix=true
     d_sigaction=undef
     useithreads=define
     usemultiplicity=define
     use64bitint=define
     use64bitall=undef
     uselongdouble=undef
     usemymalloc=n
     default_inc_excludes_dot=define
     bincompat5005=undef
   Compiler:
     cc='gcc'
     ccflags =' -DWIN32 -D__USE_MINGW_ANSI_STDIO -DPERL_TEXTMODE_SCRIPTS 
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -fwrapv 
-fno-strict-aliasing -mms-bitfields'
     optimize='-s -O2'
     cppflags='-DWIN32'
     ccversion=''
     gccversion='8.3.0'
     gccosandvers=''
     intsize=4
     longsize=4
     ptrsize=4
     doublesize=8
     byteorder=12345678
     doublekind=3
     d_longlong=define
     longlongsize=8
     d_longdbl=define
     longdblsize=12
     longdblkind=3
     ivtype='long long'
     ivsize=8
     nvtype='double'
     nvsize=8
     Off_t='long long'
     lseeksize=8
     alignbytes=8
     prototype=define
   Linker and Libraries:
     ld='g++'
     ldflags ='-s -L"C:\STRAWB~1\perl\lib\CORE" -L"C:\STRAWB~1\c\lib"'
     libpth=C:\STRAWB~1\c\lib C:\STRAWB~1\c\i686-w64-mingw32\lib 
C:\STRAWB~1\c\lib\gcc\i686-w64-mingw32\8.3.0
     libs= -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 
-ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr 
-lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
     perllibs= -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool 
-lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid 
-lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
     libc=
     so=dll
     useshrplib=true
     libperl=libperl532.a
     gnulibc_version=''
   Dynamic Linking:
     dlsrc=dl_win32.xs
     dlext=xs.dll
     d_dlsymun=undef
     ccdlflags=' '
     cccdlflags=' '
     lddlflags='-mdll -s -L"C:\STRAWB~1\perl\lib\CORE" 
-L"C:\STRAWB~1\c\lib"'


Characteristics of this binary (from libperl):
   Compile-time options:
     HAS_TIMES
     HAVE_INTERP_INTERN
     MULTIPLICITY
     PERLIO_LAYERS
     PERL_COPY_ON_WRITE
     PERL_DONT_CREATE_GVSV
     PERL_IMPLICIT_CONTEXT
     PERL_IMPLICIT_SYS
     PERL_MALLOC_WRAP
     PERL_OP_PARENT
     PERL_PRESERVE_IVUV
     USE_64_BIT_INT
     USE_ITHREADS
     USE_LARGE_FILES
     USE_LOCALE
     USE_LOCALE_COLLATE
     USE_LOCALE_CTYPE
     USE_LOCALE_NUMERIC
     USE_LOCALE_TIME
     USE_PERLIO
     USE_PERL_ATOF
   Built under MSWin32
   Compiled at Jan 24 2021 12:22:49
   @INC:
     C:/Strawberry/perl/site/lib
     C:/Strawberry/perl/vendor/lib
     C:/Strawberry/perl/lib

-------- END of perl -V ---------

Then set the PERL5LIB:

C:\Strawberry\cpan\build\Finance-Quote-1.57-0\Examples>set 
PERL5LIB=C:\Strawberry\cpan\build\Finance-Quote-1.57-0\lib

C:\Strawberry\cpan\build\Finance-Quote-1.57-0\Examples>perl stockdump.pl 
alphavantage QQQ
Can't use an undefined value as a HASH reference at 
../lib/Finance/Quote/AlphaVantage.pm line 234.


Same issue - so I guess, like John suggested, creating an issue on the 
Finance::Quote page might be the right way forward?

Thanks,
B.


On 27/07/2023 16:27, Bruce Schuck wrote:
> On 7/27/23 10:46 AM, bernard at deprez.biz wrote:
>
>> Just gave that a shot:
>
>> C:\Strawberry\cpan\build\Finance-Quote-1.57-0>perl 
>> Examples\stockdump.pl alphavantage QQQ
>> Can't use an undefined value as a HASH reference at 
>> C:/Strawberry/perl/site/lib/Finance/Quote/AlphaVantage.pm line 234.
>
> You left out the command that shows the version.
>
> C:\Users\bschuck>perl -MFinance::Quote -e "print 
> qq{{$Finance::Quote::VERSION\n}}"
>
> {1.57
> }
>
> It could also be helpful to send the output of "perl -V" (upper case V 
> to be sure). It's only the last 5 to 10 lines that I am interested in 
> at the moment, but the entire output would be okay.
>
> If you don't mind, please also try to set PERL5LIB before running the 
> example script.
>
> C:\Strawberry\cpan\build\Finance-Quote-1.57-0>set 
> PERL5LIB=C:\Strawberry\cpan\build\Finance-Quote-1.57-0\lib
>
> Followed again by:
>
> C:\Strawberry\cpan\build\Finance-Quote-1.57-0>perl 
> Examples\stockdump.pl alphavantage QQQ
> $VAR1 = {
>           'QQQ∟close' => '377.5200',
>           'QQQ∟last' => '376.6200',
>           'QQQ∟currency' => 'USD',
>           'QQQ∟net' => '-0.9000',
>           'QQQ∟date' => '07/27/2023',
>           'QQQ∟low' => '375.3100',
>           'QQQ∟volume' => '63506417',
>           'QQQ∟p_change' => '-0.2384',
>           'QQQ∟method' => 'alphavantage',
>           'QQQ∟symbol' => 'QQQ',
>           'QQQ∟success' => 1,
>           'QQQ∟currency_set_by_fq' => 1,
>           'QQQ∟open' => '382.9700',
>           'QQQ∟isodate' => '2023-07-27',
>           'QQQ∟high' => '384.7100'
>         };
>
> Bruce S.
>
> P.S. - did you forget to Cc the list, or did you mean to reply just to 
> me?
>