How do I port a shell script to Perl?

Question

This is a shell script , How do I accomplish the same thing in Perl?

prfile=~/sqllib/db2profile

profile()
{
if [ -f $prfile ] && [ \"$prfile\" != \"\" ]         


        

Answer 1

If I understand your objectives, I don't think you can use perl to accomplish this because perl will be running as a child process and it can not change the environment of your shell (it's parent process). Maybe this would work for you (untested, off the cuff)?

prfile=~/sqllib/db2profile
if [ -s "$prfile" ] ; then
   . "$prfile"
else
  while true ; do 
    read -p "Enter a valid Profile : " prfile
    if [ -s "$prfile" ] ; then
       . "$prfile"
       break;
    fi
  done
fi