Shell Programming and Scripting

Code:

nawk '/[AB]$/ { sub(/.$/, /A$/?"B":"A")}1' myFile

another one

Code:

# awk '/A$/{c="B"}/B$/{c="A"}c{print substr($0,1,length-1)c;c="";next}1' file

Thanks for your help ,

the awk is ok

but ko for sed:

here is the oldfile :

mfksfmfsA
fsfdsfdsC
sdfdsfdsfffffffffffD
dsfsdfmkmslkdfB
qdqdqsdqdqsdqA
qsdqsdqsdqsdqsqdqsdqdA
zietireB

# sed 's/A$/B/;n;s/B$/A/' oldfile
mfksfmfsB
fsfdsfdsC
sdfdsfdsfffffffffffD
dsfsdfmkmslkdfA
qdqdqsdqdqsdqB
qsdqsdqsdqsdqsqdqsdqdA
zietireB

the last 2 lines are not modified!

regards
ps my job is admin Lotus Notes on Unix platform , so from time to time on this forum !

And one way to do it with perl:

Code:

$
$ cat input.txt
APP101A
APP103B
MSG307A
MSG308X
XADM002A
$
$ perl -ne '@x{A,B}=(B,A); $y=substr($_,-2,1); substr($_,-2,1)=defined $x{$y} ? $x{$y} : $y; print' input.txt
APP101B
APP103A
MSG307B
MSG308X
XADM002B
$
$

And another way to do it in perl:

Code:

$
$ perl -ne 'BEGIN {@x{A,B}=(B,A)}{/[AB]$/ and substr($_,-2,1)=$x{substr($_,-2,1)}; print}' input.txt
APP101B
APP103A
MSG307B
MSG308X
XADM002B
$
$

tyler_durden

Hi,

nawk '/[AB]$/ { sub(/.$/, /A$/?"B":"A")}1' oldfile

==> OK

but this one is ko :

# cat oldfile

mfksfmfsA
fsfdsfdsC
sdfdsfdsfffffffffffD
dsfsdfmkmslkdfB
qdqdqsdqdqsdqA
qsdqsdqsdqsdqsqdqsdqdA
zietireB
ldsfjfklsjfslkjsklfsjI
qdshqjdhqskjdhT

# awk '/A$/{c="B"}/B$/{c="A"}{print substr($0,1,length-1)c}' oldfile

mfksfmfsB
fsfdsfdsB
sdfdsfdsfffffffffffB
dsfsdfmkmslkdfA
qdqdqsdqdqsdqB
qsdqsdqsdqsdqsqdqsdqdB
zietireA
ldsfjfklsjfslkjsklfsjA
qdshqjdhqskjdhA

I have no Python installed and i expect to stay in a standard way , so no Perl script please!
thanks for trying to help me , the winner will receive my eternal gratitude ! lol

Note that i have changed the awk code i posted.

Code:

the winner will receive my eternal gratitude

if, it so happens that i "win" , i would not want your gratitude, BUT i would be happy if you put in effort in learning shell scripting (or learning other languages like Perl/Python to help in your work).
I still cannot believe its 6 years ago you started coming here, and learned nothing till now.

Thanks for the "new" awk it works !

If you "take time" to read my previous posts , you will understand that my job is mainly admin Lotus Notes and i don't spend so much time on this forum and neither in shell script , not because i don't do effort but because i don't have so much time for this .
And from time to time i need to script , and i don't progress anymore or not so much (as my english too).

But i have appreciated all the time you take for me.

Sincerely yours
Christian