#!/usr/bin/perl

require "jutil.pm";

my $apath = "./adir/../../../../../\${JUTIL_HOME}_abc/../\${DISPLAY}cdir/../jutil/ffile/bdir/b.v";
$apath = join("/",pathoptimize(envvar2word($apath)));
print "[$apath]\n";
if(-e $apath) { print "$apath exist.\n";}
if(-f $apath) { print "$apath file exist.\n";}
if(-d $apath) { print "$apath dir exist.\n";}

$apath = "\$JUTIL_HOME/ffile//./adir";
$apath = join("/",pathoptimize(envvar2word($apath)));
print "[$apath]\n";
if(-e $apath) { print "$apath exist.\n";}
if(-f $apath) { print "$apath file exist.\n";}
if(-d $apath) { print "$apath dir exist.\n";}