Example 60 (bottom)

for $gid (sort by_gname keys %gname) {

%all = ();

for (split(/\s+/, $members{$gid})) {

$all{$_}++ if length $_;

}

@members = ();

foreach (sort by_last keys %all) {

push(@members, "$real{$_} ($_)");

}

$memberlist = join(", ", @members);

write;

}

sub by_gname { $gname{$a} cmp $gname{$b}; }

sub by_last { ($last{a} cmp $last{$b}) || ($a cmp $b); }

format STDOUT =

@<<<<<<<< @<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$gname{$gid}, "($gid)", $memberlist

~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$memberlist

.

Previous slide

Next slide

Back to first slide

View graphic version