Re: Delete strings

perl -i -ne 'print if $end_del ||= /1\.0/' file
[download]

/1\.0/ does a substring match; if you want to stop deleting only when the line contains nothing but "1.0", either use /^1\.0$/, or $_ eq "1.0\n".

Comment on Re: Delete strings Select or Download Code

Replies are listed 'Best First'.
Re^2: Delete strings by jwkrahn (Abbot) on Apr 10, 2009 at 16:00 UTC
Another way to do that: `perl -i -ne 'print if /1\.0/ .. eof' file` [download]	[reply] [d/l]
Re^2: Delete strings by zashwing (Initiate) on Apr 10, 2009 at 15:51 UTC
What's with the idea you have to write the solution in a single line of code? This can be done easily with a few lines of code, why write it in a single line? Are you running with 8MB of ram or something? 1. Open the file IO in read write mode. 2. Read the file into an array. 3. Set up a good old fashioned boolean $foundString 4. Traverse the array til the boolean is true printing stuff to the file. 5. Boolean is true close the file..DONE.	[reply]
Re^3: Delete strings by almut (Canon) on Apr 10, 2009 at 16:55 UTC
... why write it in a single line? Why not? I never said you have to... Feel free to write as many lines as makes you feel comfortable. I just happen to like one-liners for tasks like these — which doesn't imply anyone else would have to like or use them, too. Yet others like golfing. Just for the fun of it...	[reply]