Shell Programming and Scripting

Perl is one of the "standard" ways of scripting in Unix/Linux systems. It is included in the default installation of most of the popular *nixes. And needless to say, it is widely used by sysadmins, CGI web developers and finance and bioinformatics professionals.

It's perfectly fine if you have some beef with it. But not considering it standard is like closing your eyes to the facts.

tyler_durden

try below perl code:

Code:

while(<DATA>){
	chomp;
	my $tmp=substr($_,-1);
	print substr($_,0,length($_)-1)
	      , ($tmp eq 'A')? 'B'
	       :($tmp eq 'B')? 'A'
	       :               $tmp
	      ,"\n";
}
__DATA__
APP101A
APP103B
MSG307A
MSG308B
XADM002A
ABCDEFG

Using sed :

Code:

sed '/\(.*\)A$/{s//\1B/g;n}
/\(.*\)B$/{s//\1A/g}' filename

o/p:

-Devaraj Takhellambam