Не запускается скрипт на Perl через cron

[bobot]

вот в в кроне я прописал чтоб скрипт запускался каждую минуту

Код: Выделить всё

*/1     *       *       *       *       root    /usr/local/bin/perl  /usr/local/www/mydomain/script.pl

Вот логи крона

Код: Выделить всё

[root@mail /home/bobot]# tail -F  /var/log/cron | grep script
Sep 28 13:06:00 mail /usr/sbin/cron[18420]: (root) CMD (/usr/local/bin/perl /usr/local/www/mydomain/script.pl)
Sep 28 13:07:01 mail /usr/sbin/cron[18877]: (root) CMD (/usr/local/bin/perl /usr/local/www/mydomain/script.pl)
Sep 28 13:08:01 mail /usr/sbin/cron[19291]: (root) CMD (/usr/local/bin/perl /usr/local/www/mydomain/script.pl)
Sep 28 13:09:00 mail /usr/sbin/cron[20290]: (root) CMD (/usr/local/bin/perl /usr/local/www/mydomain/script.pl)
Sep 28 13:10:00 mail /usr/sbin/cron[20736]: (root) CMD (/usr/local/bin/perl /usr/local/www/mydomain/script.pl)

Вроде срабатывает.....но ничего подобного не работает
а если с командной строки

Код: Выделить всё

[root@mail /home/bobot]# /usr/local/bin/perl /usr/local/www/mydomain/script.pl
Message 1R8r1k-0004of-HM has been removed
Message 1R8r1l-0004ow-9r has been removed
Message 1R8r1m-0004pE-JT has been removed
Message 1R8r1q-0004pf-2L has been removed
Message 1R8r1t-0004q3-Lt has been removed
Message 1R8r1v-0004qD-Me has been removed
Message 1R8r1x-0004qI-2T has been removed
Message 1R8r27-0004rA-Gy has been removed
Message 1R8r2B-0004rg-Pf has been removed
Message 1R8r2C-0004s7-VD has been removed
Message 1R8r2D-0004sD-Oo has been removed
Message 1R8r2F-0004sW-2T has been removed
Message 1R8r2G-0004sf-8O has been removed
Message 1R8r2K-0004sw-Cu has been removed
Message 1R8r2M-0004tK-8p has been removed
Message 1R8r2S-0004tq-EI has been removed
Message 1R8r2d-0004v5-4D has been removed
Message 1R8r2e-0004vG-9n has been removed
Message 1R8r2k-0004vu-FH has been removed
Message 1R8r2k-0004vz-G2 has been removed
Deleting count: 66

То работает....в чём же дело?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Electronik]

а если

Код: Выделить всё

*/1     *       *       *       *       root    /usr/bin/perl -w /usr/local/www/mydomain/script.pl

[bobot]

а если

Код: Выделить всё

*/1     *       *       *       *       root    /usr/bin/perl -w /usr/local/www/mydomain/script.pl

Тоже самое (((

а если

Код: Выделить всё

root#/usr/local/bin/perl -w  /usr/local/www/mail.univ.kiev.ua/script.pl
Name "main::recips" used only once: possible typo at /usr/local/www/mydomain/script.pl line 14.
Name "main::state" used only once: possible typo at /usr/local/www/mydomain/script.pl line 13.

И дальше работает скрипт

[sudo]

А если в кроне прописать путь к модулям Perl ?

Код: Выделить всё

# perl -e 'print join("\n", @INC);'

[bobot]

А если в кроне прописать путь к модулям Perl ?

Код: Выделить всё

# perl -e 'print join("\n", @INC);'

Всё равно нет

вот логи

Код: Выделить всё

(/usr/local/bin/perl -e 'print join("\n", @INC);' /usr/local/www/mydomain/script.pl)
Sep 29 11:27:01 mail /usr/sbin/cron[83005]: (root) CMD (/usr/local/bin/perl -e 'print join("\n", @INC);' /usr/local/www/mydomain/script.pl)

не срабатывает (

[skeletor]

Может быть в самом скрипте используются внешние команды без полного пути?

[bobot]

Может быть в самом скрипте используются внешние команды без полного пути?

вот скрипт я взял с этого форума

Код: Выделить всё

#!/usr/bin/perl

my $ar = "";

if ($#ARGV == -1) {
    $ar="q";
}
$ar= shift(@ARGV);

open ( MQ, "/usr/local/sbin/exim -bp|") or die "can't run the exim command\n";

$count = 0;
$state = 0;     # simple state machine
$recips = 0;
while ( <MQ> ) {
  $line = $_;
  chop $line;
  if($line =~ /\<\>/) {
        if($line =~ /(.*) (.*) (.*) \<\>/) {
                $ident = $3;
                system("exim -Mrm ". $ident);
                $count++;
        }
  }
  if($line =~ /\|/) {
        if($line =~ /(.*) (.*) (.*) (.*)/) {
                $ident = $3;
                system("exim -Mrm ". $ident);
                $count++;
        }
  }
}
close(MQ);

print "Deleting count: ". $count."\n";

# end

[skeletor]

У вас в первой строке /usr/bin/perl, а почему вы запускаете через /usr/local/bin/perl ? Где на самом деле у вас установлен perl? Видимо везде нужно /usr/local/bin/perl. Да и кстати, строка

Код: Выделить всё

system("exim -Mrm ". $ident);

явно без полного пути к exim'y. Тоже поправьте.

[bobot]

У вас в первой строке /usr/bin/perl, а почему вы запускаете через /usr/local/bin/perl ? Где на самом деле у вас установлен perl? Видимо везде нужно /usr/local/bin/perl. Да и кстати, строка

Код: Выделить всё

system("exim -Mrm ". $ident);

явно без полного пути к exim'y. Тоже поправьте.

Благодарочка работает

[maxcec]

спасибо пригодилось