Read a file and put its content into one variable
$line=””;
open (FILE, “<“, “$public_html_dir/upload/promotii.html”);
@lines=<FILE>;
foreach $l (@lines){
$line.=$l;
}
close(FILE);
$line=””;
open (FILE, “<“, “file.html”);
@lines=<FILE>;
foreach $l (@lines){
$line.=$l;
}
close(FILE);
Write to a file
if($xEditor ne “”){
open (FILE, “>”, “file.html”);
print FILE “$xEditor”;
close (FILE);
}