topic Re: Formatting in Operating System - HP-UX

Formatting

SAM_24 — Sun, 21 Jul 2002 20:48:12 GMT

Hi,

I have a text data file. I want to delete part of the file contents. Anything between START and END I want to delete.

EX:

line1
line2
START
line3
-
-
Line7
END
some lines
START
some lines
END

Thanks.

Re: Formatting

Ceesjan van Hattum — Sun, 21 Jul 2002 21:06:53 GMT

Hi,
Assuming you want not only delete the lines between START and END, but also START and END themselves, you can use the following:

awk '{if ($1=="START") del=1;
if (del!=1) print $0;
if ($1=="END") del=0;
}' DATAFILE

In case you want to leave the START-END lines itselve, you should use:

awk '{ if ($1=="END") del=0;
if (del!=1) print $0;
if ($1=="START") del=1;
}' DATAFILE

Regards,
Ceesjan

Re: Formatting

Steven Mertens — Sun, 21 Jul 2002 21:30:36 GMT

hi ,

#!/bin/sh

check=0

while read line
do
if [ "$line" = "START" ]
then
check=1
elif [ "$line" = "END" ]
then check=0
elif [ $check -eq 0 ]
then
echo $line
fi
done < data.txt

regards.
Steven

Re: Formatting

Steven Sim Kok Leong — Mon, 22 Jul 2002 01:03:11 GMT

Hi,

Here's another way:

# cat datafile | tr ["\n"] [+] | perl -e 'while () { $_ =~ s/\+START.+?END//g ; print $_; }' | tr [+] ["\n"]

This is assuming that you don't have a plus (+) sign in any of your text. + can be replaced by any other separator character not found in your needed text.

# cat datafile
this is line 1
this is line 2
START
this is line 3
this is line 4
this is line 5
this is line 6
END
this is line 8
START
this is line 10
END

# cat datafile | tr ["\n"] [+] | perl -e 'while () { $_ =~ s/\+START.+?END//g; print $_; }' | tr [+] ["\n"]
this is line 1
this is line 2
this is line 8

Hope this helps. Regards.

Steven Sim Kok Leong

Re: Formatting

H.Merijn Brand (procura — Mon, 22 Jul 2002 04:50:57 GMT

l1:/tmp 118 > cat xx
line1
line2
START
line3
-
-
Line7
END
some lines 1
START
some lines 2
END
l1:/tmp 119 > perl -ne '/^START/../^END/ or print' xx
line1
line2
some lines 1
l1:/tmp 120 >

Re: Formatting

SAM_24 — Mon, 22 Jul 2002 05:04:45 GMT

Thank you all.
It is working fine.

Re: Formatting

Frank Slootweg — Mon, 22 Jul 2002 10:12:09 GMT

I know that you already have several solutions, include procura's simple perl one, but I just would like you to know that even 'simple' sed(1) can do this in a simple way, i.e. as simple as perl:

sed '/START/,/END/d' output