#!/bin/ksh
__RENAME() {
NewFileName=$(cat /tmp/x$filename)
print $NewFileName
mv /tmp/temp/$filename /tmp/temp/$NewFileName
return
}
set -A file $(ls /tmp/temp)
dir=/tmp/temp
filenum=${#file[@]}
p=0
while (( p < filenum ))
do
c=0
filename=${file[$p]}
filenamelen=${#filename}
while (( c < filenamelen ))
do
typeset -l t=${filename:$c:1}
print -n $t >> /tmp/x$filename
((c+=1))
done
__RENAME
((p+=1))
done