http://www.perlmonks.org?node_id=422436


in reply to Re^2: AI::NNEasy to setup fast a Neural Network using just Perl and XS.
in thread AI::NNEasy to setup fast a Neural Network using just Perl and XS.

One thing. There are a few warnings being issued from Class::HPLOO:

Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla +ss/HPLOO.pm line 784, <STDIN> line 2. "my" variable $class masks earlier declaration in same scope at c:/Per +l/site/lib/Class/HPLOO.pm line 993, <STDIN> line 2. Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla +ss/HPLOO.pm line 1102, <STDIN> line 2. "my" variable $fh masks earlier declaration in same scope at c:/Perl/s +ite/lib/Class/HPLOO.pm line 1320, <STDIN> line 2.

And also from you sample program:

P:\test>422423 "my" variable $out masks earlier declaration in same scope at P:\test\ +422423.pl line 31. 0 0 => 0 0 1 => 1

Replies are listed 'Best First'.
Re^4: AI::NNEasy to setup fast a Neural Network using just Perl and XS.
by gmpassos (Priest) on Jan 15, 2005 at 18:41 UTC
    What version of Class::HPLOO have you used?

    Graciliano M. P.
    "Creativity is the expression of liberty".

      From the source

      package Class::HPLOO ; use 5.006 ; use Filter::Simple ; use strict ; use vars qw($VERSION $SYNTAX) ; $VERSION = '0.19';

      I tried the usual perl -MClass::HPLOO -le"print $Class::HPLOO::VERSION" but that prints nothing?

      And with warnings I get

      [20:02:40.59] P:\test>perl -MClass::HPLOO -lwe"print $Class::HPLOO::VE +RSION" Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla +ss/HPLOO.pm line 784. "my" variable $class masks earlier declaration in same scope at c:/Per +l/site/lib/Class/HPLOO.pm line 993. Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla +ss/HPLOO.pm line 1102. "my" variable $fh masks earlier declaration in same scope at c:/Perl/s +ite/lib/Class/HPLOO.pm line 1320. Use of uninitialized value in numeric eq (==) at c:/Perl/site/lib/Clas +s/HPLOO.pm line 595. Use of uninitialized value in pattern match (m//) at c:/Perl/site/lib/ +Class/HPLOO.pm line 602. Use of uninitialized value in string eq at c:/Perl/site/lib/Class/HPLO +O.pm line 602. Use of uninitialized value in numeric le (<=) at c:/Perl/site/lib/Clas +s/HPLOO.pm line 602. Use of uninitialized value in substr at c:/Perl/site/lib/Class/HPLOO.p +m line 716. print() on unopened filehandle 0.19 at -e line 1.

      Examine what is said, not who speaks.
      Silence betokens consent.
      Love the truth but pardon error.
        I just have posted Class::HPLOO/0.20 with this fixes.

        Graciliano M. P.
        "Creativity is the expression of liberty".