Projecto Natura

User Tools

Site Tools

Trace:
spln2016:dirio3

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
spln2016:dirio3 [2016/03/04 19:38] – ambsspln2016:dirio3 [2016/03/09 16:45] (current) – ambs
Line 1: Line 1:
 ====== SPLN ====== ====== SPLN ======
  
-==== Diário de Bordo - Aula 3 - 2016-03-01 ====+==== Diário de Bordo - Aula 3 - 2016-02-29 ====
  
 === Sumário === === Sumário ===
Line 41: Line 41:
  $chmod +x <filename>  $chmod +x <filename>
  
-Expressões Regulares +**Expressões Regulares **
  
 Para fazer match do caracter espaço, utiliza-se o seguinte : Para fazer match do caracter espaço, utiliza-se o seguinte :
 +
  \s é equivalente a  [ \t\n]  \s é equivalente a  [ \t\n]
  \S é equivalente a  [^ \t\n]  \S é equivalente a  [^ \t\n]
  
 Utilização do Default input and pattern-searching space: Utilização do Default input and pattern-searching space:
 +
  while( $_ =~ /\S/){...}  while( $_ =~ /\S/){...}
  
  while( /\S/ ){...}  while( /\S/ ){...}
 +
 Esta expressão regular apanha todas as linha nao vazias. 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: Para aceder a campos da expressão regular que fez match utilizamos a seguinte sintax:
 +
  /(\w+)\s+(.+)/  /(\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. 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**
  
-* Operadores sobre vários tipos de dados  +Consultar Capiulo 14. do Quick Reference Guide fornecido. 
- Consultar Capiulo 14. do Quick Reference Guide fornecido. + 
- ** Arrays Associativos+  * Arrays Associativos
  
  %a - array associativo   %a - array associativo 
Line 66: Line 72:
  $delete($a{v3})  $delete($a{v3})
  
-** Vetores +  * 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]" +
- +
  
-** Apontadores +        @l - vetor 
- \@l - devolve apontador para o vetor +        unshift(@l, elem ) - insere elemento no inicio do vetor 
- \%a - devolve apontador para array associativo +        elem = shift(@l) - retira elemento do inicio do vetor 
- \&$f - apontador para função +        push(@l, elem) - insere elemento no final do vetor  
- @x = (1,[3,4]) ,  $x[1][1] = 3+        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
  
-* Funções Anonimas+ \@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
  
- $sub{ ... } - função anonima+  * Funções Anonimas
  
 + $x = sub{ ... } - função anonima
  
- * Perl Open()+  * Perl Open()
  
  open(F,"<","/var/log/messages") - abre ficheiro /var/log/messages para leitura  open(F,"<","/var/log/messages") - abre ficheiro /var/log/messages para leitura
- + 
 +  * Open de IPC (inter process communication: pipes) 
  #!/usr/bin/perl  #!/usr/bin/perl
  
Line 100: Line 107:
  while (<>) {  while (<>) {
  print  "$. $_";   print  "$. $_"; 
- 
  }  }
  close (F);  close (F);
Line 112: Line 118:
  #!/usr/bin/perl  #!/usr/bin/perl
  
- open(F, "-|", "ls") or die("Cant open file\n"); +        open(F, "-|", "ls") or die("Cant open file\n"); 
- while (<F>) { +        while (<F>) { 
- print  "$. $_";+            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'
- close (F);+
  
- 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
- +
-* Bash script+
  
  for a in {1..20000}; do echo $RANDOM >$a.txt; done  -  cria 20000 ficheiros  for a in {1..20000}; do echo $RANDOM >$a.txt; done  -  cria 20000 ficheiros
   
-*Perl scripts + * Perl scripts 
-  * imprime linhas repetidas, ignora linhas vazias+ 
 +   * imprime linhas repetidas, ignora linhas vazias 
  #!/usr/bin/perl  #!/usr/bin/perl
 +        
  use warnings;  use warnings;
  use strict;  use strict;
  use utf8::all;  use utf8::all;
 +        
  my %hash; #array associado  my %hash; #array associado
  while (<>) {  while (<>) {
Line 144: Line 151:
  
   *Detetar ficheiros duplicados numa diretoria fornecida como argumento.   *Detetar ficheiros duplicados numa diretoria fornecida como argumento.
 +
  #!/usr/bin/perl  #!/usr/bin/perl
 +        
  use warnings;  use warnings;
  use strict;  use strict;
  use utf8::all;  use utf8::all;
 +        
  my %hash; #array associativo  my %hash; #array associativo
  my $arg =join ( " ",  map{-d $_?"$_/*":$_}@ARGV);  my $arg =join ( " ",  map{-d $_?"$_/*":$_}@ARGV);
spln2016/dirio3.1457120322.txt.gz · Last modified: 2016/03/04 19:38 by ambs