kiruthika.bkite has asked for the wisdom of the Perl Monks concerning the following question:

Hi all,

I have designed one form(signup form) using Perl/Tk.
After getting all details in sign-up form I need to pass these values to one function and I need to validate those values in that function.

I have written the code for this.
But what is the problem is ,function get called before getting all the details in the form.

And also this problem(i.e function get called before getting details) is happening when I am calling this function with arguments.

Example
$post_button = $form_name->Button(-text=>"Post",-command=>\&Post_Artic
+le($title_val,$url_val,$description_val))->place(-x=>275,-y=>430);

[download]
  • Comment on Perl/TK : Passing arguments to the function while clicking submit button
  • Download Code

Replies are listed 'Best First'.
Re: Perl/TK : Passing arguments to the function while clicking submit button
by choroba (Cardinal) on Apr 06, 2010 at 09:23 UTC
    The correct syntax for passing arguments to subs is 
    -command => [\&function,$arg1,$arg2]

    [download]
[reply]
[d/l]
      Thanks a lot..
      But I want to know why it is working when I called the function without argument and not working with argument.

      It will be better if you explain this.

      Thanks.
[reply]
        why it is working when I called the function without argument

        Presumably because \&function (without parentheses) is a reference to the function, while \&function(...) is a reference to whatever the called function returned. 

        #!/usr/bin/perl -l

sub function {
    return "foo";
}

$command = \&function;
print $command;

$command = \&function();
print "$command -> $$command";

__END__
$ ./833005.pl
CODE(0x604fd0)
SCALAR(0x604290) -> foo

        [download]
[reply]
[d/l]
[select]
        Could you please be more specific? (A piece of code with both expected and real output would be helpful.)
[reply]

Back to Seekers of Perl Wisdom