On Sep 17, Rahul Garg said:
>while( ($details_1 = shift(@lines) ) =~ /^$/ )
You have the logic backwards. Change the =~ to a !~ instead.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
*
what you probably want is this:
for(@lines){
last unless $_;
# your stuff;
}
hth,
Jos
@lines is an array which contains blank lines as well as textlines...what i
want to do is to get a line from array thru shift(@lines)
until the array doesnt contain the textline or array has no more
li
