File read and write : file write « File « Perl






  1. Perl
  2. File
  3. file write

File read and write

    

#!/usr/bin/perl
use warnings;
use strict;


open READ, "myfile" or die "Cannot open: $! \n";
my @lines = <READ>;
print "$. lines read \n";
close READ;

exit if $#lines < 9;


open WRITE, "> myfile" or die "Cannot write: $! \n";
print WRITE $_ foreach @lines[-10..-1];
print "done \n";
close WRITE;








Related examples in the same category

1.Write array to a file
2.Write data to file
3.Write ten lines of text to a pipe
4.Write unpack data to a file
5.Writes to the standard error file.
6.Save formatted data to a file
7.Save hash value to a file
8.Save new line character to a file
9.Save packed data to a file
10.Print data to a file
11.Copying files
12.Merges two files.
13.Shuffle a file?
14.Sort a file
15.Creating a file with the numbers 0-9: +>