Differences

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

--- spln2016:diario4 [2016/03/09 16:46] – created ambs
+++ spln2016:diario4 [2016/03/09 16:51] (current) – ambs
@@ Line 48: / Line 48: @@
-### Scripting
+=== Scripting ===
 Começamos por criar um exemplo básico do uso da biblioteca Jspell dentro do perl.
@@ Line 54: / Line 54: @@
     $ cat jspell.pl
-```perl
-  #!/usr/bin/env perl
-  use warnings;
+    #!/usr/bin/env perl
-  use strict;
+    use warnings;
+    use strict;
+    use Lingua::Jspell;
+    use Data::Dumper;
+    my $dic = Lingua::Jspell -> new("pt");
+    my @analysis = $dic -> fea("era");
+    use Data::Dumper;
+    print Dumper(\@analysis);
-  use Lingua::Jspell;
+Resultdo:
-  use Data::Dumper;
-  my $dic = Lingua::Jspell -> new("pt");
-  my @analysis = $dic -> fea("era");
-  use Data::Dumper;
-  print Dumper(\@analysis);
-```
     $ perl jspell.pl
-```perl
+    $VAR1 = [
-$VAR1 = [
           {
             'rad' => 'era',
@@ Line 98: / Line 97: @@
           }
         ];
-```
 Agora que já conseguimos dar uso à biblioteca, vamos agora usá-la para descobrir os radicais das palavras no dicionário português e contar a frequência de cada radical.
@@ Line 104: / Line 102: @@
     $ cat jspell2.pl
-```perl
-#!/usr/bin/env perl
-use warnings;
-use strict;
-use Lingua::Jspell;
+Contagem de lemas...
-use Data::Dumper;
-use Memoize;
+    #!/usr/bin/env perl
-memoize('radicais');
+    use warnings;
-my $dic = Lingua::Jspell -> new("pt");
+    use strict;
-my (%oco, $c);
+    use Lingua::Jspell;
+    use Data::Dumper;
-while (<>) {
-    next if /^</;
+    use Memoize;
+    memoize('radicais');
-    while ( /\w+(-\w+)*/g ){
+    my $dic = Lingua::Jspell -> new("pt");
+    my (%oco, $c);
+    while (<>) {
+        next if /^</;
+        while ( /\w+(-\w+)*/g ) {
+            my $word = $&;
-        my $word = $&;
+            my @rad = radicais($word);
+            for my $rad (@rad) {
-        my @rad = radicais($word);
+                $oco{$rad}++;
-        for my $rad (@rad){
+            }
-            $oco{$rad}++;
         }
+    }
+    for my $rad (sort { $oco{$b} <=> $oco{$a}} keys %oco){
+        print "$rad\t$oco{$rad}\n"
+    }
+    sub radicais {
+        my $word = shift;
+        return $dic -> rad($word);
     }
-}
+Resultado:
-for my $rad (sort { $oco{$b} <=> $oco{$a}} keys %oco){
-    print "$rad\t$oco{$rad}\n"
-}
-sub radicais {
-    my $word = shift;
-    return $dic -> rad($word);
-}
-```
     $ perl jspell.pl | head
     o    121406
     de   45603