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

Hi Haukex,

Thank you so much for the clarification. I'm the same guy you helped with your fantastic answer earlier. I have used your module and slightly modified version of your code in this script. Thank you once again.

Comment on Re^2: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. Select or Download Code

Replies are listed 'Best First'.
Re^3: Perl script runs fine if exec'd from the directory, but gives error if run outside the directory. by haukex (Archbishop) on Oct 02, 2020 at 22:06 UTC
I have used your module Glad to help. Note IPC::Run3 isn't my module (IPC::Run3::Shell, which uses that module, is). By the way, in the comments in the OP you mention DRY, and this is definitely a case where it applies. Here's how I might have coded this in order to avoid as much of the repetition as possible: my @commands = ( { name=>'genhealth', arg=>'/sys/general', file=>'genhealthfile' }, { name=>'bat', arg=>'/env/bat', file=>'batteries' }, # ... { name=>'ssd', arg=>'/env/ssd', file=>'ssd_file' }, ); for my $cmd (@commands) { print "### Working on ", $cmd->{name}, "\n"; run3 ['uemcli', '-d', $vnxe_ip, '-u', $username, '-p', $password, $cmd->{arg}, 'show', '-detail'], undef, \my $out; my $str = decode('UTF-16', $out, Encode::FB_CROAK); my $filename = $cmd->{file}.'.txt'; open (my $fh, '>', $filename) or die "$filename: $!"; print $fh $str; close $fh; } [download] Update: By the way, I don't know why you are using file mode `'+>'`, since that's only needed for R/W access, it seems to me `'>'` should be enough for your case. Beware of cargo-culting!	[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 03, 2020 at 00:14 UTC
Hi Haukex, How you guys are able to write this elegant and mind opening stuff on the fly is beyond me. Hope one day I will reach there. Thank you once again for this. You are all generous and quite helpful.	[reply] [d/l] [select]