Search Results

awk '/1H1A/{str=$0}/5R0RECEIPT/&&str!=""{print str;str=""}' infile

try this,
perl -nle 'if(/1H1XXXXX\|(0001|0002|0003)\|(Y|N)/){print;$flg=1;next}if($flg && $_!~ /^1H1XXXXX/){print} else {$flg=0}' data.txt

And yet another Perl script -


$
$
$ cat f33
START
NO 0001/01
HEAD AAAA
BODY1 AAA
TAIL AAA
END
START
NO 0001/03
HEAD AAAA
BODY1 AAA
BODY2 AAA
TAIL AAA
END
START

A perl one:

perl -ne '$a=$a.$_;if(/^START/){$a=$_;$i=1}if(/NO 0003\/02/){$p=1};if (/^END/ && $i && $p){print $a;$p=0}' infile

perl -lne '$/="END";print $_."END" if /0003\/02/' file

For the above code END matches with SUBEND

So you add carriage return (\n) in your code

perl -lne '$/="\nEND";print $_."\nEND" if...

in solaris, use nawk or /usr/xpg4/bin/awk

You want to repalce 0001 in the begging or anywhere. Please be specific

you can use sed or tr command to achive this. Otherwise you will write a perl program for the same

Hi,

Try this...


#!/bin/sh

file_to_search=file.txt
original_file=$file_to_search

cp $original_file newfile
for da_b in $(cat /test/input.txt)
do
sed "s/Event: \"${da_b}\"/Event:...

awk -F\" 'NR==FNR{a[$0];next}$2 in a{sub($2,"un_"$2)}1' input.txt file.txt

Is not safe to edit-in-place, use a temporary file for output and move the temporary file over old file.

by awk
awk ' /^START/ {s=""} /NO 0003\/02/ {p=1} /^END/&&p {print s RS $0;p=0} {s=s RS $0}' infile