Re: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory.

Replies are listed 'Best First'.
Re^2: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by marto (Cardinal) on Oct 02, 2020 at 07:37 UTC
"There is no variable $text in the code you posted." The error is from Win32::ShellQuote, line 85.	[reply]
Re^2: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by pritesh_ugrankar (Monk) on Oct 02, 2020 at 06:56 UTC
Hi, Yes you are right. I'm using that file to read the username and password which unfortunately I cannot provide here. Also there's no $text variable in my script nor am I doing any substitution. Even if I embed the username and password in the script I still get the error. What baffles me is the script works fine if I run it from the directory where its in. No errors whatsoever. Just when I run it with the path, the error comes up.	[reply] [d/l] [select]
Re^3: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by marto (Cardinal) on Oct 02, 2020 at 08:27 UTC
"Also there's no $text variable in my script nor am I doing any substitution. Even if I embed the username and password in the script I still get the error." The error tells you exactly where this is coming from: `G:\>perl cdr_vnxe\cedar_rapids_vnxe_v2.pl Use of uninitialized value $text in substitution (s///) at G:/Strawber +ry/perl/vendor/lib/Win32/ShellQuote.pm line 85.` [download] "What baffles me is the script works fine if I run it from the directory where its in. No errors whatsoever. Just when I run it with the path, the error comes up. " You have: `my $array_creds = Config::Tiny->new(); $array_creds = Config::Tiny->read('vnxe_config.conf');` [download] Consider the following example: `#!/usr/bin/perl use strict; use warnings; use Config::Tiny; my $Config = Config::Tiny->new; $Config = Config::Tiny->read( 'file.conf' ); print "$Config->{_}{var1}\n";` [download] When run from the directory containing your config file: `marto@Marto-Desktop:~/code$ ./cf.pl derp` [download] When run from the parent directory: `marto@Marto-Desktop:~$ ./code/cf.pl Use of uninitialized value in concatenation (.) or string at ./code/cf +.pl line 8.` [download] As you see, the code can't find the config file. `#!/usr/bin/perl use strict; use warnings; use File::Basename; my $dirname = dirname(__FILE__); use Config::Tiny; my $Config = Config::Tiny->new; $Config = Config::Tiny->read( "$dirname/file.conf" ); print "$Config->{_}{var1}\n";` [download] Runs fine: `marto@Marto-Desktop:~$ ./code/cf.pl derp` [download] Update: IPC::Run3 needs Win32::ShellQuote because you are on Windows. https://metacpan.org/source/RJBS/IPC-Run3-0.048/Makefile.PL#L13.	[reply] [d/l] [select]
Re^4: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by pritesh_ugrankar (Monk) on Oct 02, 2020 at 19:30 UTC
Hi Marto, Thank you for the fantastic clarification.	[reply] [d/l] [select]
Re^5: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by marto (Cardinal) on Oct 03, 2020 at 09:42 UTC
Re^6: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by GrandFather (Saint) on Oct 04, 2020 at 03:05 UTC
Re^3: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by GrandFather (Saint) on Oct 02, 2020 at 07:44 UTC
$text is in the module code for Win32/ShellQuote.pm. However looking at that code isn't going to resolve the problem. The way to track this issue down is to perform a binary search. Get rid of half the code. If the bug goes away it was in the half of the code you removed. If the bug remains it is in the half you retained. Halve the chunk of code manifesting the bug then rinse and repeat. By definition the bug is something to do with your context when you run the script. We don't have your context so we can't debug for you. Either strip your example down to something we can run that exhibits the problem, or do the debugging yourself. Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks