Count the lines of a file : IO « File « Perl






  1. Perl
  2. File
  3. 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