Contagem de linhas em Perl (= wc -l)
Publicado por Perfil removido (última atualização em 22/02/2011)
[ Hits: 8.474 ]
Script muito tosco com 8 linhas (deve ser possível escrever isso em menos linhas), que criei enquanto estou aprendendo a programar em Perl. A partir de hoje, minha linguagem favorita número 2. A número 1 é shell script, a 3 é Tcl/Tk e a 4 é Python.
Espero que gostem... inseri esta função em um script meu recente e está funcionando bacana...
Escrevam assim:
xx *
e vejam qualquer porcaria sendo aberta e lida. Erros: ele abre diretórios e binários, o que torna sua saída pouco confiável, mas vale como exercício...
#!/usr/bin/perl
foreach $i (@ARGV) {
open(ONE, "< $i");
@LINES = <ONE>;
print "Arquivo: $i com " . scalar @LINES . " linhas.\n";
close(ONE);
}
Script para adicionar e remover usuários no IMSPECTOR
Processa todos os SlackBuild's
Em Ruby:
#!/usr/bin/env ruby
(Dir.glob("#{String(ARGV[0])}*")).each{|i| puts "Arquivo #{i} com #{(File.open(i, 'r').readlines).length}" if File.directory?(i) == false}
Nao lista diretorio
ps: execute com ./linha.rb "*", pois o ruby interpreta * como 8
Patrocínio
Destaques
Artigos
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Dicas
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tópicos
Falta pacotes de suporte ao sistema de arquivos (Gerenciador de discos... (6)
A area de trabalho ficou preta (16)
Agora temos uma assistente virtual no fórum!!! (244)
Servidor said: 530 5.7.0 Must issue a STARTTLS command first (in r... (0)
Top 10 do mês
-
Xerxes
1° lugar - 68.661 pts -
Fábio Berbert de Paula
2° lugar - 49.828 pts -
Renato Michnik de Carvalho
3° lugar - 27.302 pts -
Mauricio Ferrari
4° lugar - 14.926 pts -
Alberto Federman Neto.
5° lugar - 14.635 pts -
Daniel Lara Souza
6° lugar - 13.426 pts -
Diego Mendes Rodrigues
7° lugar - 12.900 pts -
Buckminster
8° lugar - 12.505 pts -
edps
9° lugar - 12.127 pts -
Alessandro de Oliveira Faria (A.K.A. CABELO)
10° lugar - 11.306 pts
Scripts
A maior comunidade GNU/Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda.
Site hospedado por:
