perl help

[qtrsniper]

i dont have a good experience with a perl..

and i need anyone to help me to

Describe what this program does with explanation plz :

@files = (‘‘f1.txt’’, ‘‘f2.txt’’, ‘‘f3.txt’’);
foreach $file (@files) {
open (FILE, ‘‘$file’’) || die ‘‘Cannot open $file\n’’;
$lines = <FILE>;
close FILE;
open (FILE, ‘‘>>out’’);
print FILE $lines;
close FILE;
}

plz ASAP

Best Regards

[eWish]

When posting code here at TSDN please use the [CODE][/CODE] rather than the Bold Tags.

Regards,

Kevin

[eWish]

Your code opens an array of files, reads the contents and appends the output file with the conents of the other files.

--Kevin

[qtrsniper]

does it print all lines in the files or not ??

and thanx for reply me

[eWish]

appends the output file with the conents of the other files.

Yes it does. Please read my previous post.

[qtrsniper]

Sorry for disturbing :)

actually i've read your previuos reply

but i have another answer from my lectrurer which is :

the program appends the first line from each files.

and now i get confuse which one is the right answer ??

Thanx .

[eWish]

Sorry, it is early. He is correct. It does read the first line only. Have you tried to run the code yourself? If you want it to print the entire contents then you can assign it to an array instead.

--Kevin

[qtrsniper]

OK ..
i've alreay tried this code..

what is the logic behind this answer. ?
can you explain why it appends the first line only for each file.plz??

[KevinADC]

Why don't you aks your teacher/instructor/lecturor these questions?