Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

AWK pattern matching, first and last

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting AWK pattern matching, first and last
# 8  
Old 12-22-2007
Quote:
Originally Posted by smb_uk
That's much cleaner, and I assume quicker as it's doing a single scan. I can't test this at the moment, but I assume this is addressing the single pass, and the clean, and not the returning of either first or last?
The main problem remaining, is the ability to return the last #M,M# (or nth if possible for future reference), as I want to show just the last modification to a file.

Furthermore, is there any way to contain the searching to within the top section of the file, between the /*H and H## ? as if there are many large files to document, it would make it much quicker.

Thanks for the help so far.
So out of all the M#,M# tags present you want to show just the last one as it is the last modification made to the file.

Code:
#!/bin/ksh

for file in `find . -type f -name "*.code"`
do
   echo ">>>>>>> PROGRAM: " $file
   echo ================================================================================
   awk '/^#P/ || /P#/ { gsub("#P|P#|##",""); print }
        /^#A/ || /A#/ { gsub("#A|A#|##",""); print }
        /^#C/ || /C#/ { gsub("#C|C#|##",""); print }
        /^#I/ || /I#/ { gsub("#I|I#|##",""); print }
        /^#D/ || /D#/ { gsub("#D|D#|##",""); print }
        /^#M/ || /M#/ { gsub("#M|M#|##",""); mtag[M] = $0 }
        END { print mtag[M] }' $file
done

# 9  
Old 12-23-2007
I'm not going to get a chance to play with this until Thursday now, but it looks as though I've all the elements I need now from the many replies, so thanks all for the input.
# 10  
Old 12-27-2007
Just thought I'd let you know what I've ended up with. It's ugly as, but does what I want, but I reckon there are probably many ways to make it more elegant, as it's really only a few lines of code repeated. This way I capture all the individual elements, and can therefore present flexibly.

The problem with all the other suggestions was that they didn't capture the last modification tag #M, M# where is was multi-line, but the examples put me on the right track

Suggestions always welcome.

Code:
#!/bin/ksh 

for file in `find . -type f -name "*.code"` 
do 

  awk ' 
    /H##$/{exit} 

    /^#M/ { # set to zero on each new tag to only retain the last 
      mctr=0 
    } 

    /^#P/,/P#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      ptag[++pctr]=$0 
    } 
    /^#A/,/A#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      atag[++actr]=$0 
    } 
    /^#C/,/C#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      ctag[++cctr]=$0 
    } 
    /^#I/,/I#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      itag[++ictr]=$0 
    } 
    /^#D/,/D#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      dtag[++dctr]=$0 
    } 
    /^#M/,/M#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      mtag[++mctr]=$0 
    } 
    /^#O/,/O#$/{ 
      gsub(/^#[PACIDMO#] | *[PACIDMO#]#$/,"") 
      otag[++octr]=$0 
    } 

    0

    END { 
      print ">>>>>>>>> PROGRAM : " FILENAME 
      print "================================================================================" 
      for (i=1; i<=pctr; i++) 
        print ptag[i] 
      for (i=1; i<=actr; i++) 
        print atag[i] 
      for (i=1; i<=cctr; i++) 
        print ctag[i] 
      for (i=1; i<=ictr; i++) 
        print itag[i] 
      for (i=1; i<=octr; i++) 
        print otag[i] 
      print "--------------------------------------------------------------------------------" 
      for (i=1; i<=dctr; i++) 
        print dtag[i] 
      for (i=1; i<=mctr; i++) 
        print mtag[i] 
    } 
  ' $file 

  print 

done

# 11  
Old 12-27-2007
Quote:
Originally Posted by smb_uk
The problem with all the other suggestions was that they didn't capture the last modification tag #M, M# where is was multi-line, but the examples put me on the right track

Suggestions always welcome.

The latest suggestion is shorter and contains the search to within the top section of the file.


Code:
#!/bin/ksh

for file in `find . -type f -name "file"`
do

  BLOCK=$(sed -n '/\/*H/,/H##/p' $file)

  echo "$BLOCK" | awk '(/^#P/||/P#/) || (/^#A/||/A#/) || (/^#C/||/C#/) || (/^#I/||/I#/) || (/^#O/||/O#/) {
                           gsub(/^#[PACIO#] | *[PACIO#]# $/,"")
                           tag[++ctr]=$0
                       }
                       (/^#D/||/D#/) {
                           gsub(/^#[D#] | *[D#]# $/,"")
                           dtag[++dctr]=$0
                       }
                       /^#M/||/M#/ {
                           gsub(/^#[M#] | *[M#]# $/,"")
                           mtag[m] = $0
                       } END {
                           print ">>>>>>>>> PROGRAM : " FILENAME
                           print "================================================================================"
                           for (i=1; i<=ctr; i++)
                             print tag[i]
                           print "--------------------------------------------------------------------------------"
                           for (i=1; i<=octr; i++)
                             print otag[i]
                           print mtag[m]
                       }'

done
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk pattern matching

I have two files, want to compare file1 data with file2 second column and print line which are not matching. Need help in matching the pattern, file2 second column number can be leading 0 or 00 or 000. Example: file1 1 2 3 file2 a,0001 b,02 c,000 d,01 e,2 f,0005 Expected output:... (20 Replies)
Discussion started by: vegasluxor
20 Replies

2. Shell Programming and Scripting

Pattern matching using awk

Hi I am trying to find a pattern match with column one containing 3 numbers. input file tmp.lst abcd456|1|23123|123123|23423 kumadff|a|dadfadf|adfd|adfadfadf xxxd999|d|adfdfs|adfadf|adfdasfadf admin|a|dafdf|adfadfa||| output file tmp4.lst abcd456|1|23123|123123|23423... (3 Replies)
Discussion started by: vamsekumar
3 Replies

3. Shell Programming and Scripting

awk pattern matching name in records

Hi, I'm very new to these forums. I was wondering if someone could help an AWK beginner with a pattern matching an actor to his appearance in movies, which would be stored as records. Let's say we have a database of 4 movies (each movie a record with name, studio + year, and actor fields with... (2 Replies)
Discussion started by: Jill Ceke
2 Replies

4. Shell Programming and Scripting

awk pattern matching

can somebody provide me with some ksh code that will return true if my the contents in my variable match anyone of these strings ORA|ERROR|SP2 variable="Error:ORA-01017: Invalid username/password; logon denied\nSP2-0640:Not connected" I tried this and it does not seem to work for me ... (3 Replies)
Discussion started by: BeefStu
3 Replies

5. Shell Programming and Scripting

AWK pattern matching on loop

Hi, I am still a beginner on shell scripting so please bear with me. What i am trying to do is filter my logfile based on some ID on field 24 which is defined in array. The filter result output will be moved to my log folder with the same name. The problem is when not using loop, this command... (2 Replies)
Discussion started by: howielim
2 Replies

6. UNIX for Dummies Questions & Answers

awk - pattern matching?

Hello all, I am trying to sort thru a database and print all the customers whose first names are only four characters. I just want to pull the first name only from the database. the database records appear like this in file: Mike Harrington:(510) 548-1278:250:100:175; first is name Mike... (4 Replies)
Discussion started by: citizencro
4 Replies

7. Shell Programming and Scripting

AWK:- matching pattern search

Dear Friends, I have a flat file. To pick certain details we have written an awk where we are facing difficulty. Sample of flat file. line 1 line 2 line 3 line 4 line 5 line 6 line 7 line 8 line 9 line 10 line 11 line 12 line 13 line 14 (Matching pattern "Lkm_i-lnr:"can be... (4 Replies)
Discussion started by: anushree.a
4 Replies

8. Shell Programming and Scripting

Awk -simple pattern matching

Find bumblebee and Megatron patterns (input2) in input1. If it is + read input1 patterns from Left to Right if it is - read input1 patterns from Right to Left Y= any letter (A/B/C/D) input1 c1 100 120 TF01_X1 + AABDDAAABDDBCADBDABC c2 100 120 TF02_X2 - AABDDAAABDDBCBACDBBC... (2 Replies)
Discussion started by: bumblebee_2010
2 Replies

9. Shell Programming and Scripting

AWK pattern matching

Hi, How can I tell awk to print all lines/columns if column number 5 contains the word Monday? I have tried nawk -F, '$5==Monday' OFS=, myfile > outputfile but that doesn't work (I am a newb!!) Thanks, (7 Replies)
Discussion started by: keenboy100
7 Replies

10. Shell Programming and Scripting

pattern matching using awk.

Dear Team, How do we match two patterns on the same line using awk?Are there any logical operators which i could use in awk like awk '\gokul && chennai\' <filename> Eg: Input file: gokul,10/11/1986,coimbatore. gokul,10/11/1986,bangalore. gokul,12/04/2008,chennai.... (2 Replies)
Discussion started by: gokulj
2 Replies
Login or Register to Ask a Question