doubt

[Irfan J Sayed (isayed)]

Hi All,

Can you please tell me what is the value of $file. When i execute this
script . it says "Can't open : No such file or directory"

Please suggect.

Regards

Irf.

#!/usr/bin/perl

# file: count_lines.pl

# Figure 1.4: Count the lines of a file

use strict;

use IO::File;

my $file = shift;

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");