$count = 1;
find(\&edits, $dir);
sub edits() {
if ( $File::Find::name =~ /\.pl$/ ){
@$count = `$path/core/perl/categories/$_`;
$newfile = $_;
$newfile =~ s/\.pl$/\.html/;
$template2 = $template;
$template2 =~ s/$galleries/@$count/;
open(PAGE,">$path2/search/$newfile");
print PAGE $template2;
close(PAGE);
print "<div align=center><font face=verdana size=1>$newfile has been rebuilt ($count/227)</font></div>";
$count++;
}
}
That is the part of the code that is important. There is no syntax error. But i thought binary and ascii were only upload methods. If you have any other clues on that to open file in non binary mode(which is what i think is already happening) please let me know.