Complex Regex

stallion has asked for the wisdom of the Perl Monks concerning the following question:

Hi guys is there are any regex in perl to convert three letter string into two letter for eg..

ABC  - hi
GHR  - hi
1DF  - hi
uy6  - hi
[download]

All three letter words ( Small or Caps or no) is converted into hi (Two letter string)....Thanks Monks!!!!!!!

Comment on Complex Regex Download Code

Replies are listed 'Best First'.
Re: Complex Regex by toolic (Bishop) on Jul 13, 2012 at 13:42 UTC
s/// `use warnings; use strict; while (<DATA>) { chomp; s/ ^ [0-9a-z]{3} $ /hi/xi; print "$_\n"; } __DATA__ ABC GHR 1DF uy6 fore` [download] See also: perlre	[reply] [d/l]
Re^2: Complex Regex by Anonymous Monk on Jul 13, 2012 at 13:52 UTC
Wonderful toolic!!!!!!!!! it works great..thanks	[reply]
Re: Complex Regex by davido (Cardinal) on Jul 13, 2012 at 17:36 UTC
`s/\b\w{3}\b/hi/g` would perform the substitution in a document where there could be multiple potential groups per string. If you just want to limit the match to strings that are exactly three characters long, it becomes simpler. `s/\A\w{3}\z/hi/` Try it out: The first version. Notice how the "List Context Return Values" captured by the example pattern exclude any substring that is more than three characters long. And the second version, where there can be only one case per string. perlrequick and perlretut would be helpful for you. Dave	[reply] [d/l] [select]