On 09/16/2012 09:34 PM, jmrhide-p...@yahoo.com wrote:
I copied what was on the manpage for CGI::carp
I lost my way on that one, but I don't see how a shuffle works here either. I'm
trying to ensure that the program will not pick the same term twice in a row.
$lastnum comes from a cookie and re
to these looping structures that recur throughout the process of
constructing new questions
John M Rathbun MD
From: Uri Guttman
To: beginners@perl.org
Sent: Sun, September 16, 2012 8:10:50 PM
Subject: Re: Fw: Proposed correction for my long script
On 09/16/2012 07:40
On 09/16/2012 07:40 PM, jmrhide-p...@yahoo.com wrote:
I guess I've been vague again. I was really hoping for somebody to cast an eye
on the subroutines I added earlier today. My intention was to (1) prevent any
infinite looping and (2) get notification if one of the loops misbehaves. Did I
make a
n the snippets of code below?
John M Rathbun MD
- Forwarded Message
From: "jmrhide-p...@yahoo.com"
To: beginners@perl.org
Sent: Sun, September 16, 2012 3:46:47 PM
Subject: Proposed correction for my long script
OK, here's my amateurish attempt at a correction:
#!/usr
On 09/16/2012 03:46 PM, jmrhide-p...@yahoo.com wrote:
OK, here's my amateurish attempt at a correction:
i know you said you don't want to learn to be a professional coder. but
there are so many ways to improve your code little by little. most here
have been shying away for good reason and bec
On Sun, 16 Sep 2012 12:46:08 -0700, jmrhide-perl wrote:
> Does it look OK?
This is a prime example of something that a test harness would be very
useful for, then we'd all know the answer.
There may be some entirely different reason why your provider thinks this
script is consuming excessive re
OK, here's my amateurish attempt at a correction:
#!/usr/local/bin/perl
use warnings;
use strict;
use diagnostics;
use CGI;
my $cgi = new CGI;
use Mail::Sendmail;
use CGI::carp qw(set_die_handler);
BEGIN {
sub handle_errors {
my $msg = shift;
sendmail(
From => 'i...@the
