Re: regexp wizardry needed


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: regexp wizardry needed

by AnomalousMonk (Prior)

Log in
Create a new user
The Monastery Gates
Super Search

Seekers of Perl Wisdom
Meditations
PerlMonks Discussion

Obfuscation
Reviews
Cool Uses For Perl
Perl News
Q&A
Tutorials

Poetry
Recent Threads
Newest Nodes
Donate
What's New

on Jan 26, 2013 at 05:31 UTC ( #1015464=note: print w/ replies, xml )

Need Help??

in reply to regexp wizardry needed

Tested under 5.8 through 5.14:

>perl -wMstrict -le
"my $currentyear = '2013';
 my $lines2 = ' PERIOD 13 OCT 06 OCT';
 ;;
 $lines2 =~ s{ (\d\d) \s ([[:upper:]]{3} (?! \S)) }
             {\u\L$2 $1, $currentyear}xmsg;
 print qq{$lines2};
"
 PERIOD Oct 13, 2013 Oct 06, 2013
[download]