Question

我有一些问题，我有perl脚本从Perl连接Oracle数据库。它几周前工作正常，但现在导致问题我粘贴了我的代码

typeset -i2 mask=255

[[ $# != 2 ]] && {
   echo "Usage: $0 ipaddress subnetmask"
   exit 1    
}

SaveIFS=$IFS

IFS=.

typeset -a IParr=($1)
typeset -a NMarr=($2)

IFS=$SaveIFS

typeset -i2 ipbin1=${IParr[0]}
typeset -i2 ipbin2=${IParr[1]}
typeset -i2 ipbin3=${IParr[2]}
typeset -i2 ipbin4=${IParr[3]}
typeset -i2 nmbin1=${NMarr[0]}
typeset -i2 nmbin2=${NMarr[1]}
typeset -i2 nmbin3=${NMarr[2]}
typeset -i2 nmbin4=${NMarr[3]}

echo
echo "       IP Address: $1"
echo "      Subnet Mask: $2"
echo "  Network Address: $((ipbin1 & nmbin1)).$((ipbin2 & nmbin2)).$((ipbin3 & nmbin3)).$((ipbin4 & nmbin4))"
echo "Broadcast Address: $((ipbin1 | (mask ^ nmbin1))).$((ipbin2 | (mask ^ nmbin2))).$((ipbin3 | (mask ^ nmbin3))).$((ipbin4 | (mask ^ nmbin4)))"
echo

exit 0

当我试图运行它时，它失败并出现此错误

连接db：ERROR OCIEnvNlsCreate时出错。检查ORACLE_HOME（Linux） env var或PATH（Windows）和/或NLS设置，权限等

我尝试手动连接我没有看到任何问题，但这里导致问题。我已经定义了所有参数..

任何人都可以帮忙吗？

由于潘迪亚

使用perl连接oracle数据库

0 个答案: