запуск perl скриптов

Основной вариант запуска - через mod_perl
Можно в основной конфиг:

AddHandler perl-script .pl
PerlResponseHandler ModPerl::Registry

Или в .htaccess, в cgi-bin:

Options +ExecCGI
SetHandler cgi-script


В основной каталог (httpdocs, htroot, www, public_html...)
AddHandler cgi-script .pl

Проверочный код:

#!/usr/local/bin/perl -w
print "Content-type: text/html\n\n";
print "It works!<br>\n";

Первая строка при выводе в браузер обязательна: она сообщает, что это страница.

split access_log by months

#!/usr/bin/perl

my $in = @ARGV[0];
open (IN, $in);

my $f = '';

while (my $str = )
{
    $str =~ m#\[(\d{2})/(\w{3})/(\d{4}):.*]#;
    #print "$3$2 $str \n";
    my $cur = "$3$2";
    if ( $cur ne $f)
    {
        if ($f ne '') {close OUT;}

        $f = $cur;
        open (OUT, "> $f-$in");
        print "$f-$in\n";
    }

    print OUT $str;
}


close IN;
close OUT;
#return 0;
exit 0;

#in: parse.pl access_log
#out: 2011Feb-access_log, ...