Re: RE : Data comparision analysis

2004-08-18 Thread Gunnar Hjalmarsson
Jose Nyimi wrote: Gunnar Hjalmarsson wrote: Marcos Rebelo wrote: Gunnar Hjalmarsson wrote: #!/usr/bin/perl use strict; use warnings; open my $GROUPS, 'File1' or die $!; open my $USERS, 'File2' or die $!; my %groups; chomp and $groups{$_} = [] for <$GROUPS>; while ( <$USERS> ) { my ($user, @grou

RE : Data comparision analysis

2004-08-18 Thread Jose Nyimi
> -Message d'origine- > De : Gunnar Hjalmarsson [mailto:[EMAIL PROTECTED] > Envoyé : mercredi 18 août 2004 17:18 > À : [EMAIL PROTECTED] > Objet : Re: Data comparision analysis > > Marcos Rebelo wrote: > > Gunnar Hjalmarsson wrote: > >> Or a

Re: Data comparision analysis

2004-08-18 Thread Gunnar Hjalmarsson
Marcos Rebelo wrote: Gunnar Hjalmarsson wrote: Or a little shorter: #!/usr/bin/perl use strict; use warnings; open my $GROUPS, 'File1' or die $!; open my $USERS, 'File2' or die $!; my %groups; chomp and $groups{$_} = [] for <$GROUPS>; while ( <$USERS> ) { my ($user, @groups) = split; $group

RE: Data comparision analysis

2004-08-18 Thread Marcos . Rebelo
> Gunnar Hjalmarsson wrote: > > David Greenberg wrote: > > #!/usr/bin/perl > > use strict; > > open (GROUPFH, " > my @groups = (); > > while (my $line = ) { > > chomp ($line); > > push (@groups, $line); > > } > > close (GROUPFH); > > open (USERFH, "File2"); > > my %group_to_users = (); >

Re: Data comparision analysis

2004-08-18 Thread olakunle_banjo
To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> cc: [EMAIL PROTECTED] Subject:Re: Data comparision analysis #!/usr/bin/perl use strict; open (GROUPFH, ") { chomp ($line); push (@groups, $line); } close (GROUPFH); open (USERFH

Re: Data comparision analysis

2004-08-18 Thread Gunnar Hjalmarsson
David Greenberg wrote: #!/usr/bin/perl use strict; open (GROUPFH, ") { chomp ($line); push (@groups, $line); } close (GROUPFH); open (USERFH, "File2"); my %group_to_users = (); while (my $line = ) { chomp ($line); my ($user, @user_groups) = split ('\s+', $line); for my $gro

Re: Data comparision analysis

2004-08-18 Thread David Greenberg
#!/usr/bin/perl use strict; open (GROUPFH, ") { chomp ($line); push (@groups, $line); } close (GROUPFH); open (USERFH, "File2"); my %group_to_users = (); while (my $line = ) { chomp ($line); my ($user, @user_groups) = split ('\s+', $line); for my $group (@user_groups) {

Data comparision analysis

2004-08-18 Thread olakunle_banjo
Hi all, I have two files, one with group names and the other with user name and groups. Can someone help with code that will enable me sort the data by group name? Example: File 1 Group1 Group 2 Group ..n File 2 User name group1 group2 ... groupn Final result Group name : user 1 us