Shell Programming and Scripting

Hello my friends,

So I'm trying to insert some extra text in to text file/lines.

w• Test-LinesXtra: INS ABC 123456 123456
w• Test-LinesXtra: INS DEF 123456 123456
w• TestLinesXtra: 123456 123456
w• TestLinesXtra: 123456 123456

I would like to insert text in in place of "INS ABC" text will be static not changing
Each line will have different text to insert ...

Is there easy way to do it like ...

line 1; insert ABC after w• TestLinesXtra:
line 2; insert DEF after w• TestLinesXtra:

Beside I did small function in perl to find and replace .. it works but I can't replace bullets "•"

What do you want to replace "INS ABC" with ?

Again, what do you want to replace "INS ABC" with ?
What do you want to replace "INS DEF" with ?

Do you want to replace "INS ABC" with "ABC" ? i.e. do you want to just remove "INS " ?
Do you want to replace "INS DEF" with "DEF" ? i.e. do you want to just remove "INS " ?

Yes, but replacing bullets was not your problem !
If you review your question again, you will find that you asked to insert some text after "w• TestLinesXtra:"

You never mentioned you wanted to replace the bullet itself.

You may want to phrase your question properly. Or at least show the file before and after the transformation you seek.

tyler_durden

Hey,

Sorry for confusing you ...
I got bullet thing resolved so thank you anyways...

And replacing ...
Before:
w• Test-LinesXtra: 123456 123456
w• Test-LinesXtra: 123456 123456

After:

w• Test-LinesXtra: TEST1 123456 123456
w• Test-LinesXtra: TEST2 123456 123456

so after w• Test-LinesXtra: im adding TEST1 and TEST2 and this needs to be added before 123456

Thank You

Code:

$ 
$ cat data.txt
w• Test-LinesXtra: 123456 123456
w• Test-LinesXtra: 123456 123456
$ 
$ perl -pi -e 's/(Test-LinesXtra:)/$1 TEST$./' data.txt
$ 
$ cat data.txt
w• Test-LinesXtra: TEST1 123456 123456
w• Test-LinesXtra: TEST2 123456 123456
$ 
$

tyler_durden

Thank You !

I have problem with running this script

From your terminal, copy and paste your Unix session over here, so that it shows what exactly you executed and what error it displayed.

tyler_durden

I guess that Im being stupid and I should include more stuff in this code ?
I tried to research those functions -pi -e but google its not helpful at all

command to execute if it matters "perl xs.pl"

Code:

#!/usr/bin/perl
open FILE, "data.txt" or die $!;
$ 
$ cat data.txt
w• Test-LinesXtra: 123456 123456
w• Test-LinesXtra: 123456 123456
$ 
$ perl -pi -e 's/(Test-LinesXtra:)/$1 TEST$./' data.txt
$ 
$ cat data.txt
w• Test-LinesXtra: TEST1 123456 123456
w• Test-LinesXtra: TEST2 123456 123456
$ 
$

Thank You In Advance