In that case, with this:
#!/usr/bin/perl -w
use strict;
while (<>) {
if ( /Test:/ .. /Results:/ and !/Results:/ ) {
if ( /Test:\s*/ ) {
print $'
}
else {
print if /./
}
}
}
you can get that output ( run the script with the input file).
HTH,
jac
On Tue, 2004-05-18 at 12:28, Sudhindra Bhat wrote:
> Hi
>
> This doesn't seem to work. I get a blank output. But yes the output that is
> want is
>
> 123456 ABCDEF
> 123456
>
> Regards,
> Sudhindra
>
> -----Original Message-----
> From: Jose Alves de Castro [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, May 18, 2004 3:55 PM
> To: Sudhindra Bhat
> Cc: Perl Beginners
> Subject: Re: Query
>
> On Tue, 2004-05-18 at 07:36, Sudhindra Bhat wrote:
> > Hi
> >
> > Thanks. But there is a small issue. Considering the same example, the
> piece
> > of code sent by you prints 123456 which is not on the same line as "Test:"
> > But it doesn't print the characters 123456 ABCDEF which is on the same
> line
> > as "Test:"
>
> That's because it is *not* printing the line with "Test:"... it is only
> printing the lines between the one that matches "Test:" and the one that
> matches "Results:"
>
> This prevents the line with "Test:" from being printed: !/Test:/
>
> This prevents the line with "Results:" from being printed: !/Results:/
>
> Exactly what output were you expecting?
> Something like this, perhaps:
>
> ===
> 123456 ABCDEF
>
> 123456
>
> (2)
> ===
>
> Would that be it?
>
> If so, try
>
> while (<FILE>) {
> if ( /Test:/ .. /Results:/ ) {
> if ( /Test:/ ) { print $' }
> elsif ( /Results:/ ) { print $` }
> else { print }
> }
> }
>
> HTH,
>
>
> jac
>
> > Regards,
> > Sudhindra
> >
> > -----Original Message-----
> > From: John W.Krahn [mailto:[EMAIL PROTECTED]
> > Sent: Monday, May 17, 2004 4:56 PM
> > To: Perl Beginners
> > Subject: Re: Query
> >
> > On Monday 17 May 2004 03:15, Sudhindra Bhat wrote:
> > >
> > > Hi
> >
> > Hello,
> >
> > > I wanted some help on a piece of code that I was writing. Well the
> > > requirement is like this. I have a file whose looks like this
> > >
> > > (1) Test: 123456 ABCDEF
> > >
> > > 123456
> > >
> > > (2) Results: ABCDEF
> > >
> > > Now I want my script to output all the contents between the two tags
> > > Test and Results. i.e. 123456 ABCDEF 123456. Can someone help me with
> > > this?
> >
> >
> > while ( <FILE> ) {
> > if ( /Test:/ .. /Results:/ and !/Test:/ and !/Results:/ ) {
> > print
> > }
> > }
> >
> >
> >
> > John
> > --
> > use Perl;
> > program
> > fulfillment
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > <http://learn.perl.org/> <http://learn.perl.org/first-response>
> --
> Josà Alves de Castro <[EMAIL PROTECTED]>
> Telbit - Tecnologias de InformaÃÃo
--
Josà Alves de Castro <[EMAIL PROTECTED]>
Telbit - Tecnologias de InformaÃÃo
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
