File read and write : file write « File « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » File » 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: +>

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.