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:01] – [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 64: | Line 64: | ||
+ | === 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"; | ||
- | # --------------------------------------- Exercicío com a var $_ ----------------------------------------------------- | ||
- | #se não guardarmos o que é lido em nenhuma variável ele vai para a var $_ | + | === Contar palavras === |
- | my ($c); | + | |
- | while (<>){ | + | |
- | print $_; | + | |
- | | + | |
- | | + | |
- | } | + | |
- | print "$c linhas\n"; | + | |
- | + | while (<>) { | |
- | + | while ($_ =~ /\w+/g) { | |
- | + | # utilizamos expressões regulares para identificar o que é uma palavra, | |
- | + | # | |
- | # --------------------------------------- Contar palavras -------------------------------------------------------------- | + | # |
- | + | # | |
- | my ($c); | + | $c++; |
- | while (<> | + | } |
- | while ($_ =~ /\w+/g) { #utilizamos expressões regulares para identificar o que é uma palavra, as letros | + | } |
- | $c++; | + | |
- | } | + | print "$c palavras\n"; |
- | } | + | |
- | + | ||
- | print "$c palavras\n"; | + | |
spln2016/diario1.1455825706.txt.gz · Last modified: 2016/02/18 21:01 by ambs