in reply to Capture response from backticks to a file.
I think you're misusing the backticks in your code.
dsb
This @ISA my( $cool ) %SIG
this bit:
IS capturing the output from the command and then printing it to STDOUT.my $gpg_command = `gpg --trust-model always -er 12345678 my_file.txt`; print defined($gpg_command) ? $gpg_command : "Command failed\n"
But in your open command, you're effectively trying to open a pipe to a command that matches the output from your original backtick command, which should be failing I'd think.
remember that backticks do execute your command, and things get a little simpler. For example:
use strict; use FileHandle; my $fh = FileHandle->new('capture.out',"w"); print $fh `dir`;
dsb
This @ISA my( $cool ) %SIG
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Capture response from backticks to a file.
by Anonymous Monk on Nov 13, 2013 at 19:40 UTC | |
by astroboy (Chaplain) on Nov 13, 2013 at 19:53 UTC | |
by Anonymous Monk on Nov 13, 2013 at 20:03 UTC | |
by Anonymous Monk on Nov 13, 2013 at 20:28 UTC |
In Section
Seekers of Perl Wisdom