Help for this page

Select Code to Download


  1. or download this
    my (@a, @b);
    # .  .  .
    ...
    # .  .  .
    my @m = map { my $x = $_; grep { /^$x$/ } @b; } @a;
    print @m;
    
  2. or download this
    my (@registered_users, @personalized_users);
    # .  .  .
    ...
           my $registered_user = $_;
           grep { /^$registered_user$/ } @personalized_users;
    } @registered_users;
    
  3. or download this
    my @employees; # declare an array.
    my %records; # declare a hash variable.
    my $name; # declare a scalar
    
  4. or download this
    # reference to an array
    my @employees;
    ...
        #  .  .  . 
        }
    }
    
  5. or download this
    $"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
    +-.*)$/;
    $_=<a HREF="/index.pl?node=%22ps%20-e%20-o%20pid%20"> "," $2 </a>;`@$_
    +`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
    print$\;}