Help for this page

Select Code to Download


  1. or download this
    use Fcntl 'O_RDWR';
use Tie::File;

my $file = "./filename.ext";
tie (my @lines, 'Tie::File', $file, mode => O_RDWR,
  2. or download this
    ) or die "Can't update $file: $! ";
shift @lines;
(tied @lines)->flush;
untie @lines;
  3. or download this
    use Fcntl 'O_RDWR';
use Tie::File;
...
shift @lines;
(tied @lines)->flush;
untie @lines;
  4. or download this
    $ file filename.ext
filename.ext: ASCII text