Program in perl to compute the number of lines in a file?

Answer 1

You can compute the number of lines in a file using Perl with the following code snippet:

my $filename = 'your_file.txt';  # Replace with your file name
open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
my $line_count = 0;
$line_count++ while <$fh>;
close($fh);
print "Number of lines: $line_count\n";

This script opens the specified file, reads through it line by line, increments the line count, and prints the total number of lines.