Front page | perl.beginners |
Postings from February 2002
RE: Uninitialized Value Error
Thread Previous
|
Thread Next
From:
Lyon, Justin
Date:
February 25, 2002 11:25
Subject:
RE: Uninitialized Value Error
Message ID:
A1CA89C7CC40D51195FD00805FA77B5B015F05AC@casfodc08s275.bankamerica.com
I don't know if this is the problem, but are you missing a } somewhere? I
couldn't find one for your second while loop.
Justin
> -----Original Message-----
> From: slhgkh5@attbi.com [mailto:slhgkh5@attbi.com]
> Sent: Monday, February 25, 2002 10:15 AM
> To: beginners@perl.org
> Subject: Uninitialized Value Error
>
>
> When I run the following script, I get the following
> error. Being new to perl, I am having trouble
> identifying where the error is at.
>
> Thanks for your help.
>
> Error:
> Use of uninitialized value at user_access1.pl line 43,
> <F_ACCESS> chunk 29.
>
> Here is the code:
>
> #!/usr/bin/perl -w
>
> use strict;
>
> use constant PATH
> => "/usr/local/scripts/security/sybase/user/";
> use constant GROUPS => "group_files.doc";
> use constant ACCESS => "user_access_all.doc";
>
> open F_GROUPS, PATH.GROUPS or die "Can't open: $!";
>
> while (<F_GROUPS>) {
> chomp(my @field = split /:/);
> my $field1 = $field[0];
> my $field2 = $field[1];
> my $field3 = $field[2];
>
> open OUT, ">$field[1]" or die "Can't open: $!";
> open F_ACCESS, PATH.ACCESS or die "Can't open:
> $!";
>
> while (<F_ACCESS>) {
> chomp ();
> my $user = $_;
> if (/$field[0]/) {
> write OUT;}
> }
> close OUT or die "Can't close:
> $!";
> close F_ACCESS or die "Can't close:
> $!";
>
>
> #unlink
> glob "/usr/local/scripts/security/sybase/user/*.txt";
> exit;
> }
>
> format OUT_TOP =
> |||||||||||||||||||||||||||||||||||||||||||||||||||||||||
> |||||||||||
>
> Company Name
> first column second column Third
> Column
> _____________________________________________________
> ...
> format OUT =
> @<<<<<<<<<<<<<< @<<<<<<<<<<<<<< @<<<<<<<<<<<<<<
> my $field1, my $field2, my
> $field3
> ...
>
> --
> To unsubscribe, e-mail: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org
>
> --
> To unsubscribe, e-mail: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org
>
--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
Thread Previous
|
Thread Next