Here is my effort to translate using input
Lines of input are enumerated to for easier grasp and are not in actual file / input the program is processing.
Code:
#
# Condition construct is met on line 1
# LAST2 is empty, LAST1 is defined as current processing line, or $0
#
1 a
#
# Condition construct is met on line 2
# LAST2 is defined as LAST1 (previous line), LAST1 as current processing line, or $0
# We do that till line 6, since condition is met, replacing the values of LAST1 / LAST2 accordingly.
#
2 b
3 c
4 d
5 e
6 f
#
# In this moment, on line 7, value of LAST1 is "f", while LAST2 is "e".
# Condition construct is not met for lines 7 to 10.
# LAST1/LAST2 do not change, nor those lines will be in output
#
7 e
8 f
9 e
10 f
#
# On line 11 LAST1 or LAST2 condition construct is met again.
# LAST2 is declared as "f", and LAST1 as "a" or $0 or current processing line
# The program continues to operate as above.
#
11 a
12 b
13 c
14 d
15 e
16 f
Hi,
I'm new to Unix. I want to read the all the lines from a text file and write the alternate lines into another file. Please give me a shell script solution.
file1
-----
one
two
three
four
five
six
seven
newfile(it should contain the alternate lines from the file1)
-------
one... (6 Replies)
i have 2 files and i want to compare
i currently cat the files and awk print $1, $2 and doing if file1=file2 then fail, else exit 0
what i want to do is compare values, with column 1 being a reference i want to compare line by line and then still be able to do if then statement to see if worked... (1 Reply)
Hi All,
In continuation of my previous thread 'Add text at the end of line conditionally', I need to further modfiy the file after adding text at the end of the line. Now, I need to add a fixed charater string at alternate lines starting from first line using awk or sed.My file is now as below:... (10 Replies)
Hello,
Please help me with this problem if you have a solution.
I have two files:
<file1> : In each line, first word is an Id and then other words that belong to this Id
piMN-1 abc pqr xyz py12
niLM y12 FY4 pqs
fiRLym F12 kite red
<file2> : same as file1, but can have extra lds... (3 Replies)
Hi,
I need to join every alternate line in a file
for eg:input file
$ cat abc
abc
def
ghi
jkloutput
abc def
ghi jklcode i wrote for this
$ cat add_line.pl
#!/usr/bin/perl -w
my $count=1;
#my $line=undef;
my @mem_line;
my $i=0;
my $x=0; (2 Replies)
Total UNIX Rookie, but I'm learning. I have columns of integer data separated by spaces, and I'm using a Mac terminal.
What I want to do:
1. Compare "line 1 column 2" (x) to "line 2 column 2" (y); is y-x>=100?
2. If yes, display difference and y's line number
3. If no, increment x and y by... (9 Replies)
Hi,
I have a file like
2011|ACC|.*
2013|ACC|.*
2011|ACCC|.*
2013|ACCC|.*
2013|ACCV|.*
2011|ADB|.*
2013|ADB|.*
2011|ADBC|.*
2013|ADBC|.*
2011|AIA|.*
2013|AXJ|.*
2013|NNN|.*
.* represnts any alphanumeric characters after this part of the string
I need a code to return only the... (3 Replies)
hi..
i have a fasta file with the following format
>sequence1
CCGGTTTTCGATTTGGTTTGACT
>sequence2
AAAGTGCCGCCAGGTTTTGAGTGT
>sequence3
AGTGCCGCAGAGTTTGTAGTGT
Now, i want to read alternate line and add "GGGGGGGGGGG" to end of every sequence
Desired output:
>sequence1... (4 Replies)
Discussion started by: empyrean
4 Replies
LEARN ABOUT DEBIAN
net::sieve::script::condition
Net::Sieve::Script::Condition(3pm) User Contributed Perl Documentation Net::Sieve::Script::Condition(3pm)NAME
Net::Sieve::Script::Condition - parse and write conditions in sieve scripts
SYNOPSIS
use Net::Sieve::Script::Condition;
my $cond = Net::Sieve::Script::Condition->new('header');
$cond->match_type(':contains');
$cond->key_list('"[Test4]"');
$cond->header_list('"Subject"');
print $cond->write();
or
my $cond = Net::Sieve::Script::Condition->new(
'anyof (
header :contains "Subject" "[Test]",
header :contains "Subject" "[Test2]")'
);
print $cond->write();
DESCRIPTION
Parse and write condition part of Sieve rules, see Net::Sieve::Script.
Support RFC 5228, 5231 (relationnal) and regex draft
CONSTRUCTOR
new
Match and set accessors for each condition object in conditions tree, "test" is mandatory
Internal
id : id for condition, set by creation order
condition : array of sub conditions
parent : parent of sub condition
AllConds : array of pointers for all conditions
Condition parts
not : 'not' or nothing
test : 'header', 'address', 'exists', ...
key_list : "subject" or ["To", "Cc"]
header_list : "text" or ["text1", "text2"]
address_part : ':all ', ':localpart ', ...
match_type : ':is ', ':contains ', ...
comparator : string part
METHODS
equals
Purpose : test conditions
Return : 1 on equals conditions
write
Purpose : write rule conditions in text format
Return : multi-line formated text
AUTHOR
Yves Agostini
CPAN ID: YVESAGO
Univ Metz
agostini@univ-metz.fr
http://www.crium.univ-metz.fr
COPYRIGHT
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.10.0 2008-09-15 Net::Sieve::Script::Condition(3pm)
11-12-2018
