Shell Programming and Scripting

Thanks a lot again..
Yeah you are right It prints , but my problem here is when the pattern *Main start found I need that no.
But in the above code I got the number before *Main End Pattern.

Regards..

What? There is no number before "*Main Start". You asked how to get the number one line before "*Main End". Or maybe I just do understand your question.

I think user_prady means the information needs to be printed already at the point when you see the Main Start although it occurs later in the file. So you need to either move things around in the file (the ugly multi-line regex substitution solution) or keep the stuff between Main Start and Main End in memory, and then print the number first, and then all the lines you have been keeping in memory. However, I'm afraid I don't know how to explain how to do this in more detail without repeating myself. In pseudo-code, something like

Code:

if main_start seen then
  do whatever you do but don't print yet
  instead, push @memory, whatever you would have printed
if main_end then
  print the last line from @memory (pop @memory)
  then print all the other stuff from @memory

In real-world code, you have to move things around a little (figure out if you are coming out of "main start seen" as basically the first thing), but this is only pseudo-code, mind.

I'm reluctant to write code before we get confirmation that this is the actual requirement, though.

After re-reading his first post I think you are correct era.

This should be pretty easy with Tie::File or read the entire file into an array, edit the array and then overwrite the file with the new array. I think you may have already suggested that approach.