Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Correct Regex for reading stock symbol?

by davido (Cardinal)
on Jan 31, 2006 at 17:38 UTC ( #526813=note: print w/replies, xml ) Need Help??

in reply to Correct Regex for reading stock symbol?

The following snippet does not replicate the behavior you're describing:

use strict; use warnings; use CGI; my $INPUT = CGI->new(); my $stock_symbol = $INPUT->param('stock_symbol'); if ($stock_symbol =~ /^([-\@\w.]+)$/ && length($stock_symbol) < 11 + && $stock_symbol ne "") { $stock_symbol = $1; print $1, "\n"; } else { print "Invalid Symbol!\n"; exit;}

I tested it from the command line like this:

perl "stock_symbol=AIDO.OB"

It's nice that allows you to test from the command line like that; it helps in tracking down bugs.

Anyway, it appears that the source of your trouble is not contained within the snippet you showed us. Back to the drawing board. Try lacing your script with logging notices so that you can see where it's hanging up.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://526813]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2021-04-23 05:19 GMT
Find Nodes?
    Voting Booth?

    No recent polls found