bigup401 has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: submit data without reload
by poj (Abbot) on Jan 22, 2019 at 12:44 UTC

    See here. You need to escape (\) the $ in the javascript and add jquery.js. Also you need to show the code for test.pl because more errors could be there.

    #!/usr/bin/perl
use strict;
use warnings;

print "Content-type: text/html\n\n";
print <<END_HTML;
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" />
<title>Untitled Document</title>
<script src="jquery-3.1.1.min.js"></script>
<script>
  \$(document).ready(function () {
    \$("#Submit").click(function(event) {
       Execute();
    });

    function Execute(){
      \$.ajax({
        type: 'POST',
        url: 'test1.pl',
        data: { 's': '' },
        success: function(res) {
          alert(res.msg);
        },
        error: function() {
          alert("failed");
        }
      });
    };

  });
</script>
</head>
<body>
<input type="button" id="Submit" name="Submit" value="Submit"/>
</body>
</html>
END_HTML

    [download]
    #!/usr/bin/perl
# test1.pl
use strict;
use JSON; 
use CGI;
my $q = new CGI;
my $json = encode_json(
  { msg => "Time now is ".localtime }
);
print $q->header( -type => 'application/json' ),$json;

    [download]
    poj
[reply]
[d/l]
[select]

      thanks for the logic. it has worked for me. i really appreciate for your effort

      now the problem i have. resluts come in popup window. and want to print resluts on page with no popup. i tried to change it from

      #!/usr/bin/perl
# test1.pl
use strict;
use JSON; 
use CGI;
my $q = new CGI;
my $json = encode_json(
  { msg => "Time now is ".localtime }
);
print $q->header( -type => 'application/json' ),$json;

      [download]
      to 
      #!/usr/bin/perl


use JSON; 
use CGI;
my $q = new CGI;
my $json = encode_json(
  { msg => "Time now is ".localtime }
);

print "Content-type: text/html\n\n";
print $json;

      [download]

      so am getting undefined as error

      because if use print $q->header( -type => 'application/json' ),$json; that means its going to bring a popup window. cgi header generates popup window

[reply]
[d/l]
[select]

        The pop-up is the alert in the Execute() function

          success: function(res) {
    alert(res.msg);
  },

        [download]

        Change to

          success: function(res) {
    \$('#result').text(res.msg);
  },

        [download]

        and add space for the result to html

        <body>
<p id="result" >Time now is :</p>
<input type="button" id="Submit" name="Submit" value="Submit"/>
</body>

        [download]
        poj
[reply]
[d/l]
[select]
Re: submit data without reload
by marto (Cardinal) on Jan 21, 2019 at 20:29 UTC

    This isn't a JavaScript forum. Several answers to your previous posts tell you what research you need to do to learn how to achieve what you are trying to do.

[reply]

Back to Seekers of Perl Wisdom