Re: $/ find a line

perl -i.orig -pe 'if ($c) { s/^line(\d+)/name$1/ } $c = /^\$\$\$\$$/; 
+' input.txt
[download]

Boris

Comment on Re: $/ find a line Download Code

Replies are listed 'Best First'.
Re^2: $/ find a line by Anonymous Monk on Aug 10, 2004 at 11:46 UTC
rather prefer it in a script version! but i guess this is not `while (<IN>) { $c = /^\$\$\$\$$/; if ($c) { s/^line(\d+)/name$1/ } }` [download]	[reply] [d/l]
Re^3: $/ find a line by borisz (Canon) on Aug 10, 2004 at 11:53 UTC
Nearly, it is: keep in mind, that you get backupfiles as filename.orig. `BEGIN { $^I = ".orig"; } while (defined($_ = <ARGV>)) { if ($c) { s/^line(\d+)/name$1/; } $c = /^\$\$\$\$$/; print $_; }` [download] Boris	[reply] [d/l]