Re: Capture response from backticks to a file.


The stupid question is the question not asked
	PerlMonks

Re: Capture response from backticks to a file.

by dsb (Chaplain)

on Nov 13, 2013 at 19:26 UTC ( [id://1062437]=note: print w/replies, xml )

Need Help??

in reply to Capture response from backticks to a file.

I think you're misusing the backticks in your code.

this bit:

my $gpg_command = `gpg --trust-model always -er 12345678 my_file.txt`;

print defined($gpg_command) ? $gpg_command : "Command failed\n"
[download]

IS capturing the output from the command and then printing it to STDOUT.

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

dsb
This @ISA my( $cool ) %SIG

Comment on Re: Capture response from backticks to a file. Select or Download Code

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
It doesn't fail, the backticks executes fine but I can't capture the result to a file still.	[reply]
Re^3: Capture response from backticks to a file. by astroboy (Chaplain) on Nov 13, 2013 at 19:53 UTC
I agree with dsb. You've already run the pgp command and have capured it's output in $gpg_command. Sorry to be dense, but what are you hoping to achieve from the rest of your script?	[reply]
Re^4: Capture response from backticks to a file. by Anonymous Monk on Nov 13, 2013 at 20:03 UTC
You are right, I am over complicating things, I can just use this instead and get it over with: `system("gpg --trust-model always -er 12345678 my_file.txt 1>/dev/null +");` [download]	[reply] [d/l]
Re^4: Capture response from backticks to a file. by Anonymous Monk on Nov 13, 2013 at 20:28 UTC
From my code, the idea is to control the output from the backticks because I would like to change the output of the file name.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1062437]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (8)

As of 2024-04-24 12:26 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found