Multi-line Substitution Gone Awry - perl Post: 302191644

Sponsored Content

Top Forums Shell Programming and Scripting Multi-line Substitution Gone Awry - perl Post 302191644 by EmperorNorton on Sunday 4th of May 2008 03:24:21 AM

05-04-2008

Registered User

Multi-line Substitution Gone Awry - sed

I've been working on this all night and finally have to ask for help... and not just from my coffee pot.

I need to replace a line of text only when it is proceeded by a line containing only the letter "H"

Input:

Code:

H      -2.204711   -0.922090   -0.024814

P
6-311+G(d)
****
C
6-311+G(d)
****
H
6-311+G(d)
****

Desired Output:

Code:

H      -2.204711   -0.922090   -0.024814

P
6-311+G(d)
****
C
6-311+G(d)
****
H
6-311++G(d,p)
****

I've tried many variations of perl and sed code that I have found here and elsewhere. As a result I've managed to do the opposite of what I wanted or to make a global substitution in dozens of different ways, but never have I managed the desired substitution.

My most recent attempts have been of this general nature:

Code:

perl -pe '$i=1 if (m+H+);if(m+FIND+) {if($i=1){s/FIND/REPLACE/} else {$i=0}}' input > output

I'm open to any options and am only using perl because it's what I'm most familiar with.

While the find and replace expressions I've been using for the above example may be incorrect I know that there is also an issue with the substitution code because I have used it on a simplified example containing only friendly characters and have encountered the same issues.

Last edited by EmperorNorton; 05-04-2008 at 12:48 PM.. Reason: no longer a perl question

EmperorNorton

View Public Profile for EmperorNorton

Find all posts by EmperorNorton

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to use Perl to merge multi-line into single line

Hi, Can anyone know how to use perl to merge the following multi-line information which beginning with "BAM" into one line. For each line need to delete the return and add a space. Please see the red color line. ******Org. Multi-line) BAM admin 101.203.57.22 ...

2. Shell Programming and Scripting

How to use Perl to join multi-line into single line

Hello, Did anyone know how to write a perl script to merge the multi-line into a single line where each line with start at timestamp Input--> timestamp=2009-11-10-04.55.20.829347; a; b; c; timestamp=2009-11-10-04.55.20.829347; aa; bb; cc;

3. Shell Programming and Scripting

perl regex multi line cut

hello mighty all there's a file with lots of comments.. some of them looks like: =comment blabla blablabla bla =cut i'm trying to cut this out completely with this code: $line=~s/^=.+?=cut//sg; but no luck also tryed to change it abit but still I don't understand how the...

4. Shell Programming and Scripting

Merge multi-line output into a single line

Hello I did do a search and the past threads doesn't really solve my issue. (using various awk commands) I need to combine the output from java -version into 1 line, but I am having difficulties. When you exec java -version, you get: java version "1.5.0_06" Java(TM) 2 Runtime...

5. Shell Programming and Scripting

Joining multi-line output to a single line in a group

Hi, My Oracle query is returing below o/p ---------------------------------------------------------- Ins trnas value a lkp1 x a lkp1 y b lkp1 a b lkp2 x b lkp2 y ...

6. Shell Programming and Scripting

Multi-line filtering based on multi-line pattern in a file

I have a file with data records separated by multiple equals signs, as below. ========== RECORD 1 ========== RECORD 2 DATA LINE ========== RECORD 3 ========== RECORD 4 DATA LINE ========== RECORD 5 DATA LINE ========== I need to filter out all data from this file where the...

7. Shell Programming and Scripting

Perl one-line substitution syntax

Hi, With the following Perl syntax, how to print the $_ value after the substitution? s/(\s*|\n)//g foreach (<>); If I use the below code, it produces some numeric output print s/(\s*|\n)//g foreach (<>);

8. Shell Programming and Scripting

Replacing lines matching a multi-line pattern (sed/perl/awk)

Dear Unix Forums, I am hoping you can help me with a pattern matching problem. What am I trying to do? I want to replace multiple lines of a text file (that match a multi-line pattern) with a single line of text. These patterns can span several lines and do not always have the same number of...

9. Shell Programming and Scripting

Help with reformat single-line multi-fasta into multi-line multi-fasta

Input File: >Seq1 ASDADAFASFASFADGSDGFSDFSDFSDFSDFSDFSDFSDFSDFSDFSDFSD >Seq2 SDASDAQEQWEQeqAdfaasd >Seq3 ASDSALGHIUDFJANCAGPATHLACJHPAUTYNJKG ...... Desired Output File >Seq1 ASDADAFASF ASFADGSDGF SDFSDFSDFS DFSDFSDFSD FSDFSDFSDF SD >Seq2

10. Shell Programming and Scripting

Multi line log files to single line format

I want to read the log file which was generate from other command . And the output was having multi line in log files for job name and server name. But i need to make all the logs on one line Source file 07/15/2018 17:02:00 TRANSLOG_1700 Server0005_SQL ...

LEARN ABOUT MOJAVE

line

line(1)                                                            User Commands                                                           line(1)

NAME

       line - read one line

SYNOPSIS

       line

DESCRIPTION

       The  line utility copies one line (up to and including a new-line) from the standard input and writes it on the standard output. It returns
       an exit status of 1 on EOF and always prints at least a new-line. It is often used within shell files to read from the user's terminal.

EXIT STATUS

       Exit status is:

       0        Successful completion

       >0       End-of-file on input.

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE         |      ATTRIBUTE VALUE        |
       +-----------------------------+-----------------------------+
       |Availability                 |SUNWcsu                      |
       +-----------------------------+-----------------------------+

SEE ALSO

       sh(1), read(2), attributes(5)

SunOS 5.10                                                          1 Feb 1995                                                             line(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to use Perl to merge multi-line into single line

Discussion started by: happyday

2. Shell Programming and Scripting

How to use Perl to join multi-line into single line

Discussion started by: happyday

3. Shell Programming and Scripting

perl regex multi line cut

Discussion started by: tip78

4. Shell Programming and Scripting

Merge multi-line output into a single line

Discussion started by: flagman5

5. Shell Programming and Scripting

Joining multi-line output to a single line in a group

Discussion started by: gvk25

6. Shell Programming and Scripting

Multi-line filtering based on multi-line pattern in a file

Discussion started by: Finja

7. Shell Programming and Scripting

Perl one-line substitution syntax

Discussion started by: royalibrahim

8. Shell Programming and Scripting

Replacing lines matching a multi-line pattern (sed/perl/awk)

Discussion started by: thefang

9. Shell Programming and Scripting

Help with reformat single-line multi-fasta into multi-line multi-fasta

Discussion started by: patrick87

10. Shell Programming and Scripting

Multi line log files to single line format

Discussion started by: ranjancom2000

LEARN ABOUT MOJAVE

line