Reading More than One Line : file read « 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 read

Reading More than One Line

     



#!/usr/bin/perl

use warnings;

use strict;

open FILE, "test.txt" or die $!;

my @last5;

while (<FILE>) {

    push @last5, $_; # Add to the end

    shift @last5 if @last5 > 5; # Take from the beginning

}

print "Last five lines:\n", @last5;

Related examples in the same category

1.	The read Function (fread)
2.	Read file content to a scalar variable
3.	Read from a file
4.	Read hash value from a file
5.	Read line splitted by space
6.	Read only the last file line from a text file
7.	Read the first line of a local file
8.	Read till the end of the file
9.	Reading a directory all at once with an array: Use an array with the readdir command, instead of a scalar variable
10.	Reading from a Pipe
11.	Reading from a file
12.	Reading from the Filehandle
13.	Reading one line from the file handle STDIN.
14.	Reading the contents of a directory: change to that directory and then use the glob command
15.	Reads an entire input file into an array.
16.	Reads lines from a file and prints them.
17.	Using read function in while loop
18.	Using read function to read a file
19.	The read Function reads a number of bytes into a variable from a filehandle.
20.	Contents of the entire file are printed
21.	Numbering Lines
22.	To read a number of bytes from a file: $bytes_read = read(filehandle, $var, $length, $offset);
23.	To read from a file:

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.