SPLN
Diário de Bordo - Aula 3 - 2016-02-29
Sumário
- Enviroment $PATH
- Script para criar nova pasta por aula
- Atribuir permissões ao script
- Expressões regulares
- Operadores sobre vários tipos de dados
- Arrays Associativos
- Vetores
- Apontadores (referências!)
- Funções Anónimas
- Perl Open()
- Bash scripts
- Perl scripts
Conteúdo
Enviroment $PATH
* para adicionar mais um caminho podemos:
- executar comando exportPATH=′ /bin′:PATH, para adicionar a pasta /bin que se encontra na home folder. Esta alteração funciona apenas na sessão activa.
- para tornar esta alteração permanente linuxmint basta adicionar “export PATH='~/bin':PATH" ao ficheiro: sudo vim /etc/bash.bashrc
Script para criar uma nova pasta com data da aula.
#!/bin/bash mkdir $(date +'%m-%d') cd $(date +'%m-%d') exec bash
Atribuir permissões ao script
$chmod 755 <filename> $chmod +x <filename>
Expressões Regulares
Para fazer match do caracter espaço, utiliza-se o seguinte :
\s é equivalente a [ \t\n] \S é equivalente a [^ \t\n]
Utilização do Default input and pattern-searching space:
while( $_ =~ /\S/){...}
while( /\S/ ){...}
Esta expressão regular apanha todas as linha nao vazias. Para aceder a campos da expressão regular que fez match utilizamos a seguinte sintax:
/(\w+)\s+(.+)/
onde as expressões que estão dentro de parênteses curvos são acessiveis através de das variáveis 1..9.
Operadores sobre vários tipos de dados
Consultar Capiulo 14. do Quick Reference Guide fornecido.
- Arrays Associativos
%a - array associativo (keys %a) devolve as chaves do array defined $a{$const} $delete($a{v3})
- Vetores
@l - vetor unshift(@l, elem ) - insere elemento no inicio do vetor elem = shift(@l) - retira elemento do inicio do vetor push(@l, elem) - insere elemento no final do vetor elem = pop(@l) - retira elemento do final do vetor $l[3] - accesso para o terceiro elemento da lista $l+0 = comprimento da lista @l = split(/a/,"batata") - retorna lista com elementos b,t,t join(',',1..10) - retorna string "1,2,3,4,5,6,7,8,9,10" join(',',@l) - retorna string "$l[0],$l[1],....$l[n]"
- Referências
\@l - devolve referência para o vetor \%a - devolve referêcia para array associativo \&$f - referência para função @x = (1,[3,4]) , $x[1][1] = 3
- Funções Anonimas
$x = sub{ ... } - função anonima
- Perl Open()
open(F,"<","/var/log/messages") - abre ficheiro /var/log/messages para leitura
- Open de IPC (inter process communication: pipes)
#!/usr/bin/perl
open(F, "-|", "ls") or die("Cant open file\n"); while (<>) { print "$. $_"; } close (F);
open(F,">","/var/log/messages") - abre ficheiro /var/log/messages para escrita. open(F,">>","/var/log/messages") - abre ficheiro /var/log/messages e acrescenta no final do ficheiro.
open(F,"-|","ls") - Estamos a criar um Pipe, O stdout do processo2 que é o comando 'ls', retorna-se para o processo1 que é o nosso script
#!/usr/bin/perl
open(F, "-|", "ls") or die("Cant open file\n"); while (<F>) { print "$. $_"; } close (F);
com open(F,”|-“,”ls“) - Estamos a criar um Pipe, O processo 1 pode escrever informação em pipe para o processo 2, usando Descripror 'F'
- Bash script
for a in {1..20000}; do echo $RANDOM >$a.txt; done - cria 20000 ficheiros
* Perl scripts
- imprime linhas repetidas, ignora linhas vazias
#!/usr/bin/perl use warnings; use strict; use utf8::all; my %hash; #array associado while (<>) { if($_ =~ /\S/ and $hash{$_}){ # Se linha não é vazia e é repetida print $_; } else { $hash{$_}++; } }
- Detetar ficheiros duplicados numa diretoria fornecida como argumento.
#!/usr/bin/perl use warnings; use strict; use utf8::all; my %hash; #array associativo my $arg =join ( " ", map{-d $_?"$_/*":$_}@ARGV); open(P, "-|", "md5sum $arg") or die("Cant open file\n"); while (<P>) { if(/(\w+)\s+(.+)/){ # $1 - md5sum; $2 - nome do ficheiro if($hash{$1}){ print "$hash{$1} = $2\n"; } $hash{$1} = $2; } }