Re^4: 'do' command is dead? Surely not?

Thanks both, nice tips.

Can confirm that both 'test.pl' and 'test-response.pl' are recognised in the following tests

my @files=();
@files=glob('*');
print join("\n",@files),"\n";
[download]

and

use Data::Dump qw( pp );
pp <*.pl>;
[download]

and that this test yields '/home/Andy/Desktop' as expected

use Cwd;
my $dir = getcwd;
print "$dir\n";
[download]

Finally, %inc contains:

warnings/register.pm
/usr/share/perl/5.24/warnings/register.pm
overload.pm
/usr/share/perl/5.24/overload.pm
vars.pm
/usr/share/perl/5.24/vars.pm
Cwd.pm
/usr/lib/x86_64-linux-gnu/perl/5.24/Cwd.pm
Exporter.pm
/usr/share/perl/5.24/Exporter.pm
overloading.pm
/usr/share/perl/5.24/overloading.pm
File/Glob.pm
/usr/lib/x86_64-linux-gnu/perl/5.24/File/Glob.pm
warnings.pm
/usr/share/perl/5.24/warnings.pm
Data/Dump.pm
/usr/local/share/perl/5.24.1/Data/Dump.pm
strict.pm
/usr/share/perl/5.24/strict.pm
/etc/perl/sitecustomize.pl
/etc/perl/sitecustomize.pl
XSLoader.pm
/usr/local/lib/x86_64-linux-gnu/perl/5.24.1/XSLoader.pm
subs.pm
/usr/share/perl/5.24/subs.pm
[download]

Confusing!

Comment on Re^4: 'do' command is dead? Surely not? Select or Download Code

Replies are listed 'Best First'.
Re^5: 'do' command is dead? Surely not? by Corion (Patriarch) on May 19, 2017 at 14:53 UTC
You don't show us the output of the file existence tests. Maybe the filename has whitespace at its end. If `-f 'whatever.pl'` fails, then for sure, Perl cannot see that file, for whatever reason. Also, the interesting variable is `@INC`, not `%INC`. You can also check if `do './whatever.pl'` works for you. That would also work around the problem of `.` not being in `@INC`. You can also check if `do '/home/Andy/Desktop/whatever.pl'` works for you. That would also work around the problem of `.` not being in `@INC`.	[reply] [d/l] [select]
Re^6: 'do' command is dead? Surely not? by ACI (Acolyte) on May 19, 2017 at 15:08 UTC
AHHH!!! `my $file='/home/andy/Desktop/test-response.pl';` works!!!! I'm assuming something happened in a recent update. Edit - `'./test-response.pl'` works too. EDIT2 - `use lib '.'; my $file='test-response.pl';` also works (but, given that my Perl portfolio contains thousands of these, is there a way of telling Perl never to require the absolute path, other than `use lib '.'`? I think I now understand the importance of `'.'` in `@INC`, but soooooo many scripts to edit!)	[reply] [d/l] [select]
Re^7: 'do' command is dead? Surely not? by Corion (Patriarch) on May 19, 2017 at 17:13 UTC
See perlrun on how to modify `@INC` globally via `$ENV{PERL5LIB}`. Personally, I would modify the scripts on an as-needed basis.	[reply] [d/l] [select]
Re^6: 'do' command is dead? Surely not? by ACI (Acolyte) on May 19, 2017 at 15:03 UTC
Thanks, Corion `if (-e $file){ print "File exists\n"; } if (-f $file){ print "File is plain\n"; }` [download] produces both messages `@INC` contains `/etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.24.1 /usr/local/share/perl/5.24.1 /usr/lib/x86_64-linux-gnu/perl5/5.24 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.24 /usr/share/perl/5.24 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base` [download]	[reply] [d/l] [select]