Hilfe bei Shellaufruf in einem Modul (umstellen auf Non Blocking)

[CoolTux]

Zu meist befindet sich dann ein Zeilenumbruch in der Rückgabe. Da die Rückgabe über telnet geht darf kein Zeilenumbruch drin sein. Entweder base64 codieren oder JSON encodieren und dann in der finishFn decodieren.

[DeeSPe]

Mit ein Wenig RegEx Zauberei konnte ich das Problem nun lösen.
Problematisch waren scheinbar tatsächlich noch enthaltene Tabulatoren.

Merkwürdig ist nur dass die Fehlerrückgabe als base64 nicht funktioniert, das ein Weile gedauert bis das aufgefallen ist.

Das geht:

Code Auswählen Erweitern

$err .= join " ",@ret;
return "$name|$err";

Das geht nicht:

Code Auswählen Erweitern

$err .= encode_base64(join " ",@ret);
return "$name|$err";
natürlich mit entsprechendem decode in der FinishFn:

Code Auswählen Erweitern


my ($string) = @_;
my @a = split /\|/,$string;
my $name = $a[0];
my $error = decode_base64($a[1]);

Gruß
Dan

[DS_Starter]

Hi Dan,

ich kodiere in diesem Fall immer mit einem zweiten (leeren) Stringargumnt am Ende:

Code Auswählen Erweitern


$err = encode_base64($string,"");


Das zweite Argument verhindert dass der verschlüsselte String in Zeilen umgebrochen wird, was ja in unserem Anwendungsfall nicht sein darf.

Ich hatte das mal gefunden, z.B. hier (beware of the newline at the end of the encode_base64-encoded strings):
http://www.perlmonks.org/?node_id=660474 

oder auch in der CPAN-Doku:

http://search.cpan.org/~gaas/MIME-Base64-Perl-1.00/lib/MIME/Base64/Perl.pm

Seitdem habe ich mit soetwas keinen Stress mehr.

Grüße
Heiko

[DeeSPe]

Hi Dan,

ich kodiere in diesem Fall immer mit einem zweiten (leeren) Stringargumnt am Ende:

Code Auswählen Erweitern


$err = encode_base64($string,"");


Das zweite Argument verhindert dass der verschlüsselte String in Zeilen umgebrochen wird, was ja in unserem Anwendungsfall nicht sein darf.

Ich hatte das mal gefunden, z.B. hier (beware of the newline at the end of the encode_base64-encoded strings):
http://www.perlmonks.org/?node_id=660474 

oder auch in der CPAN-Doku:

http://search.cpan.org/~gaas/MIME-Base64-Perl-1.00/lib/MIME/Base64/Perl.pm

Seitdem habe ich mit soetwas keinen Stress mehr.

Grüße
Heiko

Klasse Hinweis Heiko!
Diese Info hatte mir gefehlt.
Jetzt klappt es auch mit en/decode.

Gruß
Dan