topic Re: Search Pattern question in Operating System - HP-UX

Search Pattern question

Vasudevan MV — Thu, 28 Mar 2002 15:51:29 GMT

Hello experts,

I have a file like this :
12
13
15
Dest
17
.
.
66
Dest
88
How do I extract/search the word Dest as well as the previous number say for example 15,Dest like that 66,Dest?.

Re: Search Pattern question

Sandip Ghosh — Thu, 28 Mar 2002 16:00:37 GMT

Press Esc :/Dest

Sandip

Re: Search Pattern question

A. Clay Stephenson — Thu, 28 Mar 2002 16:01:07 GMT

Here is one simple awk method:

Create an awk file, e.g. my.awk
------------
BEGIN {
prev = ""
}
{
if ($0 ~ /Dest/)
{
printf("%s,%s\n",prev,$0)
prev = ""
}
else prev = $0
}
------------

Then cat yourfile | awk -f my.awk > outfile

Re: Search Pattern question

H.Merijn Brand (procura — Thu, 28 Mar 2002 16:27:50 GMT

# perl -ne 'BEGIN{$/="Dest\n"}s,.*\b(\d+)\n(?=$/),$1 ,s&&print' infile
15 Dest
66 Dest
#

Re: Search Pattern question

Vasudevan MV — Fri, 29 Mar 2002 09:09:29 GMT

Hello all,

Thanks for everyone, Clay's solution worked well and I have already written a shell script for this but I thought there should be some simple command to search multi pattern. Is there any other command or options in grep?

I haven't installed perl on my box.

Thanks
Vasu

Re: Search Pattern question

H.Merijn Brand (procura — Fri, 29 Mar 2002 09:22:07 GMT

http://hpux.cs.utah.edu/hppd/hpux/Languages/perl-5.6.1/

When you get used to perl, you can forget all about grep, awk, sed, sh, ...

Well, you /could/, but you shouldn't :) There's a good tool for every problem, it only happens that perl fits to most problems

Re: Search Pattern question

Deepak Extross — Fri, 29 Mar 2002 09:31:44 GMT

Attached is a small executable called ngrep to do just this. It's in C, so you cant modify it - but you can use a wrapper script to customise the output to your needs.
The usage is as follows:
ngrep -n 1 -p Dest -f
where
-n 1 : get the matching line and 1 line before it
-p Dest : search pattern is "Dest"
-f : filename in which to search.

Re: Search Pattern question

Deepak Extross — Fri, 29 Mar 2002 09:42:54 GMT

Attaching again - this time in Winzip format.
Seems like there was a problem with the last attachment.

Re: Search Pattern question

H.Merijn Brand (procura — Fri, 29 Mar 2002 10:18:42 GMT

That's all standard in GNU grep, even colourizing the matched pattern:

Context control:
-B, --before-context=NUM print NUM lines of leading context
-A, --after-context=NUM print NUM lines of trailing context
-C, --context=NUM print NUM lines of output context
-NUM same as --context=NUM
--color[=WHEN],
--colour[=WHEN] use markers to distinguish the matching string
WHEN may be `always', `never' or `auto'.

Re: Search Pattern question

Vasudevan MV — Fri, 29 Mar 2002 10:26:54 GMT

Deepak,

Thanks for ur response, but the executable is not running on my box. I think some compatibility problem

ERROR:
/usr/lib/dld.sl: Can't open shared library: /usr/lib/libc.2
/usr/lib/dld.sl: No such file or directory
Abort(coredump)

Vasu

Re: Search Pattern question

H.Merijn Brand (procura — Fri, 29 Mar 2002 10:30:50 GMT

Ahhhrgg. 10.20 maybe?

http://hpux.tn.tudelft.nl/hppd/cgi-bin/redirect?hpux/Languages/perl-5.6.1/perl-5.6.1-sd-10.20.depot.gz

Re: Search Pattern question

Ceesjan van Hattum — Fri, 29 Mar 2002 11:16:39 GMT

Simple and effective onliner:

awk '{if ($0!="Dest"){ prev=$0 } else printf "%s,%s\n",prev,$0; }' inputfile

It gives:
15,Dest
66,Dest

Regards,
Ceesjan