Shell Programming and Scripting

Hi,

I have a file with two string :
aa_bb_cc_def
gg_hh_jj_xyz

now i want a command in perl script, which gives me the result as :
aa_bb_cc.def
gg_hh_jj.xyz

Can anyone help me on this plz..

thanks in advane.

Code:

 
$ perl -F_ -lane 'print "$F[0]_$F[1]_$F[2].$F[3]"' test
aa_bb_cc.def
gg_hh_jj.xyz

hi itkamaraj,

thanks for your reply.
but it is an example .. actually the last word is not alaway as fourth word.

say another string is..
qq_ww_sdf
another ... ss_dd_ff_gg_hh_hjk

then how can i do that..
Thanks in advance

Hi,

Try this code

Code:

perl -F_ -lane '$_=~ s/(.+)\_(.+)/$1\.$2/g;print $_;'  file

file - input file

Cheers,
Ranga

Hi rangarsan,

many many thanks to you.. It works fine and solved my problem.

But can you please explain the regex portion.
It will help me a lot.

Thanks again

Code:

$_=~ s/(.+)\_(.+)/$1\.$2/g;

s modifier used to substitute
g modifier denotes global

Code:

(.+)

will matches the strings upto last _

Code:

\_

will matches the last _

Code:

(.+)

will matches the last string after last _

Code:

$1

denotes first match string (.+) upto last _

Code:

$2

denotes second match string (.+) after last _

then we are using these string to substitute.

Code:

$_=~ s/(.+)\_(.+)/$1\.$2/g;

we are replacing the _ in bolded portion.

Cheers,
Ranga

Thanks again...

its very useful ....