Differences

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

--- spln2016:diario1 [2016/02/18 21:01] – [Diário de Bordo - Aula 1 - 2016-02-15] ambs
+++ spln2016:diario1 [2016/02/18 21:58] – [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 $_
-# --------------------------------------- Exercicío com a var $_ -----------------------------------------------------
+    my ($c);
+    while (<>){
-#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
+ 	print; # a var $_ pode ser omitida
  	$c++;
-}
+    }
-print "$c linhas\n";
+    print "$c linhas\n";
-# --------------------------------------- Contar palavras --------------------------------------------------------------
-my ($c);
+=== Contar palavras ===
-while (<>){
-	while ($_ =~ /\w+/g) { #utilizamos expressões regulares para identificar o que é uma palavra, as letros inseridas depois das barras são modificadores, neste caso o g é utilizado para fazer o match à palavra quantas vezes forem possiveis na string
-		$c++;
-	}
-}
-print "$c palavras\n";
+    my ($c);
+    while (<>) {
+        while ($_ =~ /\w+/g) {
+           # utilizamos expressões regulares para identificar o que é uma palavra,
+           # as letras inseridas depois das barras são modificadores,
+           # neste caso o g é utilizado para fazer o match à palavra
+           # quantas vezes forem possiveis na string
+	   $c++;
+        }
+    }
+    print "$c palavras\n";