in reply to Re: Putting the stringified Regexp object into code
in thread Putting the stringified Regexp object into code
Yes, basically I want to generate a Perl code (as string) where an input Regexp object needs to be a literal in the generated code.
BTW, the project is Data::Sah and here's an example of the code generation in action:
$ TRACE=1 LOG_SAH_VALIDATOR_CODE=1 perl \ -MLog::Any::App -MData::Sah=gen_validator \ -E'$v = gen_validator([str => {match=>qr!/!}]); for ("a", "a/") { say "$_: ", $v->($_) }' ... [98] validator code: 1|sub { 2| my ($data) = @_; 3| my $res = 4| # skip if undef 5| (!defined($data) ? 1 : 6| (# check type 'str' 7| (!ref($data)) 8| && 9| (# clause: match 10| ($data =~ qr/(?^u:\/)/)))); 11| return $res; 12|} a: a/: 1
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Putting the stringified Regexp object into code
by roboticus (Chancellor) on Nov 06, 2012 at 20:44 UTC | |
by sedusedan (Monk) on Nov 07, 2012 at 00:11 UTC |
In Section
Seekers of Perl Wisdom