Durante uma noite de estudo do meu pai para o doutorado, ele me chama e lê isso p/ mim:
Há um paradoxo no âmago da organização da Era da Informação: enquanto os empregadores enfraqueceram os laços da segurança no emprego e da lealdade, mais eles dependiam do capital humano; por outro lado, como os trabalhadores do conhecimento levam para o trabalho não só seus corpos, mas também suas mentes – até suas almas -, eles são muito mais leais ao trabalho (embora não o sejam ao empregador) do que os fabricantes de pneus cujo primeiro amor eram os hobbies que os esperavam em casa. Para agravar o problema, os trabalhadores do conhecimento mais valiosos são também os mais prováveis de sair da empresa, levando junto seu talento e seu trabalho.
Segundo Kathryn Rudie Harrigan e Gaurav Dalmia:
“Os trabalhadores do conhecimento … provavelmente dividirão sua lealdade entre sua profissão e seus pares, por um lado, e a organização empregadora, por outro. Eles permanecem comprometidos com empresas específicas desde que estas empresas lhes forneçam os recursos necessários para trabalhar em projetos interessantes. Se isso não ocorrer, os trabalhadores do conhecimento procurarão espaços maiores para brincar com as idéias … Para serem eficazes, os trabalhadores do conhecimento precisam ter laços com a empresa empregadora.”
Não pude deixar de fazer um paralelo com “Coisas que Nerds Precisam para Amar seu Emprego” do renata.org. E uma coisa muito importante que a Renata esqueceu no seu artigo, na minha opinião, foi a dificuldade do projeto.
Não adianta uma empresa não ter horario, ter livre escolha de mesa, ambiente agradavel, permitir escutarmos musica e no vestirmos como quisermos, falarem apenas pelo MSN, não nos obrigar a ir às festas da empresa, não nos darem trabalhos exóticos, ter uma maquina de cocacola, e nos liberarem a internet, se o que fazemos não for interessante! Temos que gostar do que fazemos, ainda mais que da empresa.
Como diz o texto lido pelo meu pai, não somos leais a empresas, somos leais a projetos! Projetos instigantes nos “prendem”. Não conseguimos tira-los da cabeça. É claro que empresas que “nos tratam bem” tb ajuda, mas gostamos de ter o cerebro ocupado com projetos divertidos.
É comum acontecer de recebermos propostas com salarios maiores mas para projetos não tão bons e recusarmos a proposta. Embora sejamos fieis a projetos, empresas não são fieis a nós. Como diz o texto, foram enfraquecidos os laços da segurança no emprego, por isso, damos mais importancia a projetos que a empresas. Pois mesmo quando damos preferencia a continuar na empresa a receber mais podemos acabar sem nada. Não é o caso de trocar o certo pelo duvidoso, pois nesse caso, nada é certo. Podemos ainda sermos demitidos caso desistam do projeto.
Mas então, para conquistar hackers, empresas precisam de certas condições minimas (caso tenham tudo exigido pela Renata, melhor ainda) e mais importante, um projeto interessante!
Breno:
Salve, pessoal! (Não, sério, salvem sempre… acabei de perder vários
arquivos aqui)
Hoje vieram falar comigo com um código Perl de 11 linhas que recebe um
arquivo no seguinte formato:
————-8<—————–
palavra1
palavra2
palavra3
….
————-8<—————–
e retorna uma lista com todas as palavras ORDENADAMENTE e SEM REPETIÇÕES.
Daí pensei cá com meus botões… dá pra fazer em 1 linha… e eis que
saiu minha tacada:
perl -ne ‘push@a,$_ unless$v{$_}++;END{@a=sort@a;print@a}’ lista.txt
lista2.txt …
47 caracteres. Mas como não sou um praticante ávido de Golfe (salve
salve mestre Fernando), tenho certeza que dá pra fazer em menos. Notem
que desse jeito, ao contrário do código inicial, é possível passar
quantos arquivos de lista de palavras tiverem, e ele vai ordenar e
remover duplicadas como se tudo fosse um único arquivão.
Quem se habilita ao desafio?
Dica: acho que trabalhando com concatenação de strings (ao invés de
push em lista) fica bem menor…
[]s
-b
Breno:
perl -ne ‘push@a,$_ unless$v{$_}++;END{print sort@a}’
42 caracteres 
Me ocorreu que a transição do sort era desnecessária assim que eu li
meu próprio post
[]s
-b
Camila:
perl -ne ‘$a{$_}++}{print sort keys%a’
vou pensar em mais outro jeito…
Fernando:
Breno, dá p/ diminuir bem só no END…
perl -ne ‘push@a,$_ unless$v{$_}++;END{print sort@a}’ lista.txt
unless é muito grande…
perl -ne ‘push@a,$_ if!$v{$_}++;END{print sort@a}’ lista.txt
dá p/ tirar o END…
perl -ne ‘push@a,$_ if!$v{$_}++}{print sort@a’ lista.txt
acho q já diminuiu bastante… mas acho q o melhor seria usar hash… mas a mila já roubou a minha solução!
Fernando:
Mila, parabéns… mas vc sabe q roubou essa resposta da minha cabeça! (e algumas partes do meu blog! (tipo “}{” duvidam? http://perl-e.org/blog/?p=5))
Camila:
roubei foi o seu }{, que só você e o tal homem do perlmonks que eu vi o post lembram! hahahaha
Breno:
Hahahahhahha adorei! Realmente, ainda não me acostumei com a notação
de }{, e bem que achei que estava usando variáveis demais. Acho que
estou mal acostumado com código legível, ainda sou muito cru pra golfe
com os campeões da PGA (Perl Golfers Association)
Mas e aí, Fernando… Vai deixar a Mlia te desbancar do trono???
[]s
-b
Camila:
hahaha da sua cabeça?!
faz que nem naquele filme, coloca um chapéu de papel alumínio! 
Fernando:
Ela pensou exatamente como eu… a resposta q ela deu era a q eu ia dar… mas ainda estou vendo se diminuo… mas a probabilidade é muito pequena…
Adriano:
Ei, também quero participar.
perl -e ‘print sort grep!$h{$_}++,<>’
Um a menos que:
perl -ne ‘$a{$_}++}{print sort keys%a’
Fernando:
parabéns!
Adriano++
Breno:
Boa Adriano!!!! E aí? Quem dá menos???
Adriano:
Dá para ordenar primeiro e daí tirar as duplicatas:
perl -e ‘print grep!$h{$_}++,sort<>’
-1 caracter
Camila:
adriano++ mesmo! ;D
Fernando:
adriano, se importa se eu botar essa sua resposta no meu blog?
Adriano:
Esteja à vontade. Ganhar golf (ou passar perto disso) no Rio-pm é um
fato histórico para mim. E eu disse “passar perto” porque eu acho que
tem jeito de encolher mais.
Fernando:
vcs me desculpem, mas eu vou apelar…
perl -E ’say grep!$h{$_}++,sort<>’ lista.txt
perl5.10…
Adriano:
Bonito! Eu tinha me esquecido do -E e fiquei imaginando como habilitar
o ’say’ com um mínimo.
Eu acho que valeu. Muito embora quase ninguém tenha o 5.10.0 instalado
e em produção ainda.
Breno:
Claro que valeu! Agora foi a sua vez de ler a minha mente com o -E…
[]s
-b (botando um cone de papel alumínio na cabeça)
Camila:
Blabos:
perl -e ‘print`sort -u teste.txt`’
5.8.8
Eden:
HAHAHAHA!
blabos++ # pelo bom humor
