請問如何在perl 給user 選擇主機選單
譬如說在 shell script 中是
echo "Please Choose Host IP ?"
echo " 1) CGX02 172.17.11.23"
echo " 2) CGX03 172.17.11.24"
echo " 3) CGW03 172.17.12.23"
echo " 4) CGW04 172.17.12.24"
echo " 5) CGT01 172.17.9.51"
read a
if [ "$a" = 1 ]
then
b=172.17.11.23
fi
if [ "$a" = 2 ]
then
b=172.17.11.24
fi
if [ "$a" = 3 ]
then
b=172.17.12.23
fi
if [ "$a" = 4 ]
then
b=172.17.12.24
fi
if [ "$a" = 5 ]
then
b=172.17.9.51
fi
echo $b