linux 、crontab和perl脚本之间

youyan2007

您好，谢谢您进来看我提的问题，希望有遇到过这个问题或是知道怎么解决的帮帮忙，谢谢了！
问题是：为什么下面的perl脚本用./backup.pl运行正常，但是放到crontab底下就会报错呢？这个脚本是用来备份svn的。
perl脚本：

1. 
   
2. #!/usr/bin/perl -w
   
3. $svn_repos="/opt/svn-repos-test";
   
4. $backups_dir="/home/youyan/svn-backup";
   
5. $next_backup_file = "daily_incremental_backup.".`date +%Y%m%d_%H:%M`;
   
6. open(IN,"$backups_dir/last_backed_up");
   
7. $previous_youngest = <IN>;
   
8. #chomp $previous_youngest;
   
9. close IN;
   
10. $youngest=`svnlook youngest $svn_repos`;
    
11. chomp $youngest;
    
12. if ($youngest eq $previous_youngest)
    
13. {
    
14.    print "No new revisions to back up...\n";
    
15.    exit 0;
    
16. }
    
17. $first_rev = $previous_youngest + 1;
    
18. $last_rev=$youngest;
    
19. print "Backing up revisions $first_rev to $last_rev...\n";
    
20. $svnadmin_cmd = "svnadmin dump --incremental ".
    
21.                 "--revision $first_rev:$last_rev ".
    
22.                 "$svn_repos>$backups_dir/$next_backup_file";
    
23. `$svnadmin_cmd`;
    
24. print "Compressing dump file...\n";
    
25. print `gzip -9 $backups_dir/$next_backup_file`;
    
26. open(LOG,">$backups_dir/last_backed_up"); #记录备份的版本号
    
27. print LOG $last_rev;
    
28. close LOG;
    

复制代码

报的错误：

Date: Fri, 10 Jul 2009 11:43:01 +0800
Message-Id: <200907100343.n6A3h155005897@localhost.localdomain>
From: root@localhost.localdomain (Cron Daemon)
To: root@localhost.localdomain
Subject: Cron <root@localhost> /home/youyan/svn-backup/daily-backup.pl
Content-Type: text/plain; charset=UTF-8
Auto-Submitted: auto-generated
X-Cron-Env: <SHELL=/bin/bash>
X-Cron-Env: <ATH=/etc:/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin>
X-Cron-Env: <MAILTO=root>
X-Cron-Env: <HOME=/>
X-Cron-Env: <LOGNAME=root>
X-Cron-Env: <USER=root>

Use of uninitialized value in scalar chomp at /home/youyan/svn-backup/daily-backup.pl line 7.
Can't exec "svnlook": No such file or directory at /home/youyan/svn-backup/daily-backup.pl line 9.
Use of uninitialized value in scalar chomp at /home/youyan/svn-backup/daily-backup.pl line 10.
Use of uninitialized value in string eq at /home/youyan/svn-backup/daily-backup.pl line 11.
Use of uninitialized value in string eq at /home/youyan/svn-backup/daily-backup.pl line 11.
No new revisions to back up...


但是crontab可以运行简单的.pl文件，这是不是说明crontab对perl中的个别命令不支持呢？而且把perl命令装在shell脚本里，在通过crontab运行也会提示一样的错误！

billypeng

Can't exec "svnlook": No such file or directory at /home/youyan/svn-backup/daily-backup.pl line 9.

$youngest=`svnlook youngest $svn_repos`;  显然svnlook在crobtab中未必找得到，应该用完整路径或者加到crontab的环境变量中。

crontabl与shell下的不同，无非是环境变量或者用户权限的问题

sysengcn

同意 2 楼意见。

有两个建议供参考：

1. 加如下代码到文件开始，以便查看你的脚本运行时的环境：

1. print $_, " : ", $ENV{$_}, "\n" foreach %ENV;

复制代码

注意 $ENV{'PATH'} 是否包含 svnlook 所在目录。

2. 建议任何open语句都应处理异常。例如：

1. open(IN,"$backups_dir/last_backed_up") || die "can't open: $!";

复制代码

youyan2007

不好意思，我刚接触这个方面的东西，您能详细点说吗？比如那行代码里面填哪些内容？为什么要对open处理异常？

sysengcn

原帖由 youyan2007 于 7/9/09 23:57 发表
不好意思，我刚接触这个方面的东西，您能详细点说吗？比如那行代码里面填哪些内容？为什么要对open处理异常？

1. 不需要填什么内容。那行代码只是显示 %ENV 这个 hash 的内容而已。

2. 因为 open 后面的代码往往依赖于 open 成功打开一个文件，然后好往里面读或者写信息。所以最好考虑如果 open 不成功的话该怎么办。大多数情况下， open 不成功，继续后面的代码已经没什么意义了。所以最好对这种情况处理一下。

infernor

crontab问题，十有八九跟环境变量有关。