The following script needs to loop through a file
identifying users in each user group and the outputting
that to a specific file. In the end if I have 15 groups
I should have 15 files. However, when I loop I only get
the last group outputted to the correct file. What I
think is happening is I am looping through Index 0 which
is the group, but not index 1, which is the file. I am
sure it is printing only overwriting the file each time
until it gets to the end. I assume I need to use some
sort of nested loop, but I am confused on which one
(while, for foreach etc) and how to write it. Here is
the code and any help would be greatly appreciated.
Thanks
#!/usr/bin/perl -w
open
FILEIN, "/usr/local/scripts/security/sybase/user/groups_f
iles.txt";
open
ACCESSIN, "/usr/local/scripts/security/sybase/user/user_a
ccess_all.txt";
while (<FILEIN>) {
chomp ();
@file = split /:/;
}
open OUT, ">$file[1]";
select OUT;
while (<ACCESSIN>) {
chomp();
$user_access = $_;
if (/$file[0]/) {
print OUT "$user_access \n";
}}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
