Shell Programming and Scripting

/u01/data1/project_1/proj_data1/score
/u01/data1/project_1/proj_data1/time/chart
/U01/data1/project_1/proj_data2/score
/U01/data1/project_1/proj_data3/depth/probe
/U01/data1/project_1/proj_data3/all
 
Once I am to the last directory I need to create:
- adminuser
 
So the outcome would be 
 
/u01/data1/project_1/proj_data1/score/adminuser
/u01/data1/project_1/proj_data1/time/chart/adminuser
/U01/data1/project_1/proj_data2/score/adminuser
/U01/data1/project_1/proj_data3/depth/probe/adminuser
/U01/data1/project_1/proj_data3/all/adminuser
 
HOME=”/u01/data1/project_1”

#!/usr/ bin/perl
use File::Basename;
use strict;
chomp(my @dirs=`find $ARGV[0] -type d`);
@dirs=sort {length($b) <=> length($a)} @dirs;
my @out;
for my $dir (@dirs) {
  push @out, dirname($dir);
}
for my $dir (@dirs) {
  mkdir "$dir/adminuser" if !grep {$dir eq $_} @out;
}

perl script.pl /u01/data1/project_1

 find . -depth -type d | awk -F / '(NF>=prev) {print "mkdir "$0"/adminuser"} {prev=NF}'

DIRNAME=LAST_dir_test
dir_values=`ls -ltR | grep '^d' | awk '{print$9}'`
FILE_NAME=values_for_files
 
set -A dir_values_array ${dir_values}
 
for i in ${dir_values_array[@]}
do
 
find `pwd` -name $i | grep -v '^$' >> ${FILE_NAME}
 
done
 
while read line
do
cd $line
mkdir test_test
echo "done"
 
done < ${FILE_NAME}

find ... | awk ... | sh