Sorry if my question is not clear. Let me rephrase as below:
Replace value of column 5 of a line with value of column 4 of previous line provided value of column 5 is zero and value of column 1 and column 3 of both lines match.
Replace value of column 5 of a line with value of column 4 of same line + constant if value of column 5 is zero and value of column 1 and column 3 of a line does not match with its previous line.
Thanks
Angshuman
---------- Post updated at 11:58 PM ---------- Previous update was at 10:54 PM ----------
I am also trying to explain with the example:
In above example,
column 5 of line 1 is not zero. Hence no action
column 5 of line 2 is zero, value of column 1 and column 3 of line 2 matches with column 1 and column 3 of line 1, replace column 5 with value of column 4 of line 1
In line 10, value of column 1 and column 3 does not match with value of column 1 and column 3 of column 9, also value of column 5 in line 10 is 0, replace value of column 5 of line 10 with a constant value.
Hi
I have a log file (say log.txt). I have to search for a line which has the string ( say ERROR) in the log file and copy 15 lines after this into another file (say error.txt). Can someone give me the code and this has to be in PERL
Thanks in advance
Ammu (3 Replies)
Ok I have a file with hundreds of lines, four columns, space delimited, TESTB.TXT for example
TESTB.TXT
---
AA ZZ 12 34
BB YY 56 78
CC XX 91 23
DD VV 45 67
---
I want a new file that has 7 columns, the first four are identical, and the next 3 are the last three of the next line...so... (5 Replies)
I'm trying to read an xml file and copy it line by line to another file and want to preserve the tabs.
What i'm trying to do is if I get to a certain line in the xml, I'm going to check to see if the next line is specifically what I want. If it's not, then I want to insert a single line of text... (4 Replies)
I generally use yy to copy a line and then p to paste the line at end of current line.
But is there a way to paste the copied line in concatenation with the current line with out going to next line. (3 Replies)
How would you do vim copy line and paste at the beginning, middle, and end of another line. I know yy copies the whole line and p pastes the whole line, but on its own separate line. Sometimes I would like to copy a line to the beginning, middle, or end of another line. I would think this would be... (3 Replies)
I am trying to delete lines in archived Apache httpd logs
Each line has the pattern:
<ip-address> - - <date-time> <document-request-URL> <http-response> <size-of-req'd-doc> <referring-document-URL>
This pattern is shown in the example of 6 lines from the log in the code box below. These 6... (1 Reply)
Hi,
I have lines that have pattern like this.
1)
productFamilyGroupIndex < Local.ProductFamilyGroup.capacity))
and
2)
if (local.getProductFamilyGroup().size() >= Local.ProductFamilyGroup.
capacity)
So, If I need to find the pattern
grep '\(< \|>= \)Local.*capacity'... (4 Replies)
Help,
I have a text file which looks like
disco 5674536
3456 jambo
disco 453678
4578 jambo
I would like to have an output which looks like below
disco 3456 disco 4578 (4 Replies)
Hi,
I have an XML file and I am tring to extract some data form it, after lot of data cleaning process, I ended up with an issue, and need your urgent support.
my current input data in below format:
<Node>xxxxxx
<Node>yyyyy</Node>
<Node>zzzzzz
<Node>12345</node>
I need... (9 Replies)
Perl::Critic::Policy::ValuesAndExpressions::ProhibitImplUserNContributed PePerl::Critic::Policy::ValuesAndExpressions::ProhibitImplicitNewlines(3)NAME
Perl::Critic::Policy::ValuesAndExpressions::ProhibitImplicitNewlines - Use concatenation or HEREDOCs instead of literal line breaks in
strings.
AFFILIATION
This Policy is part of the core Perl::Critic distribution.
DESCRIPTION
Strings with embedded line breaks are hard to read. Use concatenation or HEREDOCs instead.
my $foo = "Line one is quite long
Line two"; # Bad
my $foo = "Line one is quite long
Line two"; # Better, but still hard to read
my $foo = "Line one is quite long
"
. "Line two"; # Better still
my $foo = <<'EOF'; # Use heredoc for longer passages
Line one is quite long
Line two
Line three breaks the camel's back
EOF
CONFIGURATION
This Policy is not configurable except for the standard options.
AUTHOR
Chris Dolan <cdolan@cpan.org>
CREDITS
Initial development of this policy was supported by a grant from the Perl Foundation.
COPYRIGHT
Copyright (c) 2007-2011 Chris Dolan. Many rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license
can be found in the LICENSE file included with this module.
perl v5.16.32014-06Perl::Critic::Policy::ValuesAndExpressions::ProhibitImplicitNewlines(3)