Shell Programming and Scripting

ls -1R

#!/usr/bin/ksh
# or bash or dash or ...
# ls2

# directories
dirs=$(find . -type d | sed "s/^.\///")

nowdir=$PWD
# filelist / dir
echo "$dirs" | while read dir
do
        cd "$nowdir/$dir"
        files=$(find . -type f | sed "s/^.\///")
        echo "$files" | while read file
        do
                echo "$dir;$file"
        done
done

chmod a+rx ls2
./ls2 > mylist.csv

# directories
xmlout()
{
cat <<EOF
<File>
  <Dir>$1</Dir>
  <Filename>$2</Filename>
</File>
EOF
}


#MAIN
dirs=$(find . -type d | sed "s/^.\///")

# XML header
cat <<EOF
<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata">
EOF

nowdir=$PWD
# filelist / dir
echo "$dirs" | while read dir
do
        cd "$nowdir/$dir"
        files=$(find . -type f | sed "s/^.\///")
        echo "$files" | while read file
        do
                xmlout "$dir" "$file"
        done
done
echo "</dataroot>"