Differences

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

--- spln2016:diario1 [2016/02/18 20:00] – [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 46: / Line 46: @@
     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 "Variavel $y\n";
+=== Contar as linhas de um input ===
-# ---------------------------------------  Exemplo de declaração de uma variável ------------------------------------
+    my ($l,$c);
+    while ($l = <>) {
+       # <> - operador diamante vai ler o input, o diamante vazio permite receber ficheiros,
+       # já <STDIN> só recebe do STDIN
+       $c++;
+    }
+    print "$c linhas\n";
-my $y = 20; #my é utilizado para declarar variáveis locais, para var globais utiliza-se o our
-print "Variavel $y\n";
+=== 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 as linhas de um input -----------------------------------------------
+=== Contar palavras ===
-my ($l,$c);
+    my ($c);
-while ($l = <>){ #<> - operador diamante vai ler o input, o diamante vazio permite receber ficheiros, já <STDIN> só recebe do STDIN
+    while (<>) {
-	c++;
+        while ($_ =~ /\w+/g) {
-}
+           # utilizamos expressões regulares para identificar o que é uma palavra,
+           # as letras inseridas depois das barras são modificadores,
-print "$c linhas\n";
+           # neste caso o g é utilizado para fazer o match à palavra
+           # quantas vezes forem possiveis na string
+	   $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; #a var $_ pode ser omitida
- 	$c++;
-}
-print "$c linhas\n";
-# --------------------------------------- Contar palavras --------------------------------------------------------------
-my ($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";