simple regex issue

[eggbaconsandwich]

Hi tek-tips.

Perl noob here, I have the following code for turning anything to lower case after 3 slashes :

$input = 'tea/coffee/eggs/BACON'; 
$output = $input =~ s/^((?:.*?\/){3}(.*)$/$1.lc($2)/er;
print $output;

Question, how can I quickly reverse the application of lc and only apply it to $1 instead of $2? I.e. turn anything to lower case up until finding 3 slashes, once 3 slashes found do not alter the rest.

Thanks in advance.

 

[prex1]

I would do this in a much faster way not using regexes:

$input = 'Tea/Coffee/Eggs/Bacon'; 
@spl = split(/\//,$input,4);
map{$_=lc}@spl[0..2];
$output=join'/',@spl;
print $output;

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[feherke]

Hi

I generally agree with Franco, but in this case I would use a regular expression :

[navy]$input[/navy] [teal]=[/teal] [i][green]'Tea/Coffee/Eggs/Bacon'[/green][/i][teal];[/teal]
[navy]$output[/navy] [teal]=[/teal] [navy]$input[/navy] [teal]=~[/teal] [b]s[/b][fuchsia]!^((?:[^/]*/){3})!\L$1![/fuchsia]r[teal];[/teal]
[b]print[/b] [navy]$output[/navy][teal];[/teal]

Feherke.
feherke.ga