I hadn't touched for a month, but I hadn't lost my touch! My first line after coming back to a Perl project is this gem:

($e->{name}, $e->{original}) = @{(grep $_->{aid} == $e->{aid}, @{$e->{alias}})[0]}{'name', 'original'};

(It's really nothing special, it just looks so... noisy. It's art! 😆)


Just making sure I still conform to the stereotypical Perl programmer type. I might need to grow a beard, though.

Sign in to participate in the conversation

Welcome to your niu world ! We are a cute and loving international community O(≧▽≦)O !