Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 cooling their heels in the Monastery: (8)
As of 2016-10-01 19:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?






    Results (6 votes). Check out past polls.