Manipulação de arquivos
Publicado por Enzo de Brito Ferber (última atualização em 24/09/2010)
[ Hits: 8.052 ]
Homepage: http://www.maximasonorizacao.com.br
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.
#!/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]"; }
Inserindo sites em Lista do Squid
FTP – Script para adicionar e remover usuários via WEB
Eliminando caracteres indesejados
Script para adicionar e remover usuários no IMSPECTOR
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Máquinas Virtuais com IP estático acessando Internet no Virtualbox
Criar entrada no GRUB para uma ISO Linux (7)
Open Suse não abre wi-fi automaticamente (3)
Ruído no Microfone (ALC287 - AMD Ryzen 5 7535HS) no Debian 12.9 (15)