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.*";

    [download]
    then I'll need to uc second char.

    $_ and $someRegex are not known.
[reply]
[d/l]

      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.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom