use Perl

• Nice generalization of map (Score:1)

  by VSarkiss (704)

  Anyone have any interesting and innovative uses of the map function?

  Take a look at mapcar [perlmonks.org] from Tye McQueen. I see he also uploaded an even more generalized version to CPAN as Algorithm::Loops
  • Re:Nice generalization of map (Score:1)

    by sumdeus (4830)

    Thanks, that's awesome. It's nice to see some of the better functions of LISP available in Perl.
• My latest fun use of map: DBI to XML (Score:1)

  by runrig (3385)

  I came up with this to dump database tables to XML (using DBI and XML::Simple):

    my $xs = XML::Simple->new(rootname => 'record', suppressempty => undef);
  ...
    print qq!<TABLE name="$table">\n!;
    my $sth = $dbh->prepare("select * from $table");
    $sth->execute;
    my @row = map { { name => $_ } } @{ $sth->{NAME_lc} };
    my $record = { column => \@row };
    my @values = map { \$_->{content} } @row;
    $sth->bind_columns( @values );
    whil
  • Re:My latest fun use of map: DBI to XML (Score:1)

    by sumdeus (4830)

    It took me a couple of minutes to digest this, but after looking through everything it does, I think I have learned something, and that's what it is all about isn't it? I appreciate the little snippet. Thanks!