Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Capture response from backticks to a file.

by marinersk (Priest)
on Nov 13, 2013 at 21:17 UTC ( [id://1062476]=note: print w/replies, xml ) Need Help??


in reply to Capture response from backticks to a file.

I would change:
# Encrypt file. my $gpg_command = `gpg --trust-model always -er 12345678 my_file.txt`; print defined($gpg_command) ? $gpg_command : "Command failed\n"; # Capture STDOUT and save it to a file. open(READ, "$gpg_command 2>&1 |") or die "Failure on open $!\n"; open( my $out, ">", "encrypted.pgp" ) or die "Could not open file for + encrypted data - $!";

to:

# Build encryption command my $gpg_command = "gpg --trust-model always -er 12345678 my_file.txt"; # Execute command and capture STDOUT. my $gpg_results = `$gpg_command`; print defined($gpg_results) ? $gpg_results : "Command failed\n"; # Save captured STDOUT to a file. open( my $out, ">", "encrypted.pgp" ) or die "Could not open file for +encrypted data - $!";

Then:

  • Correct any errant assumptions about what happens when the command fails;
  • Adjust what you're writing to the output file to reflect what you actually want there.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1062476]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2024-03-29 14:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found