@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 line(element)..how i
should implement the red part
while( ($details_1 = shift(@lines) ) =~ /^$/
.web.co.nz| 20 Customhouse Quay
Internet Solutions | Tel: +64 4 495 8250 | Box 1195, Wellington
Awesome service| Fax: +64 4 495 8259 | New Zealand
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, May 02, 2001 10:58 PM
> To
I'm not sure what you are saying your problem is,
and I may have this wrong, but since no one else
has answered, I'll have a go.
To generate a new, anonymous hash that is a
copy of an existing named hash, use {}.
Put the {} brackets around some expression that
can be seen by perl as a hash, eg:
Hi,
I am having a small problem while parsing the XML code. First of all, here
comes snip of the sourcecode:
...
if ( $NN->[$j] eq "OBU" ) # if OBU was found...
{
$OBU = $NN->[$j+1];
for $e ( 0..@$OBU ) # loop through the content of OBU
{
if ( ref($OBU->[$e]) eq "HASH" )
{
$
