Bastos

Eu queria ver as estatísticas do memcached, então resolvi procurar na internet e achei isso: http://lists.danga.com/pipermail/memcached/2003-October/000354.html, mas ai resolvi mudar um pouco para pegar todos os dados e virou:

#!/usr/bin/perl
use IO::Socket;
my $socket = IO::Socket::INET->new( PeerAddr => $ARGV[0],
[…]

[Read more →]

Acabei de ler no blog de desenvolvedores da BBC que eles apesar deles usarem e gostarem de Ruby on Rails, estão construindo um Perl On Rails. Talvez, se conseguirem, vamos ter um outro competidor para o Rails, até mesmo pq Ruby herdou de Perl muitas coisas. Eu não sei programar uma linha em Perl mas […]

[Read more →]

perl -ne ‘if (4..10) {print $_;}’ server.py

Vai ler o intervalo de linhas (4..10) do arquivo server.py
[update]

sed -n ‘1,3p’ server.py

Com sed
[/update]

[Read more →]

Quando vc quer achar uma string em arquivos de um diretório e trocar ela por alguma outra coisa… Bash tem a solução!
for i in `find *.php`
do
perl -pi -e “s/find/replace/g;” $i
done

Substitui “find” por “replace”. Simples e lindo. Ah usa perl… […]

[Read more →]