Thanks, yeah, I was looking at the FindBin module. But I'm just going to dump all the scripts in the same directory and there's a change, albeit small, this location can change. So I wanted that to be dynamic, so I threw this code into my own module:
But maybe I'm not understanding FindBinour $MyBin; BEGIN { my $file = __FILE__; # get the path to the directory of this file using File::Basename my $package = __PACKAGE__; $package =~ s/::/\//g; # chop off the package name from the end of the file path $file =~ s/$package\.pm//; $MyBin = $file . 'bin'; }
$PM = "Perl Monk's";
$MC = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar Parson";
$nysus = $PM . ' ' . $MC;
Click here if you love Perl Monks
In reply to Re^2: Looking for suggestions for accessing/running scripts needed by a local Perl library
by nysus
in thread Looking for suggestions for accessing/running scripts needed by a local Perl library
by nysus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |