13

Convert shell script to Perl

view full story
linux-howto

http://www.unix.com – 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... Code: 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`;;     &nbs (HowTos)