UNIX for Advanced & Expert Users

#!/usr/bin/perl
use Cwd qw(realpath);
print realpath($ARGV[0]) . "\n" || die "no such file or directory\n";]

 
pwd=$(pwd) # Save current dir value
# Get the dir value in input if it is a filename
dir="$inputDir"
if [ -f "$inputDir" ]; then
     dir=$(dirname "$inputDir")
fi
if [ -d "$dir" ]; then
    # Translate to normal path
    dir=$(cd $dir;pwd)
    cd $pwd
    # Check if dir starts with pwd
    valid=$(echo "$dir" | grep "$pwd.*" | wc -l)
    if [ valid -gt 0 ]; then
       echo "Input parameter is in current dir"
    else
       echo "Input parameter is out of current dir"
    fi
else
   echo "$dir not exists"