scriptname - Locate original perl script
use scriptname; use lib scriptname::mydir . '/../lib';
use scriptname lib => '../lib';
use scriptname ':all'; my $scriptbasename = mybase;
you can also use
no scriptname lib => '../lib';
to remove a relative path from
@INC. As a special case,
use scriptname 'lib';
is equivalent to
use scriptname lib => 'lib';
(unshift the path to the current script + 'lib' in @INC)
Locates the full path to the current script's directory to allow the use of of paths relative to the script's directory. Also, unshift paths relative to the script's directory in @INC.
This allows a user to setup a directory tree for some software with directories
<root>/lib, and then the above example will allow the use of modules in the lib directory without knowing where the software tree is installed, even if the name by which the script was called is a symbolic link to the path where the
../bin and the
../lib actually are.
If perl is invoked using the -e option or the perl script is read from
STDIN then the module sets
mydir to the current working directory.
fully qualified path for the script (with all links resolved), undef if called from
myname, or undef
myname, or the current working directory if called from
The result of
myname is also put in
$0 unless called from
chdir() too early
The module croaks if the script can manage to call
chdir() before the
Please, don't do that.
The module can, under some circumstances, not croak even if the the script called
chdir() before the
use. In that case, the returned results can be WRONG. So, as I said, please, don't do that.
perl5.8 and the standard modules
Also depends on
scriptname does not search PATH. It makes one of the following assumptions:
$0comes with an absolute filename (starting from root)
This can happen:
$0comes with a filename relative to the current directory
scriptname follows symbolic links.
scriptname has the lib option, to prepend library paths relative to
scriptname::mydir to @INC.
See "KNOWN ISSUES".
Please report any bugs or feature requests to
email@example.com, or through the web interface at http://rt.cpan.org.
firstname.lastname@example.org, for pointing a silly mistake in my tests
Optionally, instead of using the Perl 5 programming language licensing terms, you are also autorized to redistribute and/or modify it under the terms of any of the following licenses, at your will: GNU LGPLv2, GNU LGPLv3, CC-LGPLv2, CC-By-SAv3.0.
Please notice that the alternatives given in the previous paragraph apply only for this module and other modules where explicitly stated.
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
Humberto Massa <email@example.com>
This software is copyright (c) 2013 by Humberto Massa.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.