Search Results

+x is for debugging

I am converting shell script to Perl. In shell I have a code

parse_prog_args()
{
if [ $# -gt 0 ]
then
while [ ! -z "$1" ]
do
case $1 in
-P* | -p* )
export...

I have added several lines to my code

let cnt=0
if [ ${sftp_name} = "EOMMSRPT" ]
then
if [ ${cnt} -eq 0 ]
then
cnt=`expr...