Help for this page

Select Code to Download


  1. or download this
    foreach (@getcert) {
  $c = $_;
  2. or download this
    foreach my $c (@getcert) {
  3. or download this
    use List::MoreUtils qw( mesh );
my @users = qw( alice bob charlie );
my @ids   = qw( 123 456 789 );
my %id_of = mesh @users, @ids;
# now $id_of{ 'alice' } == 123
  4. or download this
    sub mesh (\@\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\
+@\@\@) {
    my $max = -1;
...

    map { my $ix = $_; map $_->[$ix], @_; } 0..$max; 
}