Zentara wrote:
Something along these lines
print HIS_IN "trust\n";
chomp(my $answer = <HIS_OUT>);
if( $answer =~ /^How many years?$/ )
{ print HIS_IN "5\n"; }else{print "years error $!\n"; exit}
chomp(my $answer1 = <HIS_OUT>);
if( $answer1 =~ /^Are you sure?$/ )
{ print HIS_IN "yes\n"; }else{print "confirm error $!\n"; exit}
But you need to run the procedure yourself a few times, and
see what the regexes should be.
OK I've tried altering my code as you suggested, replacing the regexes
with ones that would work. gpg still just sits there as soon as it has
entered it's intereactive mode, and perl doesn't seem to be passing any
commands to it at all.
Any other ideas?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
