Printing a content of a file to the screen in perl

Question

I Have a perl script which write a few lines into file. (I checked and see that the file is written correctly) right after that I want to print the content to the screen, the way I'm trying to do it- is to read the file and print it

open (FILE, '>', "tmpLogFile.txt") or die "could not open the log file\n";
$aaa = <FILE>; 
close (FILE);  
print $aaa;

but I get nothing on the screen, what do I do wrong?

Answer 1

To read you need to specify the open mode as <. Also, $aaa = <FILE> has scalar context, and only reads a line. Using print <FILE> you can have list context and read all lines:

open (FILE, '<', "tmpLogFile.txt") or die "could not open the log file\n";
print <FILE>;
close (FILE);