Do you often find yourself inteviewing someone for your next big perl project and just can't tell how good is he?

If so, this code is for you!
It uses the most sophisticated computer vision techniques. All you need to do is supply the program with a picture of the person in question.

Run this code with a picture of the candidate, and see if he is Just Another Perl Hacker or not.

Be warned! this code uses hyper-trancedental ether waves to make the psychologycal analysis.

Usage: JAPHoto.pl candidate.ppm out.ppm
(sorry, only .ppm is supported. Use 'convert candidate.jpg candidate.ppm' or 'xv' to convert it)
output image is optional, just to support the analysis :)

For example:
>JAPHoto.pl merlyn.ppm
This is a 8-hacker!
Perl is 8.78% of his personality

How much do you get? Enjoy!

#!/usr/bin/perl -w

my ($image, $h, $w)=&load_ppm($ARGV[0]);
my $s=3*$h*$w;
my @A=unpack("C$s", $image);
my $l="AnREaHTtEePZahPZcarJsWPZ";
my $p=0;
my $i;
$l=~tr/PoZuTsEcRalnAeJhMHktrW/eMrEnctls ZuJhaPTARoHk/;
for($i=0; $i<$s-3; $i++) {
  if(chr($A[$i]) eq substr($l, $p%24, 1)) {
    my $i=$i - $i%3;
    print substr($l, $p%24, 1); #chr($l[$p]);
    $p++;
    $A[$i] = $A[$i]>127?0:255; $i++;
    $A[$i] = $A[$i]>127?0:255; $i++;
    $A[$i] = $A[$i]>127?0:255;
  }
}
printf "\nThis is a %d-hacker!\nPerl is %.2f%% of his personality\n", 
  int($p/24), 100*$p/$s*3*24;

if ($ARGV[1]) {
  $image = pack("C$s", @A);
  &write_ppm($ARGV[1], $image, $h, $w);
}

0;

# Thanks to Corion,jcwren,tilly
sub load_ppm {
  my $name=shift || die;
  my $image;
  open(F, "<$name") || die;
  $_=<F>;
  die "$name is not a PPM file, (header=$_)\n" unless($_ eq "P6\n");
  do { $_=<F> } while ( m/^\#/ );    # skip comments
  my ($w, $h) = m/(\d+)\D+(\d+)/;
  $_=<F>;
  die "Can't deal with this type of PPM\n" unless ($_==255);
  binmode(F);            # just in case
  $_=read(F, $image, 3*$h*$w) or die;
  close(F);
  return ($image, $h, $w);
}

sub write_ppm {
  my ($name, $image, $h, $w) = @_;
  open(F, ">$name") or die;
  binmode F;
  $_=sprintf "P6\n$w $h\n255\n";
  print F "$_$image";
  close(F);
}
[download]

(THIS what happens when you work on weekends :)
Seriously though, it's been a while that i wanted to write some image-processing code with perl, mostly for fun, and this code can be used to input/output images fairly efficiently for further processing.