Display file contents based on line number

Write a Perl program to display contents of the file in sorted order(ascending) based on line numbers given via command-line arguments. Note that the line numbers can be in any order and throw an error if the line number is large.

Syntax: perl Filename.pl File_to_be_read.abc x y z
Here,
Filename.pl is the name of the file that contains the perl script
File_to_be_read.abc is the name of the file which is to be read. This file can be of any type. Ex- text, script, etc.
x y z are the line numbers which are to be printed.

Approach:
Sort the line numbers excluding the first argument which is file name. Once sorted read whole content of the file into an array using single statement (my @file = <FNAME>). Now loop through the sorted line numbers and display the file content by passing line number as index to file array like (print “$file[$var-1]\n”;).

Example 1: Consider a file Hello.txt

#!/usr/bin/perl 
use warnings; 
use strict; 
   
# Check if line numbers are given as an input 
if (@ARGV < 2) 
{ 
    die "usage: pick file_name line_no1 line_no2 ..."; 
} 
   
open FNAME, $ARGV[0] or die "cannot open file"; 
  
# Exclude the first argument  
# for sorting line numbers 
shift (@ARGV);  
my @line_numbers = sort { $a <=> $b } @ARGV;  
   
# Read whole file content into an array  
# and removes new line using chomp() 
chomp (my @file = <FNAME>); 
   
foreach my $var (@line_numbers)  
{ 
    if ($var> $#file) 
    { 
        print "Line number $var is too large\n"; 
        next; 
    } 
    print "$file[$var-1]\n"; 
} 
close FNAME; 

Output:

Example 2: Reading the same script file

#!/usr/bin/perl 
use warnings; 
use strict; 
   
# Check if line numbers are given as an input 
if (@ARGV < 2) 
{ 
    die "usage: pick file_name line_no1 line_no2 ..."; 
} 
   
open FNAME, $ARGV[0] or die "cannot open file"; 
  
# Exclude the first argument  
# for sorting line numbers 
shift (@ARGV);  
my @line_numbers = sort { $a <=> $b } @ARGV;  
   
# Read whole file content into an array  
# and removes new line using chomp() 
chomp (my @file = <FNAME>); 
   
foreach my $var (@line_numbers)  
{ 
    if ($var> $#file) 
    { 
        print "Line number $var is too large\n"; 
        next; 
    } 
    print "$file[$var-1]\n"; 
} 
close FNAME; 

Output:

If the line number passed is not in the file:

My Personal Notes

Recommended Posts: