RE: Re: Unexpected Array

here is the code

$file = "/usr/local/rf-north/cgi-bin/chandata.txt";
  
             open (FH, $file) || die "Unable to open file $file\n";
             @data = <FH>;
             close (FH);

foreach $item (@data){

    
             @line = split (/ /, $item); 
         push(@finalarray, @line);
                 
        }
[download]

Does this help?>
Thanks Again
Dipul

Comment on RE: Re: Unexpected Array Download Code

Replies are listed 'Best First'.
RE: RE: Re: Unexpected Array by Fastolfe (Vicar) on Nov 13, 2000 at 23:35 UTC
It would help if we could see the contents of a sample line. I suspect it looks like this: `some stuff some more stuff` [download] with a bunch of spaces. You are splitting on `/ /`, which is a single space, which means you are going to get a lot of empty elements in your resulting list. You probably want to change your split statement to split on `/\s+/`, which will catch all whitespace between elements.	[reply] [d/l] [select]
RE: RE: Re: Unexpected Array by autark (Friar) on Nov 13, 2000 at 23:38 UTC
It seems to me that you want to create an array containing the words of the file. If you split on space like you have done `split / /, $item`, then you will only split on one space. I think you want to split on: `split /\s+/, $item` [download] or just: `split ' ', $item` [download] The last one will strip all blanks at the start as well as on the end of the string. Autark	[reply] [d/l] [select]
RE: RE: Re: Unexpected Array by swiftone (Curate) on Nov 13, 2000 at 23:35 UTC
Fastolfe is in all likelyhood completely correct. Don't forget that $item will have a newline at the end of it. That's not the problem here, but it may not be what you intend. Also, if chandata.txt gets very large, you're holding it in memory twice. You may want to loop through the file line by line and just extract the info you want.	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks