print_file_starting_with_query_line.pl

#!/usr/bin/env perl

# Prints contents of input file starting with input query line.

# Usage:
# perl print_file_starting_with_query_line.pl [file] [query line] > [output file]


my $file = $ARGV[0]; # file containing list of values
my $query_line = $ARGV[1]; # query value


my $NEWLINE = "\n";


my $printing = 0;
open FILE, "<$file" || die "Could not open $file to read; terminating =(\n";
while(<FILE>) # for each line in the file
{
	chomp;
	if($_ eq $query_line)
	{
		$printing = 1;
	}
	
	if($printing)
	{
		print $_.$NEWLINE;
	}
}
close FILE;


# April 23, 2024