in reply to Re^6: perl eval
in thread perl eval

#my $param = 'egal("7006","7006")';
#eval print $param;
egal("7006","7006");

sub egal () {
};

[download]

dies for me, with quite an instrutive message. What does it do for you?

Replies are listed 'Best First'.
Re^8: perl eval
by paribasu (Initiate) on Jul 05, 2010 at 19:13 UTC
    I am not getting any message.
[reply]

      Oh - sorry - I should test my postings. You're not running with warnings, otherwise, you would have seen the following warning:

      > perl -w tmp.pl
main::egal() called too early to check prototype at ..\tmp.pl line 3.

      [download]

      What I meant to post was this: 

      #my $param = 'egal("7006","7006")';
#eval print $param;

sub egal () {
};

egal("7006","7006");

      [download]

      which outputs

      > perl -w tmp.pl
Too many arguments for main::egal at ..\tmp.pl line 7, near ""7006")"
Execution of ..\tmp.pl aborted due to compilation errors.

      [download]

      Which is what also happens in your eval but which you never output because you never check for that. See previous posts on what to do.

[reply]
[d/l]
[select]

        At last after a long fight I figured it out. It was due to defining the egal sub which is like: 

        sub egal () {
     # ....
}

        [download]

        # Rather than: 

        sub egal {
     # ....
}

        [download]

        This was imposing argument prototypes on egal (i.e. no args). This was the reason why Perl can't find the sub when an argument is passed.

[reply]
[d/l]
[select]
Re^8: perl eval
by paribasu (Initiate) on Jul 05, 2010 at 19:19 UTC

    Have you run my second piece of code.. What is it's output??

[reply]

In Section Seekers of Perl Wisdom