<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>On 2007/01/29, at 01:12, Lorn wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite">Eu também fico entre Perl e C, mesmo não tendo muita experiencia de programacão em C, mas devo confessar uma coisa, varios "truques" que eu usava no bash, com sed, tr, etc eu consigo fazer com um comando em perl de 1 linha, só não consigo pegar colunas como o awk pega :/ <BR>Exemplo:<BR>cat access.log | awk '{print $1;}' <BR><BR>Isso pega a 1a coluna do arquivo access.log do apache, que é o ip, eu não tentei muito, mais não consegui substituir isso com perl ( Claro, se eu fizer um script até dá, mais estou falando de um linha perl -e '....'  ) :D <BR></BLOCKQUOTE><BR></DIV><DIV>cat access.log | perl -F'\s+' -anle 'print $F[0]'</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></BODY></HTML>