"Chris Charley" writes:
> You could do that in 1 line - See the following small program.
> (The line using a 'grep' solution is commented out. It would work as well).
>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> while (my $id = ) {
>chomp $id;
>#if (grep /itemid=.*?[^\w-]/, spl
On Jan 26, 2016, at 11:22 AM, Chris Charley wrote:
>
> You could do that in 1 line - See the following small program.
Thanks, Chris. That'll do the trick. And the grep alternative is
interesting, too. I hadn't thought of that.
Regards,
Frank
--
To unsubscribe, e-mail: beginners-unsub
"SSC_perl" wrote in message
news:ef7499af-b4a5-4b07-8c69-3192ef782...@surfshopcart.com...
On Jan 25, 2016, at 4:59 PM, Shawn H Corey wrote:
Use the negative match operator !~
if( $QUERY_STRING !~ m{ itemid = [-0-9A-Za-z_]+? (?: \& | \z ) }msx ){
print "bad: $QUERY_STRING\n";
}
Tha
On Jan 25, 2016, at 4:59 PM, Shawn H Corey wrote:
>
> Use the negative match operator !~
>
> if( $QUERY_STRING !~ m{ itemid = [-0-9A-Za-z_]+? (?: \& | \z ) }msx ){
>print "bad: $QUERY_STRING\n";
> }
Thanks for that, Shawn. It works perfectly except for one criteria
that I inadver
On Mon, 25 Jan 2016 16:16:40 -0800
SSC_perl wrote:
> I'm trying to find a way to trap bad item numbers. I want to
> parse the parameter "itemid=" and then everything up to either an "&"
> or end-of-string. A good item number will contain only ASCII
> letters, numbers, dashes, and undersco