Perl, System und GnuPG - #74943 (Allgemeines zu Perl)

betterworld

2007-03-12 22:49

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Ich wuerde hier open2 verwenden... (Es ist in einem Standardmodul. Nebenfrage: Warum willst Du keine Module verwenden?). Einerseits hat open2 (wie auch open) den Vorteil gegenueber qx, dass man Escaping-Probleme vermeiden kann, und andererseits kann man bei open2 den Text reinpipen.

Code (perl): (dl )

use IPC::Open2;

my $pid = open2(my $chld_out, my $chld_in, 'gpg', -'u', @weitere_argumente) or die $!;
print $chld_in $message_body or die;
close $chld_in or die;
my $output = {local $/; <$chld_out>};
waitpid ($pid, 0) or die $!;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class