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
> -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
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
> 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 = ();
>
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
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
#!/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) {
