perl 执行时报 then: then/endif not found.

枪与玫瑰

d/% ./et.pl
then: then/endif not found.
user1/pass  , sqlplus  

该脚本内容应该没有问题，用了好多年，而且其他服务器上跑得都没有问题！

脚本关键部分如下，不知道为什么一执行就报 then: then/endif not found ，然后$strPolDir =~ "/opt/nokianms/bin/ 执行也不对了

#***************************************
#  For IT environment get SQLPLUS omc
#  PWD from polpasmx.
#*#**************************************
my $strPolDir=`which polpasmx`;
my $user = "";
my $pass = "";
if ( $strPolDir =~ "/opt//bin/" )
{
    my $pol=`polpasmx -omc`;
    chomp($pol);
    $user = "omc";
    $pass = $pol;
print "user/pass $user , $pass";
}
else {print "user1/pass $user , $pass";
}


#*********************************************
# When lock is available, clean-up is started
#*********************************************
my $boolError = 0;
if (0 == 0)
{
    open(outfile , "> /var/opt/nokiaoss/log/pm_cleanup.log");
print "sqlpous $user,$pass";
#   print outfile `sqlplus -S $user/$pass @/opt/reporter/etload/lbin/etload_meas_clean.sql`;  
    close(outfile);

fouter

#*********************************************
# When lock is available, clean-up is started
#*********************************************
my $boolError = 0;
if (0 == 0)
{
    open(outfile , "> /var/opt/nokiaoss/log/pm_cleanup.log");
print "sqlpous $user,$pass";
#   print outfile `sqlplus -S $user/$pass @/opt/reporter/etload/lbin/etload_meas_clean.sql`;  
    close(outfile);


结尾少一个 }

yikexiaocao

then endif应当是shell里面的东西.
猜测你的文件第一行被破坏了.
导致这个东西被默认当成shell脚本来解释.