Count the lines of a file : IO « 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 » IO

Count the lines of a file

    





#!/usr/bin/perl





use strict;

use IO::File;



my $file    = "yourFile.txt";

my $counter = 0;



my $fh = IO::File->new($file) or die "Can't open $file: $!\n";

while ( defined (my $line = $fh->getline) ) {

  $counter++;

}



STDOUT->print("Counted $counter lines\n");

Related examples in the same category

1.	Call tell function from file handle
2.	Close a file handle
3.	Using format_write function to save formatted data to a file
4.	Using IO::File to write string to a file
5.	Using IO:File open to open a file for read
6.	Using write function to write string to a file
7.	Reference eof function from file handle to check if it is the end of file

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.