On Jul 17, Kent, Mr. John (Contractor) said:
>>As for your code:
>>
>>> my($MOSAIC_SCALE)= $query->param('MOSAIC_SCALE')|| "20";
>>>{$MOSAIC_SCALE =~ /(\d+)/;
>>> $MOSAIC_SCALE = $1;
>>
>>You should *never* use $DIGIT variables after a regex unless you're sure
>>the regex *matche
Gunnar,
Thank you. Excellent suggestion.
Undoubtedly I've gota lota unnecessary
untaintin' goin' on!
Thanks,
John Kent
-Original Message-
From: Gunnar Hjalmarsson [mailto:[EMAIL PROTECTED]
Sent: Saturday, July 17, 2004 11:37 AM
To: [EMAIL PROTECTED]
Subject: Re: Efficient Untaint?
Mr.
Thank you Jeff,
Very nice.
I will give it a try.
(In some cases I know the values will be digits).
John Kent
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
Sent: Saturday, July 17, 2004 10:34 AM
To: Kent, Mr. John (Contractor)
Cc: [EMAIL PROTECTED]
Subject: Re: E
I guess his name says it all...
-Original Message-
From: Carl Colon [mailto:[EMAIL PROTECTED]
Sent: Wed 7/21/2004 1:16 PM
To: [EMAIL PROTECTED]
Cc:
Subject: 1 Windows XP + 1 Office XP = $80 d dhhytzy vs dxq
Loa
If you're ready to pay money for it, then there's Visual Perl from ActiveState (VS
plug-in, works great), Komodo from ActiveState, PerlBuilder from SolutionSoft that
have built-in debuggers. The Visual Debugger that comes with the Perl Dev Kit from
ActiveState is also pretty good.
Mr. John Kent wrote:
Is there a more efficient/better way to untaint variables
pulled from a cgi query object?
Here is an example of what I am currently doing:
#!/usr/bin/perl -wT
use strict;
use CGI;
my($query) = new CGI;
# I then have 30 untaint checks like this before I start
# coding.
Do all t
On Jul 17, Kent, Mr. John (Contractor) said:
>Is there a more efficient/better way to untaint variables
>pulled from a cgi query object?
I'd make an untaint function that took the param() name, a regex to use,
and a default value to use.
sub untaint {
my ($name, $rx, $default) = @_;
my
Greetings,
Is there a more efficient/better way to untaint variables
pulled from a cgi query object?
Here is an example of what I am currently doing:
#!/usr/bin/perl -wT
use strict;
use CGI;
my($query) = new CGI;
# I then have 30 untaint checks like this before I start
# coding.
my($MOSAIC
On Jul 16, David Arnold said:
>my @[EMAIL PROTECTED](WORD GAMENO)};
>
>How does the order of evaluation go here in order to populate @ary?
That is a hash slice on the hash reference in $state.
The @{...} is signaling we expect to get more than one value back, and the
{qw(WORD GAMENO)} is a hash
Jason,
> I want to eliminate the ". " (periord) or "," (comma) from records that I
> return from a query, but I cannot figure out how to approach it. Does Perl
> have a way that I can match a string that from an array, remove a character or
> characters?
Yes. You could use a regular expression s/
On Fri, Jul 16, 2004 at 08:08:48PM -0700, David Arnold wrote:
> At 09:52 PM 7/16/04 -0500, Charles K. Clarkson wrote:
> >David Arnold <[EMAIL PROTECTED]> wrote:
> >
> >: If I have:
> >:
> >: my $state={};
> >: $state->{WORD}='affection';
> >: $state->{GAMENO}=3;
> >: $state->{GUESSES}=3;
> >:
>
[EMAIL PROTECTED] wrote:
Is there any program that allows one to write Perl scripts and and
then test them in a windows environment without using a DOS window,
and actually have me see the program run before I upload it to a
server, rather than just testing if the script runs without errors?
Anyone
On Sat, 2004-07-17 at 10:44, [EMAIL PROTECTED] wrote:
> Is there any program that allows one to write Perl scripts and and then test
> them in a windows environment without using a DOS window,
ActivePerl and the WindowsXP cmd program. No DOS there.
What is wrong with command lines anyway?
> an
Is there any program that allows one to write Perl scripts and and then test
them in a windows environment without using a DOS window, and actually have me
see the program run before I upload it to a server, rather than just testing
if the script runs without errors? Anyone know what I mean and
Gohaku wrote:
1.) What's up with the semicolon at the end of the first
delimiter? I find that confusing.
If you prefer, you can put the semicolon after the terminator in Perl
as well, as long as you don't put it at the same line as the
terminating string. By doing so, it's easier to preserve inde
15 matches
Mail list logo
