No real Perl code here, but I thought it would be neat to try to port the map() and grep() functions to AppleScript and see if that much-maligned language could use a little higher-order programming love.

I've also posted a thread on MacScripter, but here's the code in question. Thoughts?

on map over theList given script:theScript
    set resultList to {}
    repeat with theItem in theList
        set resultList to resultList & theScript's lambda(theItem)
    end repeat
    return resultList
end map

on grep over theList given script:theScript
    set resultList to {}
    repeat with theItem in theList
        tell theScript
            if lambda(theItem) is true then
                set resultList to resultList & theItem
            end if
        end tell
    end repeat
    return resultList
end grep

-- end library

script mapScript
    property HowMany : 0
    
    on lambda(someone)
        set HowMany to HowMany + 1
        return someone & " Gardner " & HowMany
    end lambda
end script
map over {"Mark", "Erin", "David"} given script:mapScript

script grepScript
    on lambda(someone)
        considering case
            if contents of someone is equal to "David" then
                return true
            end if
            return false
        end considering
    end lambda
end script
grep over {"Mark", "Erin", "David"} given script:grepScript
[download]

#!/usr/bin/perl

my %bologna = (
  firstname  => 'OSCAR',
  secondname => 'MAYER',
);
chomp foreach @days;
read STDIN, $me, 3;
print "Because ", values %bologna, " has a way with BOLOGNA\n"
  if $me eq 'why';
[download]

# given a DBI handle $dbh, a database table "foo" with a column "bar"

print join "\n", map join("\t", @$_), @{$dbh->selectall_arrayref( q{
   select bar from foo
} )};
[download]

# %oracle_instance's keys are names of Oracle instances on the server
# $WMI_Services is a Win32::OLE object corresponding to a server's
# "root/cimv2" WMI namespace
# And the "in" function is an import from Win32::OLE

# Here's the traditional code
print "These need to be active Oracle admins with DBA privileges:\n";

# get ORA_DBA and ORA_<instance>_DBA groups
my $group_query = "select * from Win32_Group where Name = 'ORA_DBA'";
foreach my $instance ( keys %oracle_instance ) {
    $group_query .= " or Name = 'ORA_${instance}_DBA'";
}
my $ora_groups = $WMI_Services->ExecQuery($group_query);

# get users in the above groups
foreach my $group ( in $ora_groups ) {
    my $domain_ora_dba = $WMI_Services->ExecQuery(<<WQL);
select PartComponent
    from Win32_GroupUser
    where GroupComponent =
        "Win32_Group.Domain='$group->{Domain}',Name='$group->{Name}'"
WQL
    # print the users' names
    foreach my $dba_groupuser ( in $domain_ora_dba ) {
        print "$1\n"
            if $dba_groupuser->{PartComponent} =~ /,Name="(\w+)"$/;
    }
}
print "\n";


# And now in the spirit of TMTOWTDI, let's hear it for map!
print "These need to be active Oracle admins with DBA privileges:\n",
  join( "\n",
    # list the names of users
    map $_->{PartComponent} =~ /,Name="(\w+)"$/,

    # that are members of
    in $WMI_Services->ExecQuery(
      'select PartComponent from Win32_GroupUser where ' .
      join ' or ', map "GroupComponent =
        \"Win32_Group.Domain='$_->{Domain}',Name='$_->{Name}'\"",

    # the Windows groups named
        in $WMI_Services->ExecQuery(
    # ORA_DBA
        "select * from Win32_Group where Name = 'ORA_DBA' or " .
        join ' or ',
    # or ORA_<instance>_DBA
          map "Name = 'ORA_${_}_DBA'", keys %oracle_instance
      )
    )
  ),
"\n\n";
[download]