请教通过linux的cron调用perl的问题!

jtome · 发表于 2003-12-23 16:39:08

我写了一个perl脚本,手工执行没什么问题,执行结果也正确,但是当我通过cron来调用时,也执行了,执行也没什么错误,就是结果不对,程序如下,大概过程是通过ssh自动登陆到远程计算机,执行oracle数据备份操作,完成后,退出在通过sftp登陆上去下载该文件,通过cron调用后,执行了,但是没有备份文件也没有下载文件.

#!/usr/bin/perl

#

#  backup contract info data

#

# 2003-12-22

#

use Expect;

sub getCurrentDate

{

$now = time();

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($now);

$mon++;

$year+=1900;

if($mday <1)

{

      if($mon ==1 || $mon ==3 || $mon==5 || $mon==7||$mon==8||$mon==10||$mon==12)

      {

            $mday=30;

            if($mon==3 && $year%4==0)

            {

                     $mday = 29;

            }

            elsif($mon ==3)

            {

                     $mday =28;

            }

      }

      else

      {

            $mday = 31;

      }

}

$current_time = $year."-".$mon."-".$mday."-".$hour.":".$min.":".$sec;

return $current_time;

}

$dbIP="192.168.0.21";

$dbUserName="oracle";

$dbPassword="seafox";

$oracleParam="oauser/guandaoa2000";

$backupPath="/home/oracle/backup";

$currentDate=getCurrentDate;

$fileName="OADB$currentDate.dmp";

$backupFile="$backupPath/$fileName";

my $timeout = 2;

my $delay = 0;

my $cmd = "ssh";

my @params=("$dbIP","-l","$dbUserName");

# backup file

print("Begin backup file ....\n");

$exp = Expect->spawn($cmd, @params) or die "Can't spawn $cmd\n"; # create an Expect object by spawning another process

$exp->expect($timeout, -re=>'[Pp]assword:');

$exp->send_slow($delay, "seafox\r\n");

$exp->send("ls\r\n");# send some string there:

$exp->send("exp $oracleParam  file=$backupFile log=$backupPath/OAFileLog.log\r\n");

$exp->send("exit\r\n");

$exp->interact();

$exp->hard_close();

print("db exp finish.\n");

#download file

print("Begin download file ....\n");

$cmd="sftp";

$cmd="sftp $dbUserName\@$dbIP";

$exp = Expect->spawn($cmd) or die "Can't spawn $cmd\n";

$exp->expect($timeout, -re=>'[Pp]assword:');

$an="yes";

#$exp->send_slow($delay, "$an\r\n");

$exp->send_slow($delay, "$dbPassword\r\n");

$exp->send("ls\r\n");

$exp->send("cd $backupPath\r\n");

$exp->send("get $fileName\r\n");

#$exp->send("get /home/oracle/OA.dmp\r\n");

$exp->send("bye\r\n");

$exp->interact();

$exp->hard_close();

print("backup finish !\n");

exit 0;
复制代码

home · 发表于 2003-12-23 20:29:34

好象是路径那里出问题吧。。简单点，直接用文件的全名。

georgek · 发表于 2003-12-23 21:07:38

兄弟的cron 怎樣設置的?

devel · 发表于 2003-12-23 21:25:14

这是CU的apile兄的回复，大家参考一下，和home兄说的相似：

用absolute path..不要用相對路?...
對cron?碚f..沒有PATH等環境變數..
看你好像有連數據庫..請加入Orcale相關參數在你的script裡面
$ENV{XXXX} = "///xx";

cx6445 · 发表于 2003-12-24 11:12:40

我遇见过这种情况，请问你是在哪里做得cron
脚本的cron最好做全局不要做个人的，否则会出现log上记载是成功执行但是却什么也没有做的问题，而同样的脚本放在/etc/crontab就没问题，至少redhat上我碰见过。

georgek · 发表于 2003-12-25 20:16:25

最初由 devel 发表
这是CU的apile兄的回复，大家参考一下，和home兄说的相似：

用absolute path..不要用相對路?...
對cron?碚f..沒有PATH等環境變數..
看你好像有連數據庫..請加入Orcale相關參數在你的script裡面
$ENV{XXXX} = "///xx";

看?泶蠹乙矐擆B成這個良好習慣了

crazys · 发表于 2003-12-26 10:51:25

用户在建立和修改crontab时所属用户和组都是root,最好把这些属性改为你所需要启用crontab的用户和组,,你的用户默认路径是否正确,这个需要你在profile里设定好!

tsingson · 发表于 2003-12-29 12:03:59

主要是环境变量，权限，与程序内变量设置问题。

jtome · 发表于 2004-1-5 09:34:09

非常感谢各位的解答,虽然我的问题还没有解决,谢谢!!

devel · 发表于 2004-1-5 15:36:46

最初由 jtome 发表
非常感谢各位的解答,虽然我的问题还没有解决,谢谢!!

现在有什么问题？

不是路径和。。。。。:ask

“get /home/oracle/OA.dmp\r\n”这些不要\r\n试试。

		自动登录	找回密码
密码			注册

请教通过linux的cron调用perl的问题!

非常感谢各位的解答,虽然我的问题还没有解决,谢谢!!

回复: 非常感谢各位的解答,虽然我的问题还没有解决,谢谢!!