Re^2: using a pipe

not exactly... what I am doing is cating a file that has the clear text passphrase in it then piping this output as inout to the gpg binary for decryption like so:

cat file |gpg --passphrase-fd 0 --decrypt --output oldfile newfile
[download]

I do not understand what

my $enc_pass = shift( @{ [ <$file> ] } );
[download]

is doing? Is this the same as:

for (;<FH>;) {
  print $_;
}
[download]

what does $gpg_out have in it?

Comment on Re^2: using a pipe Select or Download Code

Replies are listed 'Best First'.

Re^3: using a pipe
by wazzuteke (Hermit) on Dec 30, 2005 at 15:28 UTC

my $enc_pass = shift ( @{ [ <$file> ] } );
[download]

$file

$enc_pass

ENCRYPTED_PASSWORD
[download]

print $enc_pass;
[download]

ENCRYPTED_PASSWORD
[download]

$gpg_out

gpg

my $gpg_output = `gpg --passphrase-fd 0 --decrypt --output oldfile new
+file`;
[download]

$gpg_output

---hA||ta----
print map{$_.' '}grep{/\w+/}@{[reverse(qw{Perl Code})]} or die while ( 'trying' );

[reply]
[d/l]
[select]


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