note
jmcnamara
<br>
Not really shorter just an alternative. This is in golf mode, therefore no <tt>-w</tt> or <tt>strict</tt>:
<code>
#!/usr/bin/perl
sub indexArray {
$i = -1;
undef %h;
map {$h{$_} = $i++} @_;
$h{$_[0]}
}
my @array=('john','paul','ringo','george');
print indexArray('john', @array) ."\n"; # Returns 0
print indexArray('ringo',@array) ."\n"; # Returns 2
print indexArray('mick', @array) ."\n"; # Returns -1
</code>
<br>
John.
<br>
-- <br><br>
66003
66003