Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Regex checking text is made up of the keys of a hash.

by blakem (Monsignor)
on Mar 01, 2003 at 03:04 UTC ( #239627=note: print w/ replies, xml ) Need Help??


in reply to Regex checking text is made up of the keys of a hash.

It might not really be what you want, but I believe it fits the specs:

#!/usr/bin/perl -wT use strict; my %validLanguages = ( "de" => "german", "en" => "english", "es" => "spanish", "fr" => "french", "it" => "italian", "ja" => "japanise", "ko" => "korean", "ru" => "russian", "sv" => "WHATS THIS", "zh" => "WHATS THIS", "zh_TW" => "WHATS THIS" ); # test it for ('dog','cat','de,en',' ',',,,','deensvzh') { printf "%-10s %s a list of languages\n", "'$_'", (isItJustAListOfLanguages($_) ? "is" : "is NOT"); } sub isItJustAListOfLanguages{ my $text = shift; my @tokens = (keys %validLanguages, '\s',','); my $tokenpatt = join('|',@tokens); return $text =~ /^($tokenpatt)+$/; } __END__ 'dog' is NOT a list of languages 'cat' is NOT a list of languages 'de,en' is a list of languages ' ' is a list of languages ',,,' is a list of languages 'deensvzh' is a list of languages

-Blake


Comment on Re: Regex checking text is made up of the keys of a hash.
Download Code
Re: Re: Regex checking text is made up of the keys of a hash.
by heezy (Monk) on Mar 01, 2003 at 23:04 UTC

    This is so cool, it works so well and it's only 4 lines!

    thanks a lot!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (16)
As of 2014-10-02 15:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (63 votes), past polls