Shell Programming and Scripting

filetime()
{
        perl  -e '@d=localtime ((stat(shift))[9]); printf "%4d%02d%02d%02d%02d%02d\n", $d[5]+1900,$d[4]+1,$d[3],$d[2],$d[1],$d[0]' "$1"
}
und="_"
count="0"
FFile="/export/home/srcdata1/tTemp"
Flist="$FFile/Filelist"
Ftemp="$FFile/temp"
#$count -eq 0
for int in `ls -l $FFile | grep ^d | awk '{print $9}'`
do
arch="$FFile/Archived"
if [ ! -d arch ]; then
   echo " *******  not inside Arch and also  not in Organised ***** -----*"
   #echo `ls |wc -l`
   find $FFile -type f| awk 'BEGIN{FS="/"} {print $NF}' > $Flist
   while read line
                do
   #echo "  inside while read line "
                        if [ -e $FFile/"$line" ]; then
                                ftime=$(filetime $FFile/"$line" )
                                yyyy=`echo $ftime | cut -c 1-4`
                                mm=`echo $ftime | cut -c 5-6`
                                dd=`echo $ftime | cut -c 7-8`
                                echo "  Added time stamp to file name "
                        else
                                continue
                        fi
     monyyyy=${yyyy}${und}${mm}
                        if [ ! -d $arch/$int$monyyyy ]; then
                        mkdir $arch/$int$monyyyy
                        fi
                        echo $FFile/$int/"$line"
                        echo $arch/$int/$monyyyy/"$line"
                        mv $FFile/$int $arch/$int$monyyyy

   done < $Flist
  # echo " -----------   moved to archived now check ------------"
fi
done

tar cf $arch/$monyyyy.tar $FFile

filetime() {
   # Change %F,%T as needed. See "man strftime"
   perl  -mPOSIX -e 'print POSIX::strftime("%F,%T\n",localtime((stat(shift))[9]))' ; 
}

while read line ; do 
        test ! -e "$FFile/$line" && continue;

        monyyyy=$(filetime "$FFile/$line")
        mkdir -p $arch/$line
        mv "$FFile/$line" $arch/$line/$monyyyy
done

$adir=ARCHIVE_DIR
$sdir=SOURCE_DIR
$flist=/tmp/filelist.$$
# Step 1: Create the list of files
cd $sdir
find . -type f -printf "%T+ %p\n" > $flist

# Step 2: create the directory tree in adir
cd $adir
awk '{ print $2 }' $flist | xargs $DEBUG mkdir -p 

# Step 3: move the files
cd $sdir
cat $flist | 
while read time path ; do
   $DEBUG mv $path $adir/$path/$time
done

...

while read time path ; do
   $DEBUG mv $path $adir/$path/$time
done <$flist