Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    foreach my $role (@roles) {
       print(join("\t", $role => sort @{$actors_by_role{$role}}), "\n");
    }
    
  2. or download this
    1       A       B
    2       A       B       C
    ...
    4       A
    5       A       B
    6       B
    
  3. or download this
    use strict;
    use warnings;
    ...
       }
       print("\n");
    }
    
  4. or download this
            A       B       C
    1       X       X
    ...
    4       X
    5       X       X
    6               X