Convert shell script to Perl

Shell Programming and Scripting
1

Hello,,I have a very small script that contains these lines; and it works perfectly; however I need to use Perl now as I will need to feel variables from a MySQL table into this; to it would be nice to start by converting this first...

find / -perm 777 \( -type f -o -type d \) -exec ls -lid {} \; | while read a b c d e f g h i j
do 
  type=`echo $b | awk '{print substr($0,1,1)}'`
  case $type in
       -) type="f"
          fordname=`basename $j`
          pathname=`dirname $j`;;
       d) fordname=`basename $j`
          pathname=`dirname $j`;;
  esac
  rights=`echo $b | awk '{print substr($0,2,9)}'`

  #write to file: hostname,type('f' or 'd'),file or directory name,pathname(only if type is 'f'),rights,user,group,size,mmm dd hh:mm(or yyyy) 
  echo "`hostname`|$type|$fordname|$pathname|$rights|$d|$e|$f|$g $h $i|$dd|$a\r"
done >/tmp/777permlst`hostname`.psv

Here's a sample of the output this produces:

pike|d|ssh|/etc/bat2|rwxrwxrwx|root|sys|8192|Jan 18 2008|120602|3097
pike|d|jre|/opt/VRTSob|rwxrwxrwx|daemon|bin|8192|Mar 17 14:02|120602|52505
pike|d|.systemPrefs|/opt/VRTSob/jre|rwxrwxrwx|daemon|bin|96|Oct 24 2007|120602|52510
pike|d|bin|/opt/VRTSob/jre|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52513
pike|d|IA64N|/opt/VRTSob/jre/bin|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52527
pike|d|IA64W|/opt/VRTSob/jre/bin|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52541
pike|d|lib|/opt/VRTSob/jre|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52553
pike|d|audio|/opt/VRTSob/jre/lib|rwxrwxrwx|daemon|bin|96|Oct 24 2007|120602|52574
pike|d|cmm|/opt/VRTSob/jre/lib|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52576
pike|d|ext|/opt/VRTSob/jre/lib|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52582
pike|d|fonts|/opt/VRTSob/jre/lib|rwxrwxrwx|daemon|bin|8192|Oct 24 2007|120602|52588
pike|d|IA64N|/opt/VRTSob/jre/lib|rwxrwxrwx|daemon|bin|8192|Mar 17 14:02|120602|52598
pike|d|headless|/opt/VRTSob/jre/lib/IA64N|rwxrwxrwx|daemon|bin|96|Oct 24 2007|120602|52629
pike|d|motif21|/opt/VRTSob/jre/lib/IA64N|rwxrwxrwx|daemon|bin|96|Oct 24 2007|120602|52631

So I need to do the same thing in Perl...any takers?

Thanks

2

Perhaps you should take a look at the documentation perldoc File::Find and perldoc -f stat