Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: regex capture case

by Crian (Deacon)
on Jun 23, 2009 at 10:26 UTC ( #773947=note: print w/replies, xml ) Need Help??

in reply to regex capture case

I don't know if it is the right solution for your problem, but did you thought about using ucfirst on the result?

Replies are listed 'Best First'.
Re^2: regex capture case
by rmflow (Beadle) on Jun 23, 2009 at 10:32 UTC
    what if
    $_ = "Aabc"; $someRegex = "aA.*";
    then I'll need to uc second char.

    $_ and $someRegex are not known.

      What about

      $someRegex = "(aA|Aa).*";

      ...what effect should that have? Or what about

      $someRegex = "(?!aa)[Aa]+.*"

      Basically, what you're asking for is not feasible in the general case. If you know that $someRegex will always be very simple, it becomes tractable; you can use something like YAPE::Regex to parse the regex and match elements thereof to the extracted string to determine which characters' case needs to change. But for arbitrary regexes, it gets hard quickly.

      Depending on what you actually need this for, you may find it simpler to request both a regex and a case template, or to have your input take the form of a restricted pattern that you yourself can then translate into a regex and a case template.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2022-12-03 22:10 GMT
Find Nodes?
    Voting Booth?

    No recent polls found