Changeset b49aaf8 for perl/modules/Facebook/lib/BarnOwl/Module

Timestamp:

Sep 20, 2011, 11:15:31 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

eb20731

Parents:

4b23009

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/21/11 10:19:16)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:31)

Message:

Replace punctuation with spaces, and spaces to dashes, on rnjacob's suggestion.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (2 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -23 +23 @@
         # stupidly pick the longest one, and only return one.
         my $sentence = shift;
-        $sentence =~ s/[[:punct:]]//g;
+        $sentence =~ s/[[:punct:]]+/ /g;
         my @words = split(' ', lc($sentence));
         return () unless @words;
@@ -207 +207 @@
             my @keywords = keywords($post->{name} || $post->{message});
             my $topic = $keywords[0] || 'personal';
+            $topic =~ s/ /-/g;
             $self->{topics}->{$post_id} = $topic;
             # XXX indexing is fragile