Re^5: @INC from $0

Is matter of order?..(UPDATE: evidently not seen the anonym's answer above..)

BEGIN{($path = $0) =~ s[[\\/][^\\/]+$][];}
BEGIN{ use lib $path;}
[download]

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.

Comment on Re^5: @INC from $0 Download Code

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;}` [download] 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 >` [download] Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]

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;}
[download]

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
>
[download]

Alexander

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

[reply]
[d/l]
[select]