Thanks a million. It works perfectly. Regards, Sudhindra
-----Original Message----- From: Jose Alves de Castro [mailto:[EMAIL PROTECTED] Sent: Tuesday, May 18, 2004 5:01 PM To: Sudhindra Bhat Cc: Perl Beginners Subject: RE: Query 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> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
