CentOS 7
Ads

Perl + mod_perl
2015/07/30
 
Install mod_perl to make Perl scripts be fast.
[1] Install mod_perl.
# install from EPEL

[root@www ~]#
yum --enablerepo=epel -y install mod_perl
[2] Configure PerlRun mode which always put Perl interpreter on RAM.
[root@www ~]#
vi /etc/httpd/conf.d/perl.conf
# line 15: uncomment ( check codes and output warnings to logs )

PerlSwitches -w
# line 24: uncomment

PerlSwitches -T
# line 30-36: uncomment like follows

Alias /perl /var/www/perl
<Directory /var/www/perl>
# the directory for mod_perl environment

    SetHandler perl-script
# processes files as perl-scripts under this directory

#    AddHandler perl-script .cgi
# set specific extension if do do not want to processes all files as CGI

#    PerlResponseHandler ModPerl::Registry
   
PerlResponseHandler ModPerl::PerlRun
# specify PerlRun mode

    PerlOptions +ParseHeaders
    Options +ExecCGI
</Directory>
# line 43-49: uncomment and add like follows

<Location /perl-status>
    SetHandler perl-script
    PerlResponseHandler Apache2::Status
   
Require ip 127.0.0.1 10.0.0.0/24
# add access permission

#    Order deny,allow
#    Deny from all
#    Allow from .example.com
</Location>
[root@www ~]#
systemctl restart httpd

[3] Create a test Script to make sure the settings are no ploblem. It's OK if the result like follows is displayed.
[root@www ~]#
mkdir /var/www/perl

[root@www ~]#
vi /var/www/perl/test-mod_perl.cgi
#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/html\n\n";
print "<html>\n<body>\n";
print "<div style=\"width:100%; font-size:40px; font-weight:bold; text-align:center;\">";

my $a = 0;
&number();

print "</div>\n</body>\n</html>";

sub number {
    $a++;
    print "number \$a = $a";
}

[root@www ~]#
chmod 705 /var/www/perl/test-mod_perl.cgi

[4] Configure Registry mode which has caches of codes on RAM.
[root@www ~]#
vi /etc/httpd/conf.d/perl.conf
Alias /perl /var/www/perl
<Directory /var/www/perl>
    SetHandler perl-script
    PerlResponseHandler ModPerl::Registry
# uncomment

#
   PerlResponseHandler ModPerl::PerlRun
# comment out

    PerlOptions +ParseHeaders
    Options +ExecCGI
</Directory>
[root@www ~]#
systemctl restart httpd

[5] Access to the test script which is an example of [4] section, then variable increases by reloading because variable is cached on RAM. So it's necessarry to edit the code for Registry mode.
[root@www ~]#
vi /var/www/perl/test-mod_perl.cgi
#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/html\n\n";
print "<html>\n<body>\n";
print "<div style=\"width:100%; font-size:40px; font-weight:bold; text-align:center;\">";

my $a = 0;
&number(
$a
);
print "</div>\n</body>\n</html>";

sub number {
    my($a) = @_;

    $a++;
    print "number \$a = $a";
}
[6] By the way, it's possible to see the status of mod_perl to access to "http://(hostname or IP address)/perl-status".
 
Tweet