A unary plus sign before curly brackets in Perl

Curly braces are overloaded - they can signify either a hash or a block

+{ Prepending a plus sign forces it to be interpreted as a hash.

{; Adding a semicolon forces it to be interpreted as a block.

Sources:
- The Case of the Overloaded Curlys
- perlref

Select fields from a hashref in Perl

my @wanted_fields = qw/link id title image/;
my %display_fields;
@display_fields{@wanted_fields} = @{ %{$thing->to_hashref} }{@wanted_fields};

Perl map command

%hash = map { get_a_key_for($_) => $_ } @array;

http://perldoc.perl.org/functions/map.html

How to convert a tab separated file into a Perl hashref


open(LIST,'<',$datafile) || die "Failed to open ".$datafile;
my @header = split("\t", <list>);
chomp(@header);
my @nodes = ();
while (my $line = <LIST>) {
chomp($line);
my $i=0; my %node = map { $header[$i++] => ($_?$_:'[empty field]') } split("\t", $line);
push @nodes, \%node;
}
close(LIST);

print Dumper(\@nodes);


Using Java classes from XSLT under Coocon / JBoss

Possible MD5 methods:
<xsl:value-of select="md5:encode('$term')" xmlns:md5="java:org.jboss.security.Base64Encoder" />
<xsl:value-of select="md5:encodeString($term,'ISO-8859-1')" xmlns:md5="java:org.hsqldb.lib.MD5" />

Search through built-in classes in JBoss:
find /path/to/jboss-4.2.2.GA/server/default/ -name "*.jar" -exec jar tf {} \; | grep MD5 -H

Elementary JSON

{
 "Image": {
   "Width":800,
   "Height":600,
   "Title":"View from 15th Floor",
   "Thumbnail":
   {
     "Url":"http:\/\/scd.mm-b1.yimg.com\/image\/481989943",
     "Height": 125,
     "Width": "100"
   },
 "IDs":[ 116, 943, 234, 38793 ]
 }
}

Thanks Yahoo!