develooper Front page | perl.beginners | Postings from February 2002

RE: Uninitialized Value Error

Thread Previous
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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About