Хочу попрограммировать.

Хочу попробовать програмером Perl. Восновном занимаюсь системным администрированием: FreeBSD & etc nginx php-fpm apache... Писал на Perl POE mojo, но работа администратором есть рутина - мало в ней творчества.
Пример кода прилагается:

Код: [развернуть]

map { $msg->{'links'}->{$_}=0 }         @imgs=grep{! exists( $msg->{'links'}->{$_} ) }         @imgs=grep{!/\?op=search\&query/}         @imgs=grep{!/\/(forum)\//}         @imgs=grep{/^$base_/}         @imgs=map{$_=url($_,$base_)->abs;}         @imgs=grep{!$list{$_}++}         @imgs=$body=~ m!<a\shref="([^"]*)"!g; #"

Для связи jabber nagual@xmpp.jp