mattr's scratchpad

Public Scratchpad

wierd error.. "error on write: Broken pipe"

#!/usr/local/bin/perl -w

print "Content-type: text/html\n\n";

use lib qw(/home/www/davxw000/data/sitelib);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use GnuPG::Tie::Encrypt;

$s = "This is a test.\nAnd another test.";
$m = 'test@test.com';                  # registered in gpg key ring
$e = &encrypted($s,$m);
print "Encrypted: <PRE>\n" . $e;

sub encrypted {
  my ($plaintext,$recip) = @_;
  my $encrypted = "";

  tie(*CIPHER,'GnuPG::Tie::Encrypt',armor=>1,recipient=>$recip);
                                       # tie interface. open buffer
  print CIPHER $plaintext;             # and encrypt into buffer.
  $encrypted .= $_ while (<CIPHER>);   # now read from buffer

  close CIPHER;                        # the encrypted data
  untie *CIPHER;                       # and close buffer
  return $encrypted;
}
[download]

memos to self perl2exe thread Martin Lo Interview author of LTool (Libration Point Mission Design Tool) talks about new cusp of using advanced mathematics in real-world engineering.

hunan
haskelly perl
appumldesign
lyta
unixbeard
webwebx


http://www.popkmart.ne.jp/kao/72/

cblast When search.cpan.org breaks.. Kobe (thanks Petrucio)

Advanced Sorting - GRT - Guttman Rosler Transform
Schwartzian Transform and memory allocation.

code for my brother Bob's photos of Iceland, Norway, and Parts East