[curbview.com]

Originally Posted by theighost

could someone plz tell me what this function exactly does???

Code:

sub get_file_contents{ 
my ($filename) = @_; # Accepts the data sent to it
my ($filesize, $filesize, $thefile); # declares three variables to be used later
if ((-e "$filename") > 0) # Checks to see if a file exists.
	{
$filesize = (-s "$filename");# checks the size of a file
open (TFILECNTS, "$filename") || die "$filename"; #opens the file for reading
	read(TFILECNTS,$thefile,$filesize); #reads the file
close (TFILECNTS); # closes the file
	}

return ($thefile); returns what it read.

}

Look at the comments for answers (it's inside the quoted code you posted above). To be honest, you should read more about perl as translating it is not the purpose of this forum. Glad to help though.