12-19-2008
ammu,
Try this script, if it were called... myscript.pl
chmod 755 myscript.pl
cat file1 | ./myscript.pl
#!/usr/bin/env perl
$p=0;
$c=0;
while (<STDIN>) {
if ($p == 0 && m/ERROR/) {
$p=1;
$c=$. + 10;
}
if ($p == 1) {
if ($. < $c) {
print $_;
} else {
last;
}
}
}
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello People,
Need some assistance/guidance.
OUTLINE:
Two files (File1 and File2)
File1 has some ids such as
009463_3922_1827
897654_8764_5432
File2 has things along the lines of:
Query= 009463_3922_1827 length=252
(252 letters)
More stufff here
... (5 Replies)
Discussion started by: Deep9000
5 Replies
2. Shell Programming and Scripting
HiCan someone show me how to print all lines from a file after a line matching a pattern using sed?Thanks (13 Replies)
Discussion started by: steadyonabix
13 Replies
3. Shell Programming and Scripting
Hi All,
Please find the sample file below:
NAME ID NUMBER
-------------------------------------------------------------------------------------------------- ---------
abcdefgheija;lksdf ... (13 Replies)
Discussion started by: niel.verty
13 Replies
4. Shell Programming and Scripting
I have in a file
domain.com. 1909 IN A 1.22.33.44
domain.com. 1909 IN A 22.33.44.55
ns1.domain.com. 1699 IN A 33.44.55.66
ns2.domain.com. 1806 IN A 77.77.66.66
I need to "grep" or "awk" out the lines starting with domain.com. as follows.
domain.com. 1909 IN A 1.22.33.44
domain.com.... (3 Replies)
Discussion started by: anilcliff
3 Replies
5. Shell Programming and Scripting
i have a file as below
sample.pl
parameter1
argument1
argument2
parameter2
I want out as below
argument1
argument2
that is , i want to print all the lines between parameter1 & parameter 2.
i tried with the following
if($mystring =~ m/parameter1(.*?)parameter2/) (2 Replies)
Discussion started by: roopa
2 Replies
6. Shell Programming and Scripting
I am using Solaris, I want to print
3 lines before pattern match
pattern
5 lines after pattern match
Pattern is abcd to be searched in a.txt. Looking for the solution in sed/awk/perl. Thanks ..
Input File a.txt:
=================
1
2
3
abcd
4
5
6
7
8 (7 Replies)
Discussion started by: manuswami
7 Replies
7. Shell Programming and Scripting
i need to search for a pattern from a big file and print everything expect the next 6 lines from where the pattern match was made. (8 Replies)
Discussion started by: chidori
8 Replies
8. Shell Programming and Scripting
I need to print the lines that do not match a pattern. I tried using grep -v and sed -n '/pattern/!p', but both of them are not working as I am passing the pattern as variable and it can be null some times.
Example
........ abcd......
.........abcd......
.........abcd......... (4 Replies)
Discussion started by: sunny1234
4 Replies
9. Shell Programming and Scripting
Data:
Pattern Data Data Data
Data Data Data
Data Data Data
...
With awk, how do I print the pattern matching line, then the subsequent lines following the pattern matching line. Varying number of lines following the pattern matching line. (9 Replies)
Discussion started by: dmesserly
9 Replies
10. Shell Programming and Scripting
Hello Experts , require help . See below output:
File inputs
------------------------------------------
Server Host = mike
id rl images allocated last updated density
vimages expiration last read <------- STATUS ------->... (4 Replies)
Discussion started by: tigerhills
4 Replies
YAPP(1) User Contributed Perl Documentation YAPP(1)
NAME
yapp - A perl frontend to the Parse::Yapp module
SYNOPSYS
yapp [options] grammar[.yp]
yapp -V
yapp -h
DESCRIPTION
yapp is a frontend to the Parse::Yapp module, which lets you compile Parse::Yapp grammar input files into Perl LALR(1) OO parser modules.
OPTIONS
Options, as of today, are all optionals :-)
-v Creates a file grammar.output describing your parser. It will show you a summary of conflicts, rules, the DFA (Deterministic Finite
Automaton) states and overall usage of the parser.
-s Create a standalone module in which the driver is included. Note that if you have more than one parser module called from a program,
to have it standalone, you need this option only for one of your parser module.
-n Disable source file line numbering embedded in your parser module. I don't know why one should need it, but it's there.
-m module
Gives your parser module the package name (or name space or module name or class name or whatever-you-call-it) of module. It defaults
to grammar
-o outfile
The compiled output file will be named outfile for your parser module. It defaults to grammar.pm or, if you specified the option -m
A::Module::Name (see below), to Name.pm.
-t filename
The -t filename option allows you to specify a file which should be used as template for generating the parser output. The default is
to use the internal template defined in Parse::Yapp::Output.pm. For how to write your own template and which substitutions are
available, have a look to the module Parse::Yapp::Output.pm : it should be obvious.
-b shebang
If you work on systems that understand so called shebangs, and your generated parser is directly an executable script, you can specifie
one with the -b option, ie:
yapp -b '/usr/local/bin/perl -w' -o myscript.pl myscript.yp
This will output a file called myscript.pl whose very first line is:
#!/usr/local/bin/perl -w
The argument is mandatory, but if you specify an empty string, the value of $Config{perlpath} will be used instead.
grammar
The input grammar file. If no suffix is given, and the file does not exists, an attempt to open the file with a suffix of .yp is tried
before exiting.
-V Display current version of Parse::Yapp and gracefully exits.
-h Display the usage screen.
BUGS
None known now :-)
AUTHOR
Francois Desarmenien <francois@fdesar.net>
COPYRIGHT
(c) Copyright 1998-1999 Francois Desarmenien, all rights reserved. See Parse::Yapp(3) for legal use and distribution rights
SEE ALSO
Parse::Yapp(3) Perl(1) yacc(1) bison(1)
perl v5.12.1 2001-02-11 YAPP(1)