Help for this page

Select Code to Download


  1. or download this
    open FILE, "<whatever.txt" or die "Oops $!\n";
    my @content = <FILE>;
    ...
    open FILE, ">whatever.txt" or die "Oops $!\n";
    print FILE @content;
    close FILE;
    
  2. or download this
    my $last = '';
    open FILE, "<whatever.txt" or die "Oops $!\n";
    ...
    close TMP;
    rename "tmp.txt", "whatever.txt";
    unlink "tmp.txt";