Help for this page

Select Code to Download


  1. or download this
    open(FILE, "+<$file");
    my $temp;
    ...
    print FILE $temp;
    truncate(FILE,tell(FILE));
    close(FILE);