ksh 2 perl

debut dans ce langage PERL, j'ai des difficulté pour trans former un script
shell ksh en perl.
pouvez-vous m'aider!

Bonjour,

debut dans ce langage PERL, j'ai des difficulté pour trans former un
script

shell ksh en perl.
pouvez-vous m'aider!
merci par avance.

Exemple 1 :
#!/usr/bin/ksh

# verification nombre parametre

if test $# -ne 1

then

echo "$0 <PARM>"

cr=1

return $cr

exit $cr

fi



# verification si le nom du parametre est declare dans /etc/appli.parm

OPTION=$1

PARM=`cat /ets/appli.parm | grep -v '#' | grep $OPTION | tr -s «» |
cut -d':

' -f2`

if test -z "$PARM"

then

echo "$OPTION n est pas declare dans /etc/appli.parm"

cr=1

return $cr

exti $cr

fi



# verification si appli est demarre et est accessible

/usr/local/bin/verif_$PARM.ksh $PARM

cr=$?

if test $cr -eq 1

then

echo "l appli appli_$PARM n est pas demarre"

return $cr

exit $cr

else

if test "$cr" -eq 2

then

echo "l appli appli_$PARM n est pas accessible »

return $cr

exit $cr

fi

fi



# traitement

/usr/local/bin/appli_$PARM.ksh $PARM



Exemple 2 :

# fonction usage

_usage_()

{

echo « /usr/local/bin/appli_$PARM.ksh $PARM »

}



# verification nombre parametre

if test $# -ne 1

then

_usage_

cr=1

return $cr

exit $cr

fi



# declaration options

while getopts b:t:p:s: _options_ $*

do

case $_options_ in

d) _dflag_='1' _dval_ = "$OPTARG";;

t) _tflag_='1' _tval_ = "$OPTARG";;

p) _pflag_='1' _pval_ = "$OPTARG";;

s) _sflag_='1' _sval_ = "$OPTARG";;

*) cr='1'

return $cr

_usage_

exit $cr

esac

done

.......

suite ........

...............



qpj

pas bien le multi post, pas bien !

-- dominix