Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: TCL script to print range of lines between patterns
Top Forums UNIX for Beginners Questions & Answers TCL script to print range of lines between patterns Post 303040568 by Chubler_XL on Thursday 31st of October 2019 08:39:08 PM
Old 10-31-2019
Try this:

Code:
set chan [open "mod1.v"]
set out [open "output.file.txt" "w"]
set lineNumber 0
# Read until we find the start pattern
while {[gets $chan line] >= 0} {
   incr lineNumber
   puts $line
    if { [string match "input*" $line]} {
        # Now read until we find the stop pattern
        while {[gets $chan line] >= 0} {
            incr lineNumber
            # get rid of spaces at front
            regsub {^ *} $line "" line
            # get rid of "output"
            regsub {^output} $line "" line
            if { [string match "*;" $line] } {
                regsub {;.*} $line "" line
                puts $out $line
                close $out
                break
            }
            puts -nonewline $out $line
        }
    }
}
close $chan

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

print range between two patterns if it contains a pattern within the range

I want to print between the range two patterns if a particular pattern is present in between the two patterns. I am new to Unix. Any help would be greatly appreciated. e.g. Pattern1 Bombay Calcutta Delhi Pattern2 Pattern1 Patna Madras Gwalior Delhi Pattern2 Pattern1... (2 Replies)
Discussion started by: joyan321
2 Replies

2. Shell Programming and Scripting

print lines between two patterns in unix

Detroit Chicago Newyork Battlecreek Jackson Brooklyn How would I print only lines match between Detroit and Brooklyn used awk ? I don't want print Detroit and Brooklyn output should be : Chicago Newyork Battlecreek Jackson Thanks Jhonny (2 Replies)
Discussion started by: jhonnyrip
2 Replies

3. Shell Programming and Scripting

Print lines between two repetitive patterns

Hi users I have one file which has number of occurrence of one pattern examples Adjustmenttype,11 xyz 10 dwe 9 abd 13 def 14 Adjustmenttype,11 xyz 24 dwe 34 abd 35 def 11 nmb 12 Adjustmenttype, not eleven .... ... ... (2 Replies)
Discussion started by: eranmoh
2 Replies

4. Shell Programming and Scripting

print lines between 2 matching patterns

Hi Guys, I have file like below, I want to print all lines between test1231233 to its 10 occurrence(till line 41) test1231233 qwe qwe qweq123 test1231233 qwe qwe qweq23 test1231233 qwe qwe qweq123 test1231233 qwe qwe qweq123131 (3 Replies)
Discussion started by: jagnikam
3 Replies

5. Shell Programming and Scripting

Need to print between patterns AND a few lines before

I need to print out sections (varying numbers of lines) of a file between patterns. That alone is easy enough: sed -n '/START/,/STOP/' I also need the 3 lines BEFORE the start pattern. That alone is easy enough: grep -B3 START But I can't seem to combine the two so that I get everything between the... (2 Replies)
Discussion started by: Finja
2 Replies

6. Shell Programming and Scripting

How to print only lines in between patterns?

Hi, I want to print only lines (green-italic lines) in between first and last strings in column 9. there are different number of lines between each strings. 10 AUGUSTUS exon 4558 4669 . - . 10.g1 10 AUGUSTUS exon 8771 8889 . ... (6 Replies)
Discussion started by: jamo
6 Replies

7. Shell Programming and Scripting

Print all lines between patterns

Hi Gurus, I have a requirement where I need to display all lines between 2 patterns except the line where the first pattern in it. I tried the following command using awk but it is printing all lines except the lines where the 2 patterns exist. awk '/TRANSF_/{ P=1; next } /Busy/ {exit} P'... (9 Replies)
Discussion started by: svajhala
9 Replies

8. Shell Programming and Scripting

Perl : to print the lines between two patterns

Hello experts, I have a text file from which I need to print all the lines between the patterns. Could anyone please help me with the perl script. names.txt ========= Badger Bald Eagle Bandicoot Bangle Tiger Barnacle Barracuda Basilisk Bass Basset Hound Beetle Beluga... (7 Replies)
Discussion started by: scriptscript
7 Replies

9. UNIX for Beginners Questions & Answers

How to print lines from a files with specific start and end patterns and pick only the last lines?

Hi, I need to print lines which are matching with start pattern "SELECT" and END PATTERN ";" and only select the last "select" statement including the ";" . I have attached sample input file and the desired input should be as: INPUT FORMAT: SELECT ABCD, DEFGH, DFGHJ, JKLMN, AXCVB,... (5 Replies)
Discussion started by: nani2019
5 Replies

10. Shell Programming and Scripting

TCL script to capture range of lines and create two independent variables

Hi I am having a code as stated below module abcd( a , b , c ,da , fa, na , ta , ma , ra , ta, la , pa ); input a , b, da ,fa , na , ta , ma; output c , ra ,ta , la ,pa ; wire a , b , da , fa ,na , ta , ma; // MBIST Structures... (1 Reply)
Discussion started by: kshitij
1 Replies

LEARN ABOUT MOJAVE

gets

gets(n) 						       Tcl Built-In Commands							   gets(n)

__________________________________________________________________________________________________________________________________________________

NAME

       gets - Read a line from a channel

SYNOPSIS

       gets channelId ?varName?
_________________________________________________________________

DESCRIPTION

       This command reads the next line from channelId, returns everything in the line up to (but not including) the end-of-line character(s), and
       discards the end-of-line character(s).

       ChannelId must be an identifier for an open channel such as the Tcl standard input channel (stdin), the return value from an invocation	of
       open or socket, or the result of a channel creation command provided by a Tcl extension. The channel must have been opened for input.

       If  varName  is omitted the line is returned as the result of the command.  If varName is specified then the line is placed in the variable
       by that name and the return value is a count of the number of characters returned.

       If end of file occurs while scanning for an end of line, the command returns whatever input is available up to the end of file.	 If  chan-
       nelId  is in nonblocking mode and there is not a full line of input available, the command returns an empty string and does not consume any
       input.  If varName is specified and an empty string is returned in varName because of end-of-file or because of insufficient data  in  non-
       blocking  mode,	then  the return count is -1.  Note that if varName is not specified then the end-of-file and no-full-line-available cases
       can produce the same results as if there were an input line consisting only of the end-of-line character(s).  The eof and fblocked commands
       can be used to distinguish these three cases.

EXAMPLE

       This example reads a file one line at a time and prints it out with the current line number attached to the start of each line.

	      set chan [open "some.file.txt"]
	      set lineNumber 0
	      while {[gets $chan line] >= 0} {
		  puts "[incr lineNumber]: $line"
	      }
	      close $chan

SEE ALSO

       file(n), eof(n), fblocked(n), Tcl_StandardChannels(3)

KEYWORDS

       blocking, channel, end of file, end of line, line, nonblocking, read

Tcl									7.5								   gets(n)
All times are GMT -4. The time now is 05:13 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy