#!/usr/bin/perl
use warnings;
use strict;

system "autorep -J NB% | egrep -v \"Job Name|___\" | awk '{print \$1}' | sed '/^\$/d' | sort > NB_JIL.txt";

chomp(my @server_names = <>);
open NB_FILE, '<', "/users/home/mkar/Perl_scripts/NB_JIL.txt" or die "Couldn't open Netbackup file!";

my $iteration_number = 1;
for my $backup_job (@server_names) {
	
	print ":$iteration_number:\n";
	print "$backup_job\n";
	print (grep /$backup_job/, <NB_FILE>);
	$iteration_number ++;
	
}

close NB_FILE or die "Couldn't close the file properly!"