spln2016:diario1
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
spln2016:diario1 [2016/02/18 21:00] – [Diário de Bordo - Aula 1 - 2016-02-15] ambs | spln2016:diario1 [2016/02/18 21:58] (current) – [Diário de Bordo - Aula 1 - 2016-02-15] ambs | ||
---|---|---|---|
Line 46: | Line 46: | ||
use utf8::all; # para usar o encoding utf8 para todos os inputs | use utf8::all; # para usar o encoding utf8 para todos os inputs | ||
+ | === Exemplo de declaração de uma variável === | ||
+ | my $y = 20; # my é utilizado para declarar variáveis locais | ||
+ | # para var globais utiliza-se o our | ||
+ | print " | ||
+ | === Contar as linhas de um input === | ||
- | # --------------------------------------- | + | my ($l,$c); |
+ | while ($l = <>) { | ||
+ | # <> | ||
+ | # já < | ||
+ | | ||
+ | } | ||
+ | |||
+ | print "$c linhas\n"; | ||
- | my $y = 20; #my é utilizado para declarar variáveis locais, para var globais utiliza-se o our | ||
- | print " | ||
+ | === Exercicío com a var $_ === | ||
+ | # se não guardarmos o que é lido em nenhuma variável ele vai para a var $_ | ||
+ | my ($c); | ||
+ | while (<> | ||
+ | print $_; | ||
+ | print; # a var $_ pode ser omitida | ||
+ | $c++; | ||
+ | } | ||
+ | | ||
+ | print "$c linhas\n"; | ||
- | # --------------------------------------- | + | === Contar |
- | my ($l,$c); | + | |
- | while ($l = <>){ #<> - operador diamante vai ler o input, o diamante vazio permite receber ficheiros, já < | + | while (<>) { |
- | c++; | + | while ($_ =~ /\w+/g) { |
- | } | + | # utilizamos expressões regulares para identificar o que é uma palavra, |
- | + | # | |
- | print "$c linhas\n"; | + | # |
- | + | # | |
- | + | $c++; | |
- | + | } | |
- | + | } | |
- | # --------------------------------------- Exercicío com a var $_ ----------------------------------------------------- | + | |
- | + | print "$c palavras\n"; | |
- | #se não guardarmos o que é lido em nenhuma variável ele vai para a var $_ | + | |
- | my ($c); | + | |
- | while (<>){ | + | |
- | print $_; | + | |
- | | + | |
- | | + | |
- | } | + | |
- | + | ||
- | print "$c linhas\n"; | + | |
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | # --------------------------------------- Contar palavras -------------------------------------------------------------- | + | |
- | + | ||
- | my ($c); | + | |
- | while (<> | + | |
- | while ($_ =~ /\w+/g) { #utilizamos expressões regulares para identificar o que é uma palavra, as letros | + | |
- | $c++; | + | |
- | } | + | |
- | } | + | |
- | + | ||
- | print "$c palavras\n"; | + |
spln2016/diario1.1455825605.txt.gz · Last modified: 2016/02/18 21:00 by ambs