- Timestamp:
- Jun 22, 2011, 9:56:46 PM (13 years ago)
- Children:
- 348cffc
- Parents:
- 43d8a1e
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (06/21/11 10:19:16)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (06/22/11 21:56:46)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r6dccccf rf134488 23 23 # stupidly pick the longest one, and only return one. 24 24 my $sentence = shift; 25 $sentence =~ s/[[:punct:]] //g;25 $sentence =~ s/[[:punct:]]+/ /g; 26 26 my @words = split(' ', lc($sentence)); 27 27 return () unless @words; … … 207 207 my @keywords = keywords($post->{name} || $post->{message}); 208 208 my $topic = $keywords[0] || 'personal'; 209 $topic =~ s/ /-/g; 209 210 $self->{topics}->{$post_id} = $topic; 210 211 # XXX indexing is fragile
Note: See TracChangeset
for help on using the changeset viewer.