Re^6: How to add a new line after three or four lines from a pattern after getting that pattern


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^6: How to add a new line after three or four lines from a pattern after getting that pattern

by anirbanphys (Beadle)

on Apr 03, 2019 at 12:57 UTC ( [id://1232092]=note: print w/replies, xml )

Need Help??

in reply to Re^3: How to add a new line after three or four lines from a pattern after getting that pattern
in thread How to add a new line after three or four lines from a pattern after getting that pattern

Hello thanos1983,

I am able to print the desired output in a file. Thank you for your help and give me your valuable time to resolve the issue :). Take care :)

With Best Regards Anirban

Comment on Re^6: How to add a new line after three or four lines from a pattern after getting that pattern

Replies are listed 'Best First'.

Re^7: How to add a new line after three or four lines from a pattern after getting that pattern
by thanos1983 (Parson) on Apr 03, 2019 at 13:23 UTC

Hello again anirbanphys,

If you want to write the output to the file in one line you can do it like this:

io('out.txt')->appendln($_) for @lines;

__END__

$ perl test.pl
$ cat out.txt
library(and_gate) {
  delay_model : table_lookup ;
  date : "Fri Mar 15 03:44:39 " ;
  time_unit : 1ms ;
  voltage_unit : 1V ;
  current_unit : 1A ;

  operating_conditions       ("AB0.5v45c") {
    process : 1 ;
    temperature : 45 ;
    voltage : 0.5 ;
  }
default_operating_conditions : "AB0.5v45c"

  input_voltage(default) {
    vi : 0 ;
    vh : 0.5 ;
    vim : 0 ;
    vin : 0.5 ;
  }

}
[download]

You can use the method IO::All/appendln from the same package as you do for reading.

Hope this helps, BR.

Seeking for Perl wisdom...on the process of learning...not there...yet!

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom