Hello monks , I am converting an old shell script to perl , I came through this for loop but don't know how to exactlly do it in perl ..
for DIR in `ls -d [a-k]* lts mon [n-z]*`
do
if [ -d $DIR/bld ]; then
cd $DIR/bld
cbsfpfg.exe `echo "cbs"$DIR$RELEASE $DIR`
cd ../..
fi
done
not sure how to change the for loop.don't seem to work when I try :
my $DIR;
for $DIR in `ls -d [a-k]* lts mon [n-z]*`
do
if (-d $DIR/bld){
system (qq(cd $DIR/bld));
system(qq(cbsfpfg.exe `echo "cbs"$DIR$RELEASE $DIR`));
system (qq(cd ../..));
}
done
edited: Mon Aug 5 22:14:09 2002 by jeffa - title change (was: shell problem)