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