Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^5: @INC from $0

by Discipulus (Canon)
on Jul 24, 2015 at 07:51 UTC ( [id://1136131]=note: print w/replies, xml ) Need Help??


in reply to Re^4: @INC from $0
in thread @INC from $0

Is matter of order?..(UPDATE: evidently not seen the anonym's answer above..)
BEGIN{($path = $0) =~ s[[\\/][^\\/]+$][];} BEGIN{ use lib $path;}

gives no error.

L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re^6: @INC from $0
by afoken (Chancellor) on Jul 24, 2015 at 08:15 UTC
    BEGIN{($path = $0) =~ s[[\\/][^\\/]+$][];} BEGIN{ use lib $path;}

    use implies BEGIN, so that BEGIN should not be needed.

    There is a simpler way: use lib do { ... }, shown in Re^2: Calculations before using lib;. Combined with the s///r syntax from newer perls, this can be collapsed to use lib do { $0=~s[[\\/][^\\/]+$][]r };.

    Also note that $0 may not always contain an absolute path:

    >cat tmp.pl #!/usr/bin/perl use strict; use warnings; print "$0\n"; >chmod +x tmp.pl >perl tmp.pl tmp.pl >perl ./tmp.pl ./tmp.pl >perl /tmp/tmp.pl /tmp/tmp.pl >./tmp.pl ./tmp.pl >tmp.pl ./tmp.pl >

    Alexander

    --
    Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1136131]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2024-03-28 17:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found