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]";
}

Apaga fila do Exim...

Script para adicionar sites ao Squid

FTP – Script para adicionar e remover usuários via WEB

Journaling de arquivos

Script que procura uma palavra em um arquivo.