in reply to Need to save a single line from delete on some special condition

Just redefine what a line is. 

local $/ = '}';

while( <INFILE> )
  {
  /timing/ and s/^.*max_transition.*\n//m;
  print $OPFILE $_;
  }

[download]

Semi-tested :)

  • Comment on Re: Need to save a single line from delete on some special condition
  • Download Code

In Section Seekers of Perl Wisdom