Beefy Boxes and Bandwidth Generously Provided by pair Networks BBQ
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

mattr's scratchpad

by mattr (Curate)
on Jun 05, 2004 at 12:05 UTC ( #361511=scratchpad: print w/ replies, xml ) Need Help??

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; }



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
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2014-04-16 10:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (423 votes), past polls