loading array from txt file 1

[u8ug2tfj]

I have managed to load form data t a text file that has each element separated by double quotes and commas ("item1","item2","item3"...) and I want to get open this file and use the data to repopulate an array so that I can use an item (@array[0]) to fill in a form value.

I have tried this:
open FROMFILE"<array.txt";
@array=<FROMFILE>;

But all of the data is loaded into the first element (@array[0]). Is there a way I can repopulate the array?

thanks.

 

[PaulTEG]

looks like when you wrote the file you didn't insert a new line between each item. No biggie. just split on ","

open FROMFILE, "<array.txt" or die $!; 
$line=<FROMFILE>;
@elements=split (/","/, $line);

You'll still need to strip the leading and trailing quotes from the first and last elements

$elements[0]=~s/"//g;
$elements[$#elements]=~s/"//g;

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[u8ug2tfj]

Thanks. Still a problem. Script runs but no output.

***text file looks like this***
"item1","item2","item3"

***code looks like this now***
open (FROMFILE,"<array.txt");
$line=<FROMFILE>;
@elements=split (/","/, $line);
close(FROMFILE);

$elements[0]=~s/"//g;
$elements[$#elements]=~s/"//g;

print "Content-type: text/html","\n\n";
print $element[1]; # Print out element one from array

exit(0);
***

but it prints blank.

-Gary

 

[u8ug2tfj]

Ok. Let me make it a general question. I want to save an array on a server so I can use it again, changing and calling each element in the array. It's not a big array so no need for a SQL database or anything... just maybe 50 elements maximum.

The elements will be strings, possibly containing commas as part of the content.

I need to "print/write" the array to a file, then be able to open the file and re-assembly the array. Then I can make an element, say $array[2] for example, a variable and use it in an HTML page.

How can I do this? Or can it be done?

 

[u8ug2tfj]

OK... got it to run! Thanks much!

 

[KevinADC]

http://search.cpan.org/~alancitt/Text-CSV-0.01/CSV.pm

------------------------------------------
- Kevin, perl coder unexceptional!