Как заставить скрипты Perl выполняться только тогда, когда пользователь нажимает на ссылку/кнопку и т. Д.

Question

У меня мало скриптов Perl, которые выполняются, даже если мы передаем URL-адрес в адресной строке браузера. Я просто хочу остановить это поведение. То, что я хочу, - это когда пользователь нажимает кнопку или ссылку, на которую прикреплены скрипты, и только они должны получить выполнение.

www.example.com/cgi-bin/abc.cgi --- Should not work. 

<button on-click="/cgi-bin/abc.cgi"> Execute me </button> -- it should work 

Как это сделать?

Answer 1

Вы можете сделать это, есть два способа сделать это. Один, когда нажатие кнопок вы можете отправить форму с помощью метода POST, а код должен быть только выполнить, когда сценарий вызывается с помощью метода POST, например:

HTML:

<form method="POST" action="/cgi-bin/abc.cgi"><input type="submit" name="submit_button" value="Execute me"><form> 

Perl код:

if($ENV{REQUEST_METHOD} eq 'POST') { 
    ## execute special code 
} 

Два, вы можете проверить наличие параметра в строке запроса:

HTML:

<input type="button" value="Execute me" onClick="window.location.href='/cgi-bin/abc.cgi?doExecute=1';"> 

Perl:

use CGI; 

my $cgi = new CGI; 

if(defined $cgi->param('doExecute') && $cgi->param('doExecute')) { 
    ## execute special code 
} 

Я надеюсь, что это помогает.