Linux slogan
Visite também: BR-Linux.org · Dicas-L · Doode · NoticiasLinux · SoftwareLivre.org · UnderLinux



» Screenshot
Linux: X-tux
Por rafaelrsr
» Login
Login:
Senha:

Se você ainda não possui uma conta, clique aqui.

Esqueci minha senha



Scripts

Linux user

Publicado por Enzo de Brito Ferber em (última atualização em 24/09/2010)   [ 4985 hits ]

Login: EnzoFerber, 492665 pontos

Download:


Descrição

Bom, resolvi aprender Perl e comecei a brincar, e achei um tutorial que tinha o seguinte exercício.

Faça um programa que leia um arquivo de texto e imprima as linhas (com sua numeração no arquivo) que contenham:

- a letra x
- a palavra 'the' (case-sensitive)
- a palavra 'the' (no-case-sensitive) - ou seja, desconsiderar se as letras são maiúsculas ou minúsculas.



[ Download: file.tar.gz ]   [ Enviar nova versão ]

[ Esconder código-fonte ]

#!/usr/bin/perl
#
# Regular Expressions
#
# Program that counts only the line with:
#  - the letter x
#  - the string the (case-sensitive)
#  - the string the (non-case-sensitive)
#
# Exercice for Perl tutorial found at:
# http://www.comp.leeds.ac.uk/Perl/matching.html
#
# Enzo Ferber : <enzo@veloxmail.com.br>
# sep 2010

$file = "electricity.txt";
open ( FILE, $file );

@lines = <FILE>;
$i = 1;

foreach $_ ( @lines )
{
   if ( /x/ )
   {
      push ( @x, $i );
   }
   elsif ( /the/ )
   {
      push ( @thecs, $i );
   }
   
   # can't be elsif because won't include the(case sensitive)
   if ( /the/i )
   {
      push ( @thencs, $i );
   }

   # line numbers counter
   ++$i;
}

# Printing
print "Letter x\n\n";
foreach $xx ( @x )
{
   print "$xx $lines[$xx - 1]";
}

print "\nthe case-sensitive\n\n";
foreach $tcs ( @thecs )
{
   print "$tcs $lines[$tcs - 1]";
}

print "\nthe non-case-sensitive\n\n";
foreach $tncs ( @thencs )
{
   print "$tncs $lines[$tncs - 1]";
}




Scripts recomendados
   Script Linux recomendado arruma_nomes.pl
   Script Linux recomendado Shadow Post It
   Script Linux recomendado Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada
   Script Linux recomendado Script que remove palavras de um arquivo.
   Script Linux recomendado Script que procura uma palavra em um arquivo.

Comentários
[1] Comentário enviado por Sam L. em 25/09/2010 - 00:23h:

Então esse é o script, não tá tão ruim assim.


[2] Comentário enviado por EnzoFerber em 25/09/2010 - 05:02h:

Haha!
2 dias de Perl, dá um desconto ai vai... :)



Contribuir com comentário


  
Para executar esta ação você precisa estar logado no site, caso contrário, tudo o que for digitado será perdido.
Responsável pelo site: Fábio Berbert de Paula - Conteúdo distribuído sob licença GNU FDL
Site hospedado por:

Viva o Linux

A maior comunidade Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda em Linux.