Differences

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

--- spln2016:diario1 [2016/02/18 20:01] – [Diário de Bordo - Aula 1 - 2016-02-15] ambs
+++ spln2016:diario1 [2016/02/18 20: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; #a var $_ pode ser omitida
- 	$c++;
-}
-print "$c linhas\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,
-# --------------------------------------- Contar palavras --------------------------------------------------------------
+           # neste caso o g é utilizado para fazer o match à palavra
+           # quantas vezes forem possiveis na string
-my ($c);
+	   $c++;
-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";
-}
-print "$c palavras\n";