nagual3
Хочу попробовать програмером 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