>> (without MIME::LITE, etc)?

>
> Oh, in that case I would guess by re-implementing significant parts of
> MIME::LITE from scratch in your program.

> How do I turn the following into a loop or otherwise make it much
> easier to write?
> if (param("pick") eq "$quiz11[4]"){
> system("/home/username/script option1 option2 \"$quiz11[4]\" ");
> print redirect("http:my_url");
> } elsif (param("pick") eq "$quiz11[3]"){
> system("/home/username/script option1 option2 \"$quiz11[3]\" ");
> print redirect("http:my_url");
> } elsif (param("pick") eq "$quiz11[2]"){
> system("/home/username/script option1 option2 \"$quiz11[2]\" ");
> print redirect("http:my_url");
> } elsif (param("pick") eq "$quiz11[1]"){
> system("/home/username/script option1 option2 \"$quiz11[1]\" ");
> print redirect("http:my_url");
> }

> I have only a couple weeks of experience with Perl. In that time, I
> figured out how to put together a prototype CGI application. But at
> times, I had to resort to writing bad code, because I did not know how
> to do certain things in Perl.
>
> How do I turn the following into a loop or otherwise make it much
> easier to write?
>
> if (param("pick") eq "$quiz11[4]"){

> system("/home/username/script option1 option2 \"$quiz11[4]\" ");

> My question is not perl specific but here are many clever people :-)

> My question is not perl specific but here are many clever people :-) I
> want to generate html object with all "safe" colors but in
> rainbow order (from white over yellow, red upt to black). I want to use
> hexadecimal values for RGB but only 0,33,66,99,cc and ff values. Please
> know anybody some algorithm how to do it?

A rainbow contains just the "unmixed" colors in the visible spectrum so
it does not contain white or black and also misses a few other colors:
http://en.wikipedia.org/wiki/Visible_spectrum

If that's not a problem, see:
http://www.philiplaven.com/p19.html
http://www.midnightkite.com/color.html

Joost.

> We have a need to allow users to submit a job through a web server
> (front end machine) to run on back end cluster machines. I made use of
> Net::SSH::Perl in a CGI program to realize this. One thing I notice is
> that the CGI program requires a "/.ssh/known_hosts2" at the top path of
> the file system on the front end machine where Apache is running. I
> wonder does this potentially compromise any security on the system?
> Need expert advice ...

> I am working on a chat program and am thinking of using a ramdisk to
> hold the chat data. Is there anything special I should know about
> accessing ramdisk from perl or is it just another disk to perl? On my
> development machine I don't have a ramdisk, so I will be using the HD
> for storing while debuging, but on the machine it will run on there is
> one, and it would be nice if I could just have a variable holding the
> destination and only have to change that instead of changing any
> routines that did any file i/o.
>
> Bill H

> I have a Fedora 8 Linux box with 64 bit OS and stock perl.
>
> Just invoking perl executable seems to take 100 MEGS of virtual memory!
>
> That's a huge amount. Here's proof:
>
> work$ perl -e 'sleep 10' & sleep 1; ps -eo pid,vsz,rsz,args|grep perl |grep 'sleep 10'
> [3] 15023
> 15023 98892 1404 perl -e sleep 10
> ^^^^^^^ virtual memory use
>
> My question is, WTF is going on, why does it need so much memory all of a sudden.
>
> For your information, on my home 32 bit linux box running Fedora 6, it uses 3 megs of VM:
>
> home$
> perl -e 'sleep 10' & sleep 1; ps -eo pid,vsz,rsz,args|grep perl |grep 'sleep 10'
> [1] 27037
> 27037 3744 1236 perl -e sleep 10 ...