Thread Perl, System und GnuPG (7 answers)
Opened by Gast at 2007-03-12 16:17

Gast Gast
 2007-03-12 16:17
#74941 #74941
Hallo allerseits,

besteht eine Möglichkeit den Inhalt einer Variable in Perl mit GnuPG zu signieren, ohne Module zu verwenden ?

Besser gesagt: Ich habe ein Array, der aus einer Textdatei besteht:

Code: (dl )
1
2
3
4
# Message-Body
open (TEXT, "text") or die "Kann Datenquelle nicht finden/oeffnen: $!\n";
@arraybody = <TEXT>;
close (TEXT);


Dem füge ich dann noch eine personalisierte Anrede hinzu:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
if( $sex eq "m" ) {
$message_body = " Sehr geehrter Herr $name,\\n@arraybody";
}
elsif( $sex eq "w" )
{
$message_body = " Sehr geehrte Frau $name,\\n@arraybody";
}
else
{
$message_body = " Sehr geeherte(r) Kollegin/Kollege,\\n@arraybody";
}


Nun würde ich das ganze dann signieren:

Code: (dl )
$mailsigned=system  ("cat pass | gpg.orig -u F123456 --clearsign --passphrase-fd 0 < $message_body");


allerdings sind in der Textdatei Zeilenumbrüch, was dazu führt, das statt irgendwelchem Text nur "512" in der Mail steht ;)

Der Fehler, der hierzu in der Shell ausgegeben wird, ist:

sh: Sehr: Datei oder Verzeichnis nicht gefunden
sh: line 1: die: command not found
sh: line 2: denen: command not found
sh: line 3: diesjährige: command not found
sh: line 4: zugewandt.: command not found

Vielen Dank und viele Grüße
Sascha

View full thread Perl, System und GnuPG