Help for this page

Select Code to Download


  1. or download this
    ^@^@^@^@ #at the end
    
  2. or download this
        open my $fh, "+<$Conf[1]" || 
            die "ERROR: Unable to open $Conf[1]\: $!\n";
    ...
        truncate $fh, ++$cur_pos if $cur_pos;
        
        close $fh;