Mailing-List: contact user-help@ant.apache.org; run by ezmlm
Precedence: bulk
Reply-To: "Ant Users List" <user@ant.apache.org>
Received-SPF: pass (hermes.apache.org: local policy)
content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Subject: RE: yet another regex question
Date: Tue, 14 Dec 2004 14:27:20 -0500
Message-ID: <EE25536746703C47BB395D3EB2549CD6078C9233@usilms22.ca.com>
Thread-Topic: yet another regex question
Thread-Index: AcTiB1/mKUytjKqzTNKFgt1R3aoTwgAAfpnAAAJb1zA=
From: "Nemana, Satya V" <Satya.Nemana@ca.com>
To: "Ant Users List" <user@ant.apache.org>

Gilbert, consider using cygwin on windows. Here are the awk and perl
scipts called by bash to do this. I try it in Ant, but I am not yet so
good at it.

Program: splitter.sh
#!/bin/bash
awk '
   BEGIN { flag=3D0; knt=3D0; }
      /^bin/  { flag =3D 1; next; }
      /^mail/ { flag =3D 2; next; }
      flag =3D=3D 1 { knt +=3D 1; print knt, $0 ;}
   END { print "Awk found " knt " lines"; }
' < /etc/passwd
perl -e '
$knt=3D0;
while ( $line =3D <> ) {
    if ( $line =3D~ m/^bin/ ) { $flag=3D1; next; };
    if ( $line =3D~ m/^mail/ ) { $flag=3D0; };
    if ( $flag ) { $knt +=3D 1; print "$knt $line"; };
};
print "Perl found $knt lines";
' < /etc/passwd

Results: #./splitter.sh
1 daemon:x:2:2:Daemon:/sbin:/bin/bash
2 lp:x:4:7:Printing daemon:/var/spool/lpd:/bin/bash
Awk found 2 lines
1 daemon:x:2:2:Daemon:/sbin:/bin/bash
2 lp:x:4:7:Printing daemon:/var/spool/lpd:/bin/bash
Perl found 2 lines
-Satya

-----Original Message-----
From: RADEMAKERS Tanguy [mailto:Tanguy.RADEMAKERS@swift.com]=20
Sent: Tuesday, December 14, 2004 1:20 PM
To: Ant Users List
Subject: RE: yet another regex question

The power of awk and many other goodies:

http://GnuWin32.sourceforge.net/

/t=20

>-----Original Message-----
>From: Gilbert Rebhan [mailto:ant@schillbaer.de]=20
>Sent: Tuesday, December 14, 2004 6:30 PM
>To: Ant Users List
>Subject: Re: yet another regex question
>
>Hi,
>
>Nemana, Satya V wrote:
>> Gilbert, I wrote an awk script to do this in the past. I=20
>need to search
>> for it now. Clue is to add 3 lines in the body of the awk.=20
>(line-1) use
>> if statement and set a flag to 1 and "skip 1", if pattern1=20
>matches with
>> $0 and then (line-2) reset the flag to 0 and "skip 1", if=20
>the pattern2
>> matches with $0. And at the end (line-3) print $0, if the=20
>flag is tested
>> with 1. Here flag is an awk variable. Let me know if you=20
>still need it
>> and I can get it.
>
>thanks for your friendly offer, but ...
>My env here :
>
>_Windows2000_ / Ant 1.6.2 / j2sdk 1.4.2_06
>
>(optional for regex i have jakarta-oro)
>
>so i'm not able to use the power of awk ...
>
>bye4now, Gilbert
>
>---------------------------------------------------------------------
>To unsubscribe, e-mail: user-unsubscribe@ant.apache.org
>For additional commands, e-mail: user-help@ant.apache.org
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: user-unsubscribe@ant.apache.org
For additional commands, e-mail: user-help@ant.apache.org


---------------------------------------------------------------------
To unsubscribe, e-mail: user-unsubscribe@ant.apache.org
For additional commands, e-mail: user-help@ant.apache.org