How to append to a text file from an array

[fyyap]

Hi,

I'm a new learner abt Perl. Would like to know that how can I write and append to a text file from an array. Each entry will be seperate by next line (\n). Please help. Thanx

 

[PaulTEG]

open FH, ">>mytext.txt"; #>> meaning append
foreach $element (@myarray) {
print FH "$element";
}
close FH

 

[kennice]

Here are the requirements step:
- How to write all the file name with prefix AAA to file list
- append the filename to an array.

e.g

F_PREFIX = "AAA";
F_SUFFIX = "ddd";
test_list = "test_list";

ls $F_PREFIX*[0-9]*$F_SUFFIX > $test_list
for $filename in `cat $test_list`
do
@file_list=(@filename);
print "@file_list \n";
done


Thanks in advance.

/kl

 

[AHinMaine]

Tie::File is the correct way and is designed specifically for this task.

--
Andy

http://www.nachoz.com