Re: regular expression question

Basically the same, but substitute "\1",etc by "$1"etc...

perl -e '$kk="AAK6615B__S_KhushkKhairMFaqir";$kk=~s/(.*)_[A-Z]_(.*)/$1
+_$2/;print "$kk\n"'
[download]

Prints:

AAK6615B__KhushkKhairMFaqir
[download]

citromatik

Comment on Re: regular expression question Select or Download Code

Replies are listed 'Best First'.
Re^2: regular expression question by ikegami (Patriarch) on Aug 07, 2007 at 14:24 UTC
...because \1 (etc) is strictly for regexps. The replacement expression uses $1 (etc). `$var =~ m/...\1.../; $var =~ s/...\1.../...$1.../;` [download]	[reply] [d/l]