Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Search between pattrens.
Top Forums Shell Programming and Scripting Search between pattrens. Post 302116770 by aigles on Tuesday 8th of May 2007 12:13:07 PM
Old 05-08-2007
A awk solution a little bit more complex ...
Code:
function print_lines() {
   for (i=1; i<=line_count; i++) {
      if (i <= end_line) print lines[i];
      delete lines[i];
   }
   line_count = 0;
   end_line   = 0;
   inside     = 0;
}
/"EXEC CICS DELETEQ TS"/ {
   print_lines();
   inside = 1;
}
inside {
   lines[++line_count] = $0;
   if (/END-IF/) end_line=line_count;
}
END {
   print_lines();
}


Jean-Pierre.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Need to change a set of lines between two given Pattrens

Hi All I have a Small Requiement I wanted to replace all the Follwing lines as follows Input:: file1 EVALUATE WS-TEMP-ATTR(15:1) WHEN 'D' MOVE DFHDARK TO WS-ATTR-COLOR WHEN OTHER MOVE DFHDFT ... (9 Replies)
Discussion started by: pbsrinivas
9 Replies

2. Shell Programming and Scripting

Search and insert between Pattrens...

Hi Every One... I wanted to inserted a line in between matched pattrens.. Ex... InPut File.. WRITEQ TS ************************** aaaaaaaaaaaaaaaaaaaaaaaa bbbbbbbbbbbbbbbbbbbbbbbb cccccccccccccccccccccccc SOME PATTREN's RESP ( WS-RESP ) ... (7 Replies)
Discussion started by: pbsrinivas
7 Replies

3. Shell Programming and Scripting

Search between pattrens with one string in one or other line........

Hi have a lots of files with this type of code Example--1 PROCEDURE DIVISION USING AAA BBB CCC. Example--2 PROCEDURE DIVISION Some Commented Lines.... USING AAA BBB CCC. Example--3 (12 Replies)
Discussion started by: pbsrinivas
12 Replies

4. Shell Programming and Scripting

Perl: Search for string on line then search and replace text

Hi All, I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text. An example of 4 lines in my file is: 1. MatchText_randomNumberOfText moreData ReplaceMe moreData 2. MatchText_randomNumberOfText moreData moreData... (4 Replies)
Discussion started by: Crypto
4 Replies

5. Shell Programming and Scripting

Perl - use search keywords from array and search a file and print 3rd field when matched

Hi , I have been trying to write a perl script to do this job. But i am not able to achieve the desired result. Below is my code. my $current_value=12345; my @users=("bob","ben","tom","harry"); open DBLIST,"<","/var/tmp/DBinfo"; my @input = <DBLIST>; foreach (@users) { my... (11 Replies)
Discussion started by: chidori
11 Replies

6. Shell Programming and Scripting

Perl - start search by using search button or by pressing the enter key

#Build label and text box $main->Label( -text => "Input string below:" )->pack(); $main->Entry( -textvariable => \$text456 )->pack(); $main->Button( -text => "Search", -command => sub { errchk ($text456) ... (4 Replies)
Discussion started by: popeye
4 Replies

7. Shell Programming and Scripting

Search pattern on logfile and search for day/dates and skip duplicate lines if any

Hi, I've written a script to search for an Oracle ORA- error on a log file, print that line and the .trc file associated with it as well as the dateline of when I assumed the error occured. In most it is the first dateline previous to the error. Unfortunately, this is not a fool proof script.... (2 Replies)
Discussion started by: newbie_01
2 Replies

8. What is on Your Mind?

Search Results (Search, New, and Today's Topics) Animation Switch

Hey, I added an animation switch on the search results page; so by default the thread previews are off, but if you want to look at them, just click on the green button and the thread previews will turn on (and back off). See image and attached animation: ... (1 Reply)
Discussion started by: Neo
1 Replies

9. UNIX for Beginners Questions & Answers

How to use a grep search to search for a specific string within multiple directories?

Lets say I have a massive directory which is filled with other directories all filled with different c++ scripts and I want a listing of all the scripts that contain the string: "this string". Is there a way to use a grep search for that? I tried: grep -lr "this string" * but I do not... (3 Replies)
Discussion started by: Circuits
3 Replies

10. What is on Your Mind?

YouTube: Search Engine Optimization | How To Fix Soft 404 Errors and A.I. Tales from Google Search

Getting a bit more comfortable making quick YT videos in 4K, here is: Search Engine Optimization | How To Fix Soft 404 Errors and A.I. Tales from Google Search Console https://youtu.be/I6b9T2qcqFo (0 Replies)
Discussion started by: Neo
0 Replies

LEARN ABOUT DEBIAN

cgtrfs

cgtrfs.f(3)							      LAPACK							       cgtrfs.f(3)

NAME

       cgtrfs.f -

SYNOPSIS

   Functions/Subroutines
       subroutine cgtrfs (TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO)
	   CGTRFS

Function/Subroutine Documentation
   subroutine cgtrfs (characterTRANS, integerN, integerNRHS, complex, dimension( * )DL, complex, dimension( * )D, complex, dimension( * )DU,
       complex, dimension( * )DLF, complex, dimension( * )DF, complex, dimension( * )DUF, complex, dimension( * )DU2, integer, dimension( * )IPIV,
       complex, dimension( ldb, * )B, integerLDB, complex, dimension( ldx, * )X, integerLDX, real, dimension( * )FERR, real, dimension( * )BERR,
       complex, dimension( * )WORK, real, dimension( * )RWORK, integerINFO)
       CGTRFS

       Purpose:

	    CGTRFS improves the computed solution to a system of linear
	    equations when the coefficient matrix is tridiagonal, and provides
	    error bounds and backward error estimates for the solution.

       Parameters:
	   TRANS

		     TRANS is CHARACTER*1
		     Specifies the form of the system of equations:
		     = 'N':  A * X = B	   (No transpose)
		     = 'T':  A**T * X = B  (Transpose)
		     = 'C':  A**H * X = B  (Conjugate transpose)

	   N

		     N is INTEGER
		     The order of the matrix A.  N >= 0.

	   NRHS

		     NRHS is INTEGER
		     The number of right hand sides, i.e., the number of columns
		     of the matrix B.  NRHS >= 0.

	   DL

		     DL is COMPLEX array, dimension (N-1)
		     The (n-1) subdiagonal elements of A.

	   D

		     D is COMPLEX array, dimension (N)
		     The diagonal elements of A.

	   DU

		     DU is COMPLEX array, dimension (N-1)
		     The (n-1) superdiagonal elements of A.

	   DLF

		     DLF is COMPLEX array, dimension (N-1)
		     The (n-1) multipliers that define the matrix L from the
		     LU factorization of A as computed by CGTTRF.

	   DF

		     DF is COMPLEX array, dimension (N)
		     The n diagonal elements of the upper triangular matrix U from
		     the LU factorization of A.

	   DUF

		     DUF is COMPLEX array, dimension (N-1)
		     The (n-1) elements of the first superdiagonal of U.

	   DU2

		     DU2 is COMPLEX array, dimension (N-2)
		     The (n-2) elements of the second superdiagonal of U.

	   IPIV

		     IPIV is INTEGER array, dimension (N)
		     The pivot indices; for 1 <= i <= n, row i of the matrix was
		     interchanged with row IPIV(i).  IPIV(i) will always be either
		     i or i+1; IPIV(i) = i indicates a row interchange was not
		     required.

	   B

		     B is COMPLEX array, dimension (LDB,NRHS)
		     The right hand side matrix B.

	   LDB

		     LDB is INTEGER
		     The leading dimension of the array B.  LDB >= max(1,N).

	   X

		     X is COMPLEX array, dimension (LDX,NRHS)
		     On entry, the solution matrix X, as computed by CGTTRS.
		     On exit, the improved solution matrix X.

	   LDX

		     LDX is INTEGER
		     The leading dimension of the array X.  LDX >= max(1,N).

	   FERR

		     FERR is REAL array, dimension (NRHS)
		     The estimated forward error bound for each solution vector
		     X(j) (the j-th column of the solution matrix X).
		     If XTRUE is the true solution corresponding to X(j), FERR(j)
		     is an estimated upper bound for the magnitude of the largest
		     element in (X(j) - XTRUE) divided by the magnitude of the
		     largest element in X(j).  The estimate is as reliable as
		     the estimate for RCOND, and is almost always a slight
		     overestimate of the true error.

	   BERR

		     BERR is REAL array, dimension (NRHS)
		     The componentwise relative backward error of each solution
		     vector X(j) (i.e., the smallest relative change in
		     any element of A or B that makes X(j) an exact solution).

	   WORK

		     WORK is COMPLEX array, dimension (2*N)

	   RWORK

		     RWORK is REAL array, dimension (N)

	   INFO

		     INFO is INTEGER
		     = 0:  successful exit
		     < 0:  if INFO = -i, the i-th argument had an illegal value

       Internal Parameters:

	     ITMAX is the maximum number of steps of iterative refinement.

       Author:
	   Univ. of Tennessee

	   Univ. of California Berkeley

	   Univ. of Colorado Denver

	   NAG Ltd.

       Date:
	   November 2011

       Definition at line 209 of file cgtrfs.f.

Author
       Generated automatically by Doxygen for LAPACK from the source code.

Version 3.4.1							  Sun May 26 2013						       cgtrfs.f(3)
All times are GMT -4. The time now is 09:45 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy