2016-07-26 64 views
0

我正在使用从数据库添加用户然后删除数据库的PERL脚本。当我执行它时,代码工作正常。Cron没有在PERL中执行我的系统()语句

use DBI; 
use strict; 
my $database = "database"; 
my $hostname = "123.4.56.78"; 
my $port = "3306"; 
my $user = "user"; 
my $password = "password"; 
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"; 
my $dbh = DBI->connect($dsn,$user,$password) or die "Can't connect to database: ", $DBI::errstr, "\n"; 


my $sql = 'SELECT * FROM somewhere'; 
my $sth = $dbh->prepare($sql); 
$sth->execute(); 
while (my @row = $sth->fetchrow_array) { 
system("useradd -g mygroup -d /home/somewhere/$row[0] -s /sbin/nologin $row[0]"); 
system("echo $row[0]:$row[1] | chpasswd"); 
} 
my $sql_delete = 'TRUNCATE somewhere'; 
my $delete = $dbh->prepare($sql_delete); 
$delete->execute(); 

但是,当我通过Crontab执行它时,系统()语句永远不会执行,并且不会添加用户。尽管它们从数据库本身中删除。

* * * * * perl /var/perl/myperl.pl 

日志说,每分钟:

Jul 26 15:42:01 ex40 CROND[7028]: (root) CMD (perl /var/perl/myperl.pl) 

任何想法?

+3

尝试添加'useradd'的完整路径。 Crontab没有获得环境的副本。 – stevieb

+2

'system'返回什么错误? useradd发送给STDERR的输出是什么? – ikegami

+0

加上第一行#!/ usr/bin/perl;在cron中更改为* * * * */usr/bin/perl /var/perl/myperl.pl –

回答

4

system()调用中包含useradd的完整路径。

Crontab没有得到环境的副本,因此没有设置PATH环境变量。