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

Linux banner
Linux banner
Linux banner
Linux banner


» Screenshot
Linux: Arch + KDE
Por kyouraku


Scripts

Linux user

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

Login: EnzoFerber, 509369 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 :
# sep 2010

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

@lines = ;
$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 Listar arquivos de um diretório.
   Script Linux recomendado Eliminando caracteres indesejados
   Script Linux recomendado move.pl
   Script Linux recomendado script para localizar conteudo de arquivo
   Script Linux recomendado Remove comentarios de scripts

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.