Help with default record separator 1

[netman4u]

I have the following code that is not working. The problem seems to be with what I am redefining the default record separator to. I know I have done this before in a while loop to change the scope of what a record is defined as. Any help is appriciated.

use strict;
use warnings;
my $prefix		= shift @ARGV;
my $cpu			= shift @ARGV;
my $sched_name	= shift @ARGV;
my $job_name	= shift @ARGV;

open (CFG, "/home/mt71124/scripts/maestro_inst.txt") or die ("Error opening config file: $1");
$/ = &;
while (<CFG>) {
	next if /^\#/;
	next unless ($_ =~ /^$prefix\s+$cpu\s+$sched_name\s+$job_name\s+(\w+)/);
	print;
	exit;
}
print "Contact the application oncall for this prefix to remediate./n The workstation is $cpu the schedule is $sched_name the job is $job_name\n";

If at first you don't succeed, don't try skydiving.

 

[max1x]

if you print

my $prefix = shift @ARGV;
my $cpu = shift @ARGV;
my $sched_name = shift @ARGV;
my $job_name = shift @ARGV;

do they come back on a new line? If so, chomp (xxxxx) and also close CFG;

 

[KevinADC]

local $/ = '&';

------------------------------------------
- Kevin, perl coder unexceptional!

 

[netman4u]

Thanks for the reply max but that is not it. It might help if I posted the output I am getting:

# ./maestro_inst.pl EW PRDAI085 #EWSRDBUD EWDBABKUP
syntax error at ./maestro_inst.pl line 17, near ") {"
syntax error at ./maestro_inst.pl line 22, near "}"
Execution of ./maestro_inst.pl aborted due to compilation errors.

Could the "#" in my input argument be causing problems?

If at first you don't succeed, don't try skydiving.

 

[netman4u]

That did it Kevin

If at first you don't succeed, don't try skydiving.

 

[KevinADC]

please don't go skydiving netman

------------------------------------------
- Kevin, perl coder unexceptional!

 

[netman4u]

Haa! No worries there! You won't see me jumping out of a plane!

If at first you don't succeed, don't try skydiving.