Search Patterns 1

[BenRussell]

Im working on a script but I need to filter out all non-letters/numbers from the form values. How would I make a statement to say the following in perl code "if $Variable1 is a value that contains ONLY letters and numbers $Variable2 = Yes"? - Ben Russell
- President of Intracor Technologies (

http://intracor.hypermart.net)

 

[tsdragon]

if ( $Variable1 =~ /\A[A-Za-a0-9]*\Z/ ) {
   $Variable2 = "Yes";
} else {
   $Variable2 = "No";
}

Note that this doesn't include spaces either, just uppercase and lowercase letters and numbers.
Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[tsdragon]

OOPS! That should have been:

/\A[A-Za-z0-9]*\Z/

"Beware the odd typo," as one of our more popular members says. Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[BenRussell]

Thanks - Ben Russell
- President of Intracor Technologies (

http://intracor.hypermart.net)

 

[BenRussell]

How do I add spaces and other figures? - Ben Russell
- President of Intracor Technologies (

http://intracor.hypermart.net)

 

[tsdragon]

To add any other characters just put them between the square brackets with the A-Za-z0-9. Remember to escape special characters, and don't put the ^ as the first character after the [ (it will negate the character class). For example to add spaces, commas and periods, change the class to:

/\A[A-Za-z0-9 \.,]*\Z/

Note that you have to escape the period.
Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.